おしえて

Excel 複数あるシートの保護解除(パスワード付き)

解決済

質問者：tkngats67
質問日時：2019/06/13 16:03
回答数：3件

長文になるかと思いますが、失礼致します。

まず、現状として複数のシートを一気に保護/解除をしたいため色々調べてマクロを組んでみました。
しかし、思うような処理ができず困っています。

【出来るようにしたいこと】
・複数の人が触るファイルだが、一部の人にしか見せたくない部分があるため1～20までの列を非表示にして再表示できないようにしたい。(調べたらシート保護で解決するということでマクロを組んでみた)
・保護をかけても基本的な操作はできるようにしたい(文字の入力や関数の入力等)
・複数のシートを一気に解除する際、パスワードの入力をしないと解除できないようにしたい

上記を踏まえ、今は
Sub 保護()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
s.Protect , AllowFormattingCells:=True
Next s
End Sub

Sub 保護解除()

Dim myPass As Variant
Dim myWS As Worksheet

myPass = InputBox("Password入力")

On Error GoTo エラー
For Each myWS In ThisWorkbook.Worksheets
myWS.Unprotect Password:＝1234
Next

Exit Sub

エラー:
MsgBox (myWS.Name & "のパスワードが違います")
End Sub

とマクロを組んでいます。

保護する際は特に問題が無くできるのですが、
解除の際　1234　以外のパスワードや何も入力しなくても解除してしまいます。

マクロに関して無知なため何が駄目なのかどうしたらいいかわからず
今は誰でも解除できてしまう状態で困っています...

宜しければ、このコードでやってみたらいいよ！というのを教えてい頂きたいです。
説明下手で分かりにくいかと思いますが、宜しく御願い致します。