打卡机用excel导出数据修改时间需要密码怎么破解

打卡机用excel导出数据修改时间需要密码怎么破解

1.下载打卡机考勤表数据。

2.打开考勤表，双360问答击任何区域都是无法编辑的。

3.如图，选择“开发丛野工具”，打开“宏”。

4.选择需要破解的工作表，命名为bbb,随便什么英文字母都可以。

5.然后，单击创渗迅喊建，如下图。

6.把编辑框内的代码换成

Option ExplicitPublic Sub AllInternalPassw务ords()

 ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base 昌肆code algor破与热握袁他贵从林于ithm modified for coverag认e 

' of workbook structur队承衡河药e / windows passwords and for multiple passwor头细格导ds '

' No正呼错省rman 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 McCo限盐差乙语个rmick base code by

" & _ "Norman Harker and J胡资处握之关红E McGimpsey" Const HEADER As String = 

"All挥临个聚转InternalPasswor右判ds User Message" Const VERSION As String = DBLSPACE & 

"Version 1.1.1 2003-Apr-纪04" Const REPBACK As St田ring = DBLSPACE & 

"Please r王几朝确示团eport failure " & _ 

"to the microsoft.***拿用置反季.programming newsgroup.

" Con企亮最台吃伯识赵目st 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 Cons湖根植内出养散宁厚t MSGNOPWORDS2 As String =

 "T法here was no protection to " & _ "workbook structure or w应卷触执苦引宽交indows.

" & 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 Ex66:

 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 ***.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 ***.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 ***.substitute(MSGPWORDFOUND2

_ 

"$$

"PWord1)

vbInformation, HEADER 

leverage finding Pword by trying on other sheets For Each 

w2 In Worksheets ***.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.然后修改其它几个工作表对应的内容，保存即可。