撤销excel工作簿保护.docVIP

撤销excel工作簿保护 　　撤销工作簿密码保护 　　EXCEL 工作表编辑资料,设置了工作表保护后,不能对表格进行插入删除操作。 如果没有密码, 很简单 :工具 -选项—工作表保护——撤消工作表保护 就可以了。 如果忘记密码,如下操作: 1\打开文件 　　2\工具 ---宏 ----录制新宏 ---输入名字如 :a 　　3\停止录制 (这样得到一个空宏 ) 　　4\工具 ---宏 ----宏 , 选 a, 点编辑按钮 　　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 _ 　　　　Const HEADER As String = 　　Const VERSION As String = DBLSPACE 　　Const ALLCLEAR As String = DBLSPACE 　　DBLSPACE 　　DBLSPACE 　　　　Const MSGNOPWORDS1 As String = 　　　　Const MSGTAKETIME As String = 　　　　Const MSGPWORDFOUND1 As String = 　　　　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 　　Application.ScreenUpdating = False 　　With ActiveWorkbook 　　WinTag = .ProtectStructure Or .ProtectWindows 　　End With 　　ShTag = False 　　For Each w1 In Worksheets 　　ShTag = ShTag Or w1.ProtectContents 　　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 　　On Error Resume Next 　　Do dummy do loop 　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 　　For l = 65 To 66: For m = 65 To 66: F