■概要
全シートに固定で設定されているパスワードを解除する。

■例
Sub Macro1()
    For i = 1 To Sheets.Count
        Sheets(Sheets(i).Name).Select
        ActiveSheet.Unprotect Password:="password"
    Next i
End Sub