-
oulangwokuan
|
分类：办公软件
|
浏览
12
912
次
打开
excel
表格
——
工具
——
保护
——
撤销工作表
保护，
有没有人能给发个软
件破解一下啊？？
分享到：
2011-07-07
12:56
提问者采纳
打开文件
2
工具
---
宏
----
录制新宏
---
输入名字如
:aa
3
停止录制
(
这样得到一个空宏
)
4
工具
---
宏
----
宏<
/p>
,
选
aa,
点编
辑按钮
5
删除窗口中的所有字符
(
只有几个
),
替换为下面的内容
:(
你复制吧
)
Option
Explicit
Public
Sub
AllInternalPasswords()
'
Breaks
worksheet
and
workbook
structure
passwords.
Bob
McCormick
'
probably
originator
of
base
code
algorithm
modified
for
coverage
'
of
workbook
structure
/
windows
passwords
and
for
multiple
passwords
'
'
Norman
Harker
and
JE
McGimpsey
27-Dec-2002
(Version
1.1)
'
Modified
2003-Apr-04
by
JEM:
All
msgs
to
constants,
and
'
eliminate
one
Exit
Sub
(Version
1.1.1)
'
Reveals
hashed
passwords
NOT
original
passwords
Const
DBLSPACE
As
String
=
vbNewLine
&
vbNewLine
Const
AUTHORS
As
String
=
DBLSPACE
&
vbNewLine
&
_
from
Bob
McCormick
base
code
by
&
_
Harker
and
JE
McGimpsey
Const
HEADER
As
String
=
User
Message
Const
VERSION
As
String
=
DBLSPACE
&
1.1.1
2003-Apr-04
Const
REPBACK
As
String
=
DBLSPACE
&
report
failure
&
_
the
mming
newsgroup.
Const
ALLCLEAR
As
String
=
DBLSPACE
&
workbook
should
&
_
be
free
of
all
password
protection,
so
make
sure
you:
&
_
DBLSPACE
&
IT
NOW!
&
DBLSPACE
&
also
&
_
DBLSPACE
&
BACKUP!!,
BACKUP!!!
&
_
DBLSPACE
&
remember
that
the
password
was
&
_
there
for
a
reason.
Don't
stuff
up
crucial
formulas
&
_
data.
&
DBLSPACE
&
and
use
of
some
data
&
_
be
an
offense.
If
in
doubt,
don't.
Const
MSGNOPWORDS1
As
String
=
were
no
passwords
on
&
_
or
workbook
structure
or
windows.
&
AUTHORS
&
VERSION
Const
MSGNOPWORDS2
As
String
=
was
no
protection
to
&
_
structure
or
windows.
&
DBLSPACE
&
_
to
unprotect
sheets.
&
AUTHORS
&
VERSION
Const
MSGTAKETIME
As
String
=
pressing
OK
button
this
&
_
take
some
time.
&
DBLSPACE
&
of
time
&
_
on
how
many
different
passwords,
the
&
_
and
your
computer's
specification.
&
DBLSPACE
&
_
be
patient!
Make
me
a
coffee!
&
AUTHORS
&
VERSION
Const
MSGPWORDFOUND1
As
String
=
had
a
Worksheet
&
_
or
Windows
Password
set.
&
DBLSPACE
&
_
password
found
was:
&
DBLSPACE
&
&
DBLSPACE
&
_
it
down
for
potential
future
use
in
other
workbooks
by
&
_
same
person
who
set
this
password.
&
DBLSPACE
&
_
to
check
and
clear
other
passwords.
&
AUTHORS
&
VERSION
Const
MSGPWORDFOUND2
As
String
=
had
a
Worksheet
&
_
set.
&
DBLSPACE
&
password
found
was:
&
_
DBLSPACE
&
&
DBLSPACE
&
it
down
for
potential
&
_
use
in
other
workbooks
by
same
person
who
&
_
this
password.
&
DBLSPACE
&
to
check
and
clear
&
_
passwords.
&
AUTHORS
&
VERSION
Const
MSGONLYONE
As
String
=
structure
/
windows
&
_
with
the
password
that
was
just
found.
&
_
ALLCLEAR
&
AUTHORS
&
VERSION
&
REPBACK
Dim
w1
As
Worksheet,
w2
As
Worksheet
Dim
i
As
Integer,
j
As
Integer,
k
As
Integer,
l
As
Integer
Dim
m
As
Integer,
n
As
Integer,
i1
As
Integer,
i2
As
Integer
Dim
i3
As
Integer,
i4
As
Integer,
i5
As
Integer,
i6
As
Integer
Dim
PWord1
As
String
Dim
ShTag
As
Boolean,
WinTag
As
Boolean