如何批量对同一个文件夹内几百个EXCEL文件都同时执行这个宏命令？

Question

Excel都是后轴都是.xls 我的宏命令如下：太长了，我就截两个图

Answer 1

'如果要批量清除工作表保护密码，建议代码如下，否则将粗体字部分代码改成：

'Call 你的程序名称

'（注：如果要批量破解密码，几百个工作簿，上千个工作表，你可能要破解几个月，如果密码复杂点，或许几年都破解不出来，还是建议用以下代码清除为好）

Sub 批量清除工作表保护密码()

Dim myPath$, myFile$, AK As Workbook, sh As Worksheet

Application.ScreenUpdating = False

myPath = ThisWorkbook.Path & "\"

myFile = Dir(myPath & "*.xls")

Do While myFile <> ""

If myFile <> ThisWorkbook.Name Then

Set AK = Workbooks.Open(myPath & myFile)

For Each sh In Worksheets

sh.Protect AllowFiltering:=True

sh.Unprotect

Next

AK.Close True

End If

myFile = Dir

Loop

Application.ScreenUpdating = True

End Sub

Answer 2

一般是可以在VBA里写循环打开文件再执行相应的代码，你可以网上搜索下。
也可把VBA宏代码单独保存文件，然后用批处理批量调用执行。
不过，这去Excel密码的不是有挺多现成工具吗，不是更方便吗。

Answer 3

没试，不过应该需要powershell或Python写脚本

Answer 4

辛苦代码了，要破解这么多的工作簿的工作表的保护密码！