マクロで複数のシートを保護&パスワードをかける為に下記式を作成しました

質問

マクロで複数のシートを保護&パスワードをかける為に下記式を作成しましたが
エラー”400”のみ出て上手く行きませんでした。
どこか式がおかしいのでしょうか。。。

一応式を入力しておきます。

超初心者でまったく意味がわからないので、どなたか宜しくお願い致しますm(__)m

Sub AllProtect()
Dim sh As Worksheet
Dim myPassword As String
myPassword = InputBox("パスワードを入力してください", "パスワード")

For Each sh In Worksheets
sh.Protect Password:=1234
Next
End Sub

Sub AllUnprotect()
Dim sh As Worksheet
Dim myPassword As String
myPassword = InputBox("パスワードを入力してください", "パスワード")

For Each sh In Worksheets
sh.Unprotect Password:=1234
Next
End Sub

回答No.1

imogasi · ベストアンサー

変数myPasswordにパスワードをセットして置きながら、なぜ
Password:=1234
なのか？
sh.Protect Password:=myPassWordでは。

補足

回答ありがとうございました。
下記に式を変更したのですが、やはり解除の方で400のエラーが出てしまいます。

式は・・・
Sub AllProtect()
Dim sh As Worksheet
Dim myPassword As String
myPassword = InputBox("パスワードを入力してください", "パスワード")

For Each sh In Worksheets
sh.Protect Password:=myPassword
Next
End Sub

Sub AllUnprotect()
Dim sh As Worksheet
Dim myPassword As String
myPassword = InputBox("パスワードを入力してください", "パスワード")

For Each sh In Worksheets
sh.Unprotect Password:=myPassword
Next
End Sub
です。

まだおかしな箇所があるのでしょうか。

もしくは、別の式でも良いので400のエラーが出ない物があれば助かるのですが。。。

あつかましい質問で恐縮ですが宜しくお願い致します。