|
いつもこちらの掲示板にお世話になっております。
今回もアドバイス頂けると助かります。
やりたいこと
インプットボックスを使ってシートの保護パスワードを任意文字でかける。
キャンセルまたは空白の場合は、パスワードをかけず処理を続行する。
作ったコード
Dim Sh_password As String
Sh_password = InputBox(Prompt:="シートを保護します。" & vbCrLf & "保護パスワードを設定してください。")
Select Case Sh_password
Case False
GoTo lavel
Case True
Sheets("テスト1").Protect Password:=Sh_password, DrawingObjects:=True, contents:=True, Scenarios:=True
Sheets("テスト1").EnableSelection = xlNoSelection
Sheets("テスト2").Protect Password:=Sh_password, contents:=True, Scenarios:=True
End Select
lavel:
困っていること
上記コードを使うと、パスワードを入力してOKを押しても、保護がかからず
また、キャンセルを押しても保護がかからない。
宜しくお願いします。
|
|