破解EXCEL工作表保护的方法.doc

　　破解EXCEL工作表保护的方法 　　1打开文件 　　2工具---宏----录制新宏---输入名字如:aa 　　3停止录制(这样得到一个空宏) 　　4工具---宏----宏,选aa,点编辑按钮 　　5删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) Option Explicit Public Sub AllInternalPassick #39; probably originator of base code algorithm modified for coverage #39; of ultiple passan Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) #39; Modified 2003-Apr-04 by JEM: All msgs to constants, and #39; eliminate one Exit Sub (Version 1.1.1) #39; Reveals hashed passp; vbNep; vbNep; _ Adapted from Bob McCormick base code by _ Norman Harker and JE McGimpsey Const HEADER As String = AllInternalPassp; Version 1.1.1 2003-Apr-04 Const REPBACK As String = DBLSPACE Please report failure _ to the microsoft.public.excel.programming nep; The p; _ noake sure you: _ DBLSPACE SAVE IT NOSGNOPSGNOPSGTAKETIME As String = After pressing OK button this _ e time. DBLSPACE Amount of time _ depends on hoany different passp; _ passp; DBLSPACE _ Just be patient! Make me a coffee! AUTHORS VERSION Const MSGPp; _ Structure or p; _ The passp; DBLSPACE $$ DBLSPACE am 123下一页 ——..，。p; _ Note it dop; _ the same person p; DBLSPACE _ Nop; AUTHORS VERSION Const MSGPSGONLYONE As String = Only structure / p; _ protected p; _ ALLCLEAR AUTHORS VERSION REPBACK 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 PsgBox MSGTAKETIME, vbInformation, HEADER If Not sgBox MSGNOPsgBox Application.Substitute(MSGPsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 上一页123下一页 ——..，。#39;Attempt clearance e Next Do #39;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: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) Chr(j) Chr(k) _ Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr