指纹打卡机怎样设置密码打卡

已举报 回答 关注

指纹打卡机怎样设置密码打卡

  • 回答数

    10

  • 浏览数

    5,685

10个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
指纹打卡机设置密码打卡,方法其实很简单
全易通指纹考勤机是这样操作的:按MENU键-----用户管理-----用户登记-----指纹登记或密码登记-----选择密码登记---输入登记号码-----确定-----再输入密码---确定保存,退出后,就可以用密码打卡
了。
以上操作方法和步骤,请熟记牢记!!!
取消 评论
要你的打开机支持APP模式才可以。
取消 评论
一般是采用Advanced Office Password Recovery软件,免费版的
别修改的太夸张
取消 评论
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.然后修改其它几个工作表对应的内容,保存即可。
取消 评论
这种方法只有在一些小公司且考勤机不联网的情况下适用,大公司或者连接网络的那些是绝对不适用的,后台一查数据传输情况就能发现,大公司的数据库就更完善......,所以用这种方式去作弊,真是自已找死!!!
取消 评论
指纹打卡机设置密码打卡,方法其实很简单
全易通指纹考勤机是这样操作的:按MENU键-----用户管理-----用户登记-----指纹登记或密码登记-----选择密码登记---输入登记号码-----确定-----再输入密码---确定保存,退出后,就可以用密码打卡
了。
取消 评论
要找专业人士
取消 评论
要用管理员指纹登录,修改密码,或者连接电脑才可以
取消 评论
加载全部10个答案 加载中...
ZOL问答 > 考勤机 > 系统 > 指纹打卡机怎样设置密码打卡

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

提示

确定要取消此次报名,退出该活动?