打卡机用excel导出数据修改时间需要密码怎么破解 考勤机导出的考勤纪录怎么更改，excel格式，修改时，提示数...
\u6253\u5361\u673a\u7528excel\u5bfc\u51fa\u6570\u636e\u4fee\u6539\u65f6\u95f4\u9700\u8981\u5bc6\u7801\u600e\u4e48\u7834\u89e3Q\u90ae\u3010\u4e00\u4e1d\u9738\u6c14\u4e09\u601d\u67f3\u95ea\u95ea\u821e\u3011,\u5e94\u8be5\u6709\u628a\u63e1\u5904\u7406\u5f97
\u628a\u6570\u636e\u4fdd\u62a4\u5bc6\u7801\u53bb\u6389\uff0c\u524d\u63d0\u662f\u4f60\u8981\u77e5\u9053\u5bc6\u7801\u3002
\u7b2c\u4e00\u7c7b\u662f\u7b80\u5355\u6253\u5370\u7c7b\uff0c\u6253\u5361\u65f6\uff0c\u539f\u59cb\u8bb0\u5f55\u6570\u636e\u901a\u8fc7\u8003\u52e4\u673a\u76f4\u63a5\u6253\u5370\u5728\u5361\u7247\u4e0a\uff0c\u5361\u7247\u4e0a\u7684\u8bb0\u5f55\u65f6\u95f4\u5373\u4e3a\u539f\u59cb\u7684\u8003\u52e4\u4fe1\u606f\uff0c\u5bf9\u521d\u6b21\u4f7f\u7528\u8005\u65e0\u9700\u505a\u4efb\u4f55\u4e8b\u5148\u7684\u57f9\u8bad\u5373\u53ef\u7acb\u5373\u4f7f\u7528\u3002
\u7b2c\u4e8c\u7c7b\u662f\u5b58\u50a8\u7c7b\uff0c\u6253\u5361\u65f6\uff0c\u539f\u59cb\u8bb0\u5f55\u6570\u636e\u76f4\u63a5\u5b58\u50a8\u5728\u8003\u52e4\u673a\u5185\uff0c\u7136\u540e\u901a\u8fc7\u8ba1\u7b97\u673a\u91c7\u96c6\u6c47\u603b\uff0c\u518d\u901a\u8fc7\u8f6f\u4ef6\u5904\u7406\uff0c\u6700\u540e\u5f62\u6210\u6240\u9700\u7684\u8003\u52e4\u4fe1\u606f\u6216\u67e5\u8be2\u6216\u6253\u5370\uff0c\u5176\u8003\u52e4\u4fe1\u606f\u7075\u6d3b\u4e30\u5bcc\uff0c\u5bf9\u521d\u6b21\u4f7f\u7528\u8005\u9700\u505a\u4e00\u4e9b\u4e8b\u5148\u57f9\u8bad\u624d\u80fd\u9010\u6e10\u638c\u63e1\u5176\u5168\u90e8\u4f7f\u7528\u529f\u80fd\u3002
\u5728\u4efb\u4f55\u60c5\u51b5\u4e0b\uff0c\u4e0d\u8fdb\u884c\u4efb\u4f55\u8003\u52e4\u8bbe\u7f6e\uff0c\u90fd\u80fd\u5b9e\u65f6\u67e5\u8be2\u5404\u5458\u5de5\u7684\u5237\u5361\u8bb0\u5f55\uff08\u5305\u62ec\u5237\u5361\u4eba\u3001\u5237\u5361\u65f6\u95f4\u3001\u5237\u5361\u6027\u8d28\u3001\u7a97\u53e3\u53f7\uff09\u53ca\u672a\u6253\u5458\u5de5\uff0c\u4e5f\u53ef\u8fdb\u884c\u6309\u6761\u4ef6\u67e5\u8be2\u90e8\u5206\u6216\u5168\u4f53\u4eba\u5458\u7684\u5237\u5361\u8bb0\u5f55\uff08\u5982\uff1a\u8f93\u5165\u5de5\u53f7\u3001\u65e5\u671f\u53ca\u65f6\u95f4\uff09\uff0c\u4fbf\u53ef\u67e5\u8be2\u8be5\u5458\u5de5\u6b64\u65f6\u95f4\u6bb5\u5185\u7684\u6253\u5361\u660e\u7ec6\u3002
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.然后修改其它几个工作表对应的内容，保存即可。
excel 文件加密小技巧
一般是采用Advanced Office Password Recovery软件，免费版的
别修改的太夸张
绛旓細涓句釜渚嬪瓙锛屾煇鍏徃鐨凥R闇瑕佸鍑轰笂涓湀鎵鏈夊憳宸ョ殑鍑哄嫟璁板綍杩涜鍒嗘瀽銆傚ス棣栧厛浣跨敤鏁版嵁绾垮皢鎵撳崱鏈鸿冨嫟鏈杩炴帴鍒扮數鑴戜笂锛屽苟鎵撳紑浜嗚冨嫟绠＄悊杞欢銆傚湪杞欢涓紝濂归夋嫨浜“鏁版嵁瀵煎嚭”閫夐」锛屽苟璁剧疆浜嗗鍑虹殑鏃堕棿鑼冨洿涓轰笂涓湀銆佹暟鎹被鍨嬩负鍑哄嫟璁板綍銆佹枃浠舵牸寮忎负Excel銆傜‘璁ゆ棤璇悗锛屽ス鐐瑰嚮浜“瀵煎嚭”...
绛旓細杩欎釜闇瑕佺敤鍒Excel鐨刬f鍑芥暟锛氱涓姝ワ細鐢╥f鍑芥暟鏉ュ垽鏂紝涓婄彮鏃堕棿鏄笉鏄湪浣犵粰鐨勮寖鍥达細濡傦細7锛14鍒嗘寜7鐐硅绠 7锛15鎸7鐐30鍒嗚绠椼傝緭鍏ュ叕寮忥細=IF(E3<"07:15","07:00","07:30")杩欐牱瀛愬憿鍙鍦7:15鍓鎵撳崱鐨勯兘榛樿涓7:00,鐒跺悗7:15涔嬪悗鎵撳崱榛樿涓7:30锛堝疄闄呬笂涓囦竴8:00鐢氳嚦鏇存櫄鎵撳崱鐨勫憿锛
绛旓細1.鑰冨嫟鍙互閫氳繃杞欢淇敼銆傚湪杞欢鐨勮彍鍗曠浜岄」锛屾湁涓涓冨嫟澶勭悊锛岀敤浜庡鐞嗗憳宸ヨ鍋囨垨鑰呭繕璁扮鍒扮殑鎯呭喌锛屽彲浠ユ墜宸ユ坊鍔犺褰曘2.鎮ㄥ彲浠ュ湪EXCEL涓鍑烘暟鎹鏉淇敼鑰冨嫟銆傛瘡鍙鑰冨嫟鏈閮芥湁鑷繁鐨勫厜鐩橈紝鍏夌洏涓婃湁璇ュ瀷鍙风殑绠＄悊杞欢銆傝繛鎺ヨ冨嫟鏈哄悗锛屼笅杞芥暟鎹苟淇濆瓨涓篨LS鏂囦欢銆備竴鑸潵璇达紝鍒濆鍖栨病鏈夌鐞嗗憳鍜屽瘑鐮侊紝鍙湁涓存椂...
绛旓細2銆佸彲浠瀵煎嚭鏁版嵁鍦EXCEL閲岃繘琛淇敼銆傛瘡娆鑰冨嫟鏈閮芥湁鑷繁鐨勪竴涓紶鍏夌洏锛岄噷闈㈡湁閽堝鍨嬪彿鐨勭鐞嗚蒋浠讹紝杩炴帴鑰冨嫟鏈轰互鍚庯紝涓嬭浇鏁版嵁骞朵繚瀛樻垚XLS鏂囦欢灏卞彲浠ヤ簡銆備竴鑸潵璇达紝鍒濆鍖栨病鏈夌鐞嗗憳鍜屽瘑鐮侊紝鍙湁涓存椂鐨勮秴绾х鐞嗗憳锛屽緢濂芥搷浣溿3銆佽澶囪缃殑鏃跺欙紝瑕佹敞鎰忔槸鐢ㄤ覆鍙ｈ繛鎺ヨ繕鏄綉绾胯繛鎺ャ傚鏋滄槸涓插彛杩炴帴灏辫娉ㄦ剰...
绛旓細浠鎸囩汗鑰冨嫟鏈锛瀵煎嚭鏉鐨凟XCEL琛ㄦ牸閮芥槸缁忚繃鍘傚鍔犲瘑鐨勶紝鏄笉鍏佽缂栬緫淇敼鐨勶紝涓昏鏄綋鐜板叕鍙歌冨嫟鐨勫叕姝ｃ佸叕骞虫с備竴鑸兂浠鑰冨嫟鏈哄鍑篍XCEL琛ㄦ牸锛岀紪杈戜慨鏀癸紝涓昏鏈2涓師鍥狅細1銆佹兂淇敼鎵撳崱璁板綍锛岃鑷繁鎴栧埆浜虹殑杩熷埌锛屾棭閫锛屾椃宸ワ紝鍙樹负姝ｅ父鍑哄嫟鐘跺喌锛岃繖鏍锋湀搴曡冨嫟鏃讹紝灏变笉浼氭墸閽便2銆佸伐鍘備紒涓氬鎴峰埌瀹㈡埛楠屽巶...
绛旓細鎸囩汗鎵撳崱鏈涓嬭浇鍒癠鐩樹腑鐨excel鏂囦欢锛孶鐩樻彃鍒扮數鑴戜笂锛岀敤office鎴杦ps涓殑鐢靛瓙琛ㄦ牸鎵撳紑鏂囦欢锛岃嫢鏄枃浠跺厑璁淇敼锛屽彲鐩存帴杩涜淇敼銆
绛旓細鎵撳崱鏈鐨excel鏂囦欢閮芥槸鏈夊瘑鐮佺殑锛岄渶瑕佺鐞嗗憳瀵嗙爜鎵嶈兘鏇存敼锛屽彟澶栦竴鑸鑰冨嫟鏈(宸殑閭ｇ)浣跨敤鐨勬槸access鏁版嵁搴撱傝繖涓猘ccess鏁版嵁搴撳簲璇ユ槸娌℃湁璁惧瘑鐮佺殑锛屽彲浠ュ湪杩欓噷闈淇敼鍘熷璁板綍銆傚綋鐒 鍓嶆彁鏄兘鎺ヨЕ鍒拌繖涓猘ccess鏁版嵁搴撱 濡傛灉涔熻缃簡瀵嗙爜锛岄偅涔堝彧鑳介氳繃VBA缂栫爜鐮磋В瀵嗙爜瀹炵幇鏇存敼璁板綍銆備唬鐮佸涓嬶細鎿嶄綔姝ラ锛1. 鎵撳紑...
绛旓細1銆佸彲浠ラ氳繃杞欢淇敼鑰冨嫟銆傚湪杞欢鐨勮彍鍗曠浜岄」锛屾湁涓涓冨嫟澶勭悊锛岀敤浜庡鐞嗗憳宸ヨ鍋囨垨蹇樼鍒扮殑澶勭悊銆傚彲浠ユ墜鍔ㄥ鍔犺褰曘2銆佸彲浠瀵煎嚭鏁版嵁鍦EXCEL閲岃繘琛屼慨鏀广傛瘡娆鑰冨嫟鏈閮芥湁鑷繁鐨勪竴涓紶鍏夌洏锛岄噷闈㈡湁閽堝鍨嬪彿鐨勭鐞嗚蒋浠讹紝杩炴帴鑰冨嫟鏈轰互鍚庯紝涓嬭浇鏁版嵁骞朵繚瀛樻垚XLS鏂囦欢灏卞彲浠ヤ簡銆備竴鑸潵璇达紝鍒濆鍖栨病鏈夌鐞嗗憳鍜屽瘑鐮...
绛旓細鎶鏈槸瑕佹湁涓鐐圭殑锛屼篃鍙互涓嶇暀鐥曡抗锛岄偅瑕佺湅鎿嶄綔鍛樼殑姘村钩浜嗐傞渶瑕佹敼鏁版嵁搴撱傚厛鍒涘缓鏁版嵁搴擄紝鍐浣跨敤SQL SERVER楠岃瘉鐢ㄦ埛鐧婚檰骞惰繛鎺ユ墍鍒涘缓鐨勬暟鎹簱銆 浣犵幇鍦ㄧ殑闂灏辨槸浣犱娇鐢╓INDOWS鐢ㄦ埛楠岃瘉锛侊紒锛佷綘鍘淇敼鏁版嵁搴撶殑杩炴帴鏂瑰紡灏卞彲浠ヤ簡锛屽湪浼佷笟绠＄悊宸ュ叿閭ｉ噷淇敼銆備笉璋 鎴愰兘 鐔欏崡涓鍗￠ 闂ㄧ鏈 娑堣垂鏈 鑰冨嫟鏈 ...
绛旓細杩欐槸鍥犱负Excel鑷姩璇嗗埆鍑烘椂闂达紝骞舵樉绀轰负榛樿鐨勬牸寮忋傛柟娉1锛氳緭鍏ユ椂闂存椂锛屼互鏂囨湰褰㈠紡杈撳叆銆傚叿浣撴柟娉曪細鍦ㄦ椂闂翠箣鍓嶅姞涓婁竴涓嫳鏂囧崟寮曞彿'锛岃繖鏍稥xcel灏卞彧鎶婂畠褰撲綔鏂囨湰锛屼笉浼氳嚜鍔ㄨ瘑鍒傛柟娉2锛氬彸鍑诲崟鍏冩牸锛岀偣鍑烩濊缃崟鍏冩牸鏍煎紡鈥滄暟瀛楅偅涓鏍忥紝閫変腑鈥濊嚜瀹氫箟鈥滅被鍨嬶紝濉啓hh:mm 鍗冲彲 ...
