Excel中如何破解“撤销工作表保护密码”并获取原始密码

Excel

中如何破解

“

撤销工作表保护密码

”

并获取原始密码

一、

保护工作表的方法

1

、

全选定工作表

右击

< br>[

设置单元格格式

]

找到

[

保护

]

将

[

锁定

]

和

[

隐藏

]

2

、将 要保护的工作表单元格选定右击

[

设置单元格格式

]

找到

[

保护

将

[

锁定

]

和

[

隐藏

]

两个的勾打上；

3

、

点菜单 栏的

[

工具

]

中的

[

保护

]

里的

[

保护工作表

]

< br>将

[

保护工作表及锁定

的单元内容

]

打上勾，下选允许此工作表的所 有用户

[

选定未锁定的单元格

]

打上勾

二、

Exc el

工作表保护密码破解方法

1

、打开您需要破解保护密码的

Excel

文 件；

2

、依次点击菜单栏上的工具

---

宏

----

录 制新宏，输入宏名字如

:aa

；

3

、停止录制

(

这 样得到一个空宏

)

；

4

、依次点击菜单栏上的工具

---

宏

----

宏

,

选

aa,

点编辑按钮；

5

、删除窗口中的所有字符

(< /p>

只有几个

),

替换为下面的内容；

从横线下开始复制

------------------------------------------------- -----------------------------------------

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 (V

ersion 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (V

ersion 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

Const HEADER As String =

Const VERSION As String = DBLSPACE &

ersion 1.1.1 2003-Apr-04

Const REPBACK As String = DBLSPACE &

Const ALLCLEAR As String = DBLSPACE &

DBLSPACE &

VE IT NOW!

DBLSPACE &

DBLSPACE &

Const MSGNOPWORDS1 As String =

Const MSGNOPWORDS2 As String =

Const MSGTAKETIME As String =

Const MSGPWORDFOUND1 As String =

ou had a Worksheet

Const MSGPWORDFOUND2 As String =

ou had a Worksheet

DBLSPACE &

Const MSGONLYONE As String =

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

Updating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or tContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else