エクセルVBAでPWを要求し、シートの保護を解除する方法

2016/08/29 16:15

このQ&Aのポイント

エクセルの表作成で、数値以外の部分はシートで保護されています。しかし、編集ボタンを押すとPWを要求され、正しいPWが入力された場合はシートの保護が解除され、内容を変更することができます。再度ボタンを押すとPWがある状態に戻ります。もしPWが間違っている場合は、「違います」と表示し、終了するマクロを作成する方法を教えてください。
エクセルで作成した表では、数値以外の部分はシートで保護されており、変更することができません。しかし、特定のボタンを押すとPWを要求され、正しいPWが入力された場合はシートの保護が解除され、任意の内容を変更することができます。
エクセルの表作成時に、数値以外の部分はシートで保護されており、変更することができません。しかし、PWを要求するボタンを作成し、正しいPWが入力された場合はシートの保護が解除され、内容を変更することができます。再度ボタンを押すとPWが要求され、再びシートが保護されます。

jikkenn
お礼率58% (181/310)

Excel（エクセル）
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ushi2015
ベストアンサー率51% (241/468)

2016/08/29 16:53 回答No.2

こんにちはフォームボタンとして Sub ボタン1_Click() 　　On Error Resume Next 　　If ActiveSheet.ProtectContents = False Then 　　　　ActiveSheet.Protect "pass", UserInterfaceOnly:=True 　　Else 　　　　ActiveSheet.Unprotect InputBox("パスワードを入力する") 　　　　If Err.Number <> 0 Then 　　　　　　MsgBox "間違ってます" 　　　　End If 　　End If 　　On Error GoTo 0 End Sub とかでも。

質問者

お礼 2016/08/30 10:22

ありがとうございますできました

その他の回答 (1)

kkkkkm
ベストアンサー率66% (1742/2617)

2016/08/29 16:30 回答No.1

ボタンのマクロに以下のコードを関連付けてください。 Sub Example() With Sheets("Sheet1") If .ProtectContents = False Then .Protect Password:="1234" Else .Unprotect End If End With End Sub