vba - 循环遍历每个打开的 WB 中的每个 WS 并取消保护

Question

我需要完成一项任务，涉及整理大量工作簿中的数据，我已将它们全部放在同一个文件夹中，并且都是 *xlsm 文件。我已经有一个宏来从每张工作表中获取数据并将其全部输入到主工作表中，就像我之前所做的那样。

现在每个工作表都受到密码保护以限制用户，我需要:

-打开每个工作簿-循环遍历每张纸并使用密码解锁(“我有”)

目前，以下代码打开每个工作簿并解锁当前事件的工作簿，但不会循环遍历每个打开的工作簿。

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
Dim wb As Workbook
Dim ws As Worksheet
Dim pwd As String

pwd = "password"

'_______Opens every excel file in folder_______

MyFolder = "Test"

MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop

For Each wb In Application.Workbooks
    For Each ws In Worksheets
      ws.Unprotect Password:=pwd
    Next ws
Next wb

End Sub

谢谢

Answer 1

这是您要找的吗？

Option Explicit

Public Sub tmpSO()

Dim wb As Workbook
Dim ws As Worksheet

For Each wb In Application.Workbooks
    For Each ws In wb.Worksheets
        ws.Unprotect "Which I have"
    Next ws
Next wb

End Sub