“录制新宏”窗口(图):打开该文件

[复制链接]
查看1204 | 回复0 | 2022-12-25 18:56:10 | 显示全部楼层 |阅读模式
第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出;

再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PassWordBreaker,点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next



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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & 【摘要】

得力指纹考勤机导出的考勤报表受密码保护,怎么撤销保护?AAAABBAABBBO这个不对【提问】

第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出;

再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PassWordBreaker,点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22



23

24

25

26

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & 【回答】

希望以上回答对您有所帮助,如果您对我的回答满意的话,麻烦动一下发财的小手点个赞哦~【回答】

用宏代码破解密码:以office2007为例说明,(2003也是一样的,只是菜单命令的位置不同)

第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出;再切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:PassWordBreaker,点击“确定”退出;

第二步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码:

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第三步:再点击“宏”→“查看宏”,选择“宏名”下的“PasswordBreaker”并点击“执行”,密码就现形了。

请添加详细解释

17770195371:得力指纹考勤机导出的考勤报表受密码保护,怎么撤销保护,密码多少.AAAABBAABBBO这个不对 -

胡独轰—— 前往百度APP查看回答第一步:打开该文件,先解除默认的“宏禁用”状态,方法是点击工具栏下的“选项”状态按钮,打开“Microsoft Office安全选项”窗口,选择其中的“启用此内容”,“确定”退出;再切换到“视图”选项卡,点击“宏”...

17770195371:得力考勤机导出的excel表格密码怎么修改 -

胡独轰—— 1、首先第一步就是进行单击工作簿窗口左上角的“office”按钮,在下拉菜单中单击“另存为”命令,打开“另存为”对话框.  2、接着这时候就是要在“另存为”对话框中,单击“工具”的下拉按钮,注意的这时候要进行打开工具的下拉菜单...

17770195371:得力考勤机3960指纹考勤机EXCEL文件修改密码是多少? -

胡独轰—— 修改cxcel表的密码是:AAAABBAABBBO(最后一位是字母O).【拓展】 1.指纹机的厂家对导出的excel是进行加密的,为了保护自己的产权,所有呢一般售后也是不会告诉你的,所以呢原表是没有办法更改的. 2.很简单的方法是,只需要你新建一个表,把原表复制 粘贴 即可.

17770195371:得力考勤机3960指纹考勤机 EXCEL文件修改密码是多少? -

胡独轰—— 付费内容限时免费查看 回答 得力的修改cxcel表的密码是:AAAABBAABBBO把电脑上的excel卸载了,重新再装一个excel,然后你再重新的从excel里导出考勤记录!又或者不先不卸载重新再从考勤机里导一次记录看看!一般导数据有两种方法:1、数据线.用数据线将考勤机和电脑连接好,进入一个叫数据采集或者下载数据的功能模块,进行连接机器和下载.2、U盘下载.将U盘插入机器的USB口,通过键盘上的菜单键进入机器硬件系统,在里面找到一个叫U盘下载的菜单进行下载.下载后再将U盘接回电脑,然后打开考勤软件,里面应该有导入U盘记录的功能模块.点击打开U盘里面的下载文件进行导入.

17770195371:得力考勤机3960怎么设置管理密码,就是导出考勤记录和设置考勤机时间的的密码,研究了好久都没有找到 -

胡独轰—— 你可以 试试按MENU键------用户管理------用户登记------指纹登记或密码登记---------选择密码登记----输入登记号码-----确定-------再输入密码-----确定保存 熙南 一 卡通 门禁机 消费机 考勤机

17770195371:得力指纹考勤机3946Excel图表导出后修改密码是什么 -

胡独轰—— 直接知道密码的情况下,取消密码不就可以了啊 或者直接另存为一张不要密码的表啊!

17770195371:得力考勤机3960指纹考勤机EXCEL文件修改密码是多少? -

胡独轰—— 修改cxcel表的密码是:AAAABBAABBBO(最后一位是字母O)大写字母.

17770195371:得力考勤机excel密码 -

胡独轰—— EXCEL密码:AAAAABBBBBBo解密更改后记得加上不谢~

17770195371:得力考勤机3946Excel表格导出密码是多少. -

胡独轰—— 有报酬可破.

17770195371:得力考勤机33868和3765指纹考勤机 EXCEL文件修改密码是多少 -

胡独轰—— AAABABBBBAAA3你可以试试这个,我这里的是这个,一般说明书里边都会给的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则