Question

跪求大神破解xls文件密码

Answer 1

你建立个宏复制以下就可以了，并切是批量解密。但不建意使用这类手段破解他人文件，于情于理于法都不合适，且使用宏易中病毒，本人无必需是不使用宏的。
Sub jiami()
Dim mypath As String, xlsname As String
Dim wbk As Workbook
mypath = ThisWorkbook.Path
xlsname = Dir(mypath & "\" & "*.xls")
Application.DisplayAlerts = False
Do While xlsname <> ""
If xlsname <> ThisWorkbook.Name Then
Set wbk = Workbooks.Open(mypath & "\" & xlsname)
wbk.Password = "123456"
wbk.Close savechanges:=True
End If
xlsname = Dir
Loop
Application.DisplayAlerts = False
End Sub
Sub jiemi()
Dim mypath As String, xlsname As String
Dim wbk As Workbook
mypath = ThisWorkbook.Path
xlsname = Dir(mypath & "\" & "*.xls")
Application.DisplayAlerts = False
Do While xlsname <> ""
If xlsname <> ThisWorkbook.Name Then
Workbooks.Open (mypath & "\" & xlsname), Password:="123456"
ActiveWorkbook.Password = ""
ActiveWorkbook.Close savechanges:=True
End If
xlsname = Dir
Loop
Application.DisplayAlerts = False
End Sub

追问

不会啊

求帮忙

追答

录制宏会不？随意录制一个动作，然后打开宏文件删除内容把我给你的复制进去，运行

追问

不会，电脑渣

追答

上网看一下如果用宏，别中毒哦，这个不用但得会，有些时候还真需要宏来解决工作中问题。我也都是自己在网看的，一点点熟悉

Answer 2

文件传给我，破解好了传回去。

追问

你的邮箱

追答

九品芝麻官