通过只输入一次密码而不是每个＆amp;每张纸

Question

我目前正在使用以下代码取消保护工作簿中的3张表格。问题是我必须插入密码3次，即每张纸一次。有没有办法只通过输入一次密码来解锁所有这3张纸。工作簿中还有其他工作表受保护但使用不同的参数。页数可以从3开到20，我不想输入密码20次。

Sub UnProtectWS()
    Dim ws As Worksheet
    Dim WSArray As Variant
    Dim password As String

    Set WSArray = Sheets(Array("sheet1", "sheet2", "sheet3"))
    For Each ws In WSArray
         ws.Unprotect password:="welcome"
    Next
End Sub