EXCL 2016 破解密码
作为一个IT从业者,大多数人都会遇到各种密码忘记得客户,那么接下来我们先说一种EXCL文件密码破解。
VBA破解
这是一个测试的excl文本,双机打开的时候发现被加密了,密码也忘记了。
1111##
-
第一步 新建一个excl文本
-
第二步同时按住ALT和F11进入VBA (如下图)
-
第三部点击插入,模块
-
第四部将代码复制进去
###代码在底下
-
点击运行
-
第六步在弹出的对话框中选择需要打开的excl,等待破解就行了
##代码如下 代码片
.
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
######到这里破解步骤就结束了,本人QQ481715271
顺便问一句 有没有公司要招IT 定位合肥!!!