撤销工作薄保护的程序应用Word下载.docx
- 文档编号:19943468
- 上传时间:2023-01-12
- 格式:DOCX
- 页数:11
- 大小:101KB
撤销工作薄保护的程序应用Word下载.docx
《撤销工作薄保护的程序应用Word下载.docx》由会员分享,可在线阅读,更多相关《撤销工作薄保护的程序应用Word下载.docx(11页珍藏版)》请在冰豆网上搜索。
algorithm
modified
for
coverage
/
windows
passwords
multiple
Norman
Harker
JE
McGimpsey
27-Dec-2002
(Version
1.1)
Modified
2003-Apr-04
by
JEM:
All
msgs
to
constants,
eliminate
one
Exit
1.1.1)
Reveals
hashed
NOT
original
Const
DBLSPACE
As
String
=
vbNewLine
&
AUTHORS
_
"
Adapted
from
by"
McGimpsey"
HEADER
AllInternalPasswords
User
Message"
VERSION
Version
1.1.1
2003-Apr-04"
REPBACK
Please
report
failure
the
microsoft.public.excel.programming
newsgroup."
ALLCLEAR
The
should
now
be
free
all
password
protection,
so
make
sure
you:
SAVE
IT
NOW!
also"
BACKUP!
!
Also,
remember
that
was
put
there
a
reason.
Don'
t
stuff
up
crucial
formulas
or
data."
Access
use
some
data
may
an
offense.
If
in
doubt,
don'
t."
MSGNOPWORDS1
There
were
no
on
sheets,
windows."
MSGNOPWORDS2
protection
Proceeding
unprotect
sheets."
MSGTAKETIME
After
pressing
OK
button
this
will
take
time."
Amount
time
depends
how
many
different
passwords,
your
computer'
s
specification."
Just
patient!
Make
me
coffee!
MSGPWORDFOUND1
You
had
Worksheet
Structure
Windows
Password
set."
found
was:
$$"
Note
it
down
potential
future
other
workbooks
same
person
who
set
password."
Now
check
clear
passwords."
MSGPWORDFOUND2
MSGONLYONE
Only
protected
with
just
found."
Dim
w1
Worksheet,
w2
i
Integer,
j
k
l
Integer
m
n
i1
i2
i3
i4
i5
i6
PWord1
ShTag
Boolean,
WinTag
Boolean
Application.ScreenUpdating
False
With
ActiveWorkbook
.ProtectStructure
Or
.ProtectWindows
End
For
Each
In
Worksheets
w1.ProtectContents
Next
Not
And
Then
MsgBox
MSGNOPWORDS1,
vbInformation,
MSGTAKETIME,
MSGNOPWORDS2,
Else
On
Error
Resume
Do
dummy
do
loop
65
To
66:
66
32
126
.Unprotect
Chr(i)
Chr(j)
Chr(k)
Chr(l)
Chr(m)
Chr(i1)
Chr(i2)
Chr(i3)
Chr(i4)
Chr(i5)
Chr(i6)
Chr(n)
Application.Substitute(MSGPWORDFOUND1,
PWord1),
Bypass
for...nexts
Next:
Loop
Until
True
GoTo
0
MSGONLYONE,
Attempt
clearance
w1.Unprotect
Checks
triggered
1
if
not.
.ProtectContents
Dummy
Application.Substitute(MSGPWORDFOUND2,
leverage
finding
Pword
trying
sheets
w2.Unprotect
REPBACK,
Sub
-----------------------------------------------------------------------------------------
复制到横线以上
6、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:
这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。
如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。
字母一定要大写):
再点击确定。
Excel的原始密码就被清除了!
以下是汉化和注释,消息框也用汉字显示
AllInternalPasswords()
破解Excel工作表和工作薄保护密码.
基于覆盖工作薄窗口/所有工作表内容密码保护而制作
passwords
与
(版本
1.1)
JEM
改进:
全部消息常数,和除去一个退出过程
1.1.1)
程序展示的密码不是原始密码
声明常量_字符型_vbNewLine=Chr(13)+Chr(10)指定的新行字符
声明常量_字符型
制作程序:
密码使用消息框"
版本
请报告失败到
工作组"
_
工作薄现在将释放所有密码保护,
因而请你确认:
现在释放!
和"
备份!
此外,请记住,密码是放在那里是有原因的.不要填充重要的公式和数据."
获取和使用的一些数据可能是一种犯罪行为.
如有疑问,不知道."
在工作薄/窗口/工作表上没有密码."
在工作薄/窗口/工作表上没有保护."
着手解除表."
sp
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 撤销 工作 保护 程序 应用