1.下载打卡机考勤表数据。
2.打开考勤表，双击任何区域都是无法编辑的。
3.如图，选择“开发工具”，打开“宏”。
4.选择需要破解的工作表，命名为bbb,随便什么英文字母都可以。
5.然后，单击创建，如下图。
6.把编辑框内的代码换成
Option ExplicitPublic 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 & _ "Adapted from Bob McCormick base code by
" & _ "Norman Harker and JE McGimpsey" Const HEADER As String =
"AllInternalPasswords User Message" Const VERSION As String = DBLSPACE &
"Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE &
"Please report failure " & _
"to the microsoft.public.excel.programming newsgroup.
" Const ALLCLEAR As String = DBLSPACE &
"The workbook should
" & _
"now be free of all pass String =
"There were no passwords on
" & _ "sheets, or workbook structure or windows.
" & AUTHORS & VERSION Const MSGNOPWORDS2 As String =
"There was no protection to " & _ "workbook structure or windows.
" & DBLSPACE & _ "Proceeding to unprotect sheets.
" & AUTHORS & VERSION Const MSGTAKETIME As String =
"After pressing OK button this " & _
"will take some time.
" & DBLSPACE &
"Amount of time
" & _
"depends on how many different passwords, the
" & _
"passwords, and your computer's specification.
" & DBLSPACE & _ "Just be patient! Make me a coffee!
" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String =
"You had a Worksheet " & _
"Structure or Windows Password set.
" & DBLSPACE & _
"The password found was:
" & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by
" & _
"the same person who set this password.
" & DBLSPACE & _
"Now to check and clear other passwords.
" & AUTHORS & VERSION Const MSGPWORDFOUND2 As String =
"You had a Worksheet
" & _
"password set.
" & DBLSPACE & "The password found was:
" & _ DBLSPACE &
"$$
" & DBLSPACE &
"Note it down for potential
" & _
"future use in other workbooks by same person wfound.
" & _ 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 BooleanApplication
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 Ex 66:
For i4 = 65 To 66 For i5 = 65 To 66:
For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
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) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1)
vbInformation, HEADER Exit Do
'Bypass all for...nexts End If End WithNext:
Next:
Next:
Next:
Next:
Next Next:
Next:
Next:
Next:
Next: Next Loop Until True On Error GoTo 0
End If If WinTag And Not ShTag Then MsgBox MSGONLYONE
vbInformation
HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets
'Attempt clearance with PWord1 w1
Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each
w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not
ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag
Then For Each w1 In Worksheets With w1 If
ProtectContents Then 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:
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(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not
ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2
_
"$$
"PWord1)
vbInformation, HEADER
leverage finding Pword by trying on other sheets For Each
w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do
Bypass all for...nexts End If
Next:
Next:
Next:
Next:
Next:
Next Next:
Next:
Next:
Next:
Next:
Next Loop
Until True
On Error GoTo 0
End If End With Next w1
End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK
vbInformation
HEADER
End Sub
7.关闭上一步的编辑窗口，单击下图箭头，然后运行。
8.如下图，单击确定，接下来出现的提示全部点确定。
9.然后关闭编辑框，回到工作表，是不是工作表已经破解了，可以编辑了。修改时间要注意，两个时间之间，要空一格，不然时间容易乱码，就是下图中间的那个很小的红色方框，上下班时间之间要空一格。
10.然后修改其它几个工作表对应的内容，保存即可。
