得力打卡机的excel文件怎么修改？

得力打卡机的excel文件怎么修改~

打卡机的excel文件都是有密码的，需要管理员密码才能更改，另外一般考勤机(差的那种)使用的是access数据库。这个access数据库应该是没有设密码的，可以在这里面修改原始记录。当然 前提是能接触到这个access数据库。 如果也设置了密码，那么只能通过VBA编码破解密码实现更改记录。
代码如下：
操作步骤：
1. 打开需要破解密码的Excel；
2. Alt+F11，进入VBA编辑界面；
3. 插入 -- 模块(Module)；
4. 在右边Module的空白编辑区域，复制粘贴下面所有内容；
5. F5，运行该VBA命令；

Option Explicit
Public 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 password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As 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 who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
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 Boolean

Application.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
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
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
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 With
Next: 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

注意： 如果代码执行有误，请把代码复制到记事本中，再复制出来，这样会把格式去掉，形成纯文本的格式。

1.如图所示，拖动鼠标选中要建立图标的数据。2.点击菜单栏上的：插入--柱形图，选择一种样式。3.在插入的图表上，先点击纵坐标轴选中它，可以看到这个坐标轴四周出现了四个小圆，也叫做控制点。4.右键单击这个坐标轴，然后选择【设置坐标轴格式】。5.在打开的坐标轴格式对话框中，看到坐标轴的最大值最小值等都是自动的，为了自己设定，必须先选中固定的，然后设定数值，如图所示。6.设置好刻度以后，点击数字选项，然后在类别下选择【自定义】，在各式代码这一栏输入 g/毫升 ，然后点击添加按钮。这个就是给数据添加一个单位的代码。点击关闭按钮。7.看到纵坐标轴已经添加了单位了。

打卡机的excel文件都是有密码的，需要管理员密码才能更改。也可以连接电脑更改管理员进行修改。

---

璧山县19276983128： 得力指纹考勤机记录修改 得力考勤机怎么更改数据 - ？
布航复方： 得力指纹考勤机可以通过软件或导出数据来修改考勤记录. 1、可以通过软件修改考勤.在软件的菜单第二项,有一个考勤处理,用于处理员工请假或忘签到的处理,可以手动增加记录. 2、可以导出数据在EXCEL里进行修改考勤.每款考勤机...

璧山县19276983128： 得力考勤机3960指纹考勤机EXCEL文件修改密码是多少? - ？
布航复方： 修改cxcel表的密码是:AAAABBAABBBO(最后一位是字母O). 【拓展】 1.指纹机的厂家对导出的excel是进行加密的,为了保护自己的产权,所有呢一般售后也是不会告诉你的,所以呢原表是没有办法更改的. 2.很简单的方法是,只需要你新建一个表,把原表复制 粘贴 即可.

璧山县19276983128： 得力考勤机导出的excel表格密码怎么修改 - ？
布航复方： 1、首先第一步就是进行单击工作簿窗口左上角的“office”按钮,在下拉菜单中单击“另存为”命令,打开“另存为”对话框.2、接着这时候就是要在“另存为”对话框中,单击“工具”的下拉按钮,注意的这时候要进行打开工具的下拉菜单...

璧山县19276983128： 得力指纹考勤机如何无痕修改、增加考勤记录 - ？
布航复方： 得力指纹考勤机无痕修改、增加考勤记录方法如下: 1、修改时间就在菜单系统设置里面的时间日期里面设置. 2、如果管理员权限考勤机锁了,可以把考勤机连接电脑用考勤机的系统进入里面把管理员更改掉 从而也可以改时间了. 3、进入员工维护下的考勤设置,将考勤有效去除就可以. 4、设置一个无需签到退的时段,并生成一个班次,将该班次应用于对应的人员即可.

璧山县19276983128： 得力的考勤机导出的表怎么更改 - ？
布航复方： 不管任何考勤机,都要和电脑软件连接的情况下,然后下载数据,那个软件上可以排版,然后到报表里就可以查询记录了,报表里会有一个导出的功能,然后就导出你要的文档

璧山县19276983128： 从考勤机里导出的记录是记事本形式怎么将文件转换为EXCEL格式 - ？
布航复方： 方法如下: 1、打开(双击就行)指纹考勤机下载的考勤记录并全选(CTRL+A); 2、打开EXCEL并右击A列; 3、粘贴; 4、选中A列并分列就行.

璧山县19276983128： 得力3968考勤机导出之后的数据可以修改吗?怎样修改 - ？
布航复方： 导出的数据一般是不可以修改的,你可以另存一份表格,然后修改. 只要是操作,总会有迹可循.