Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6643 / 13644 ツリー ←次へ | 前へ→

【43963】インプットボックスを使って保護パスワード設定 とく 06/10/31(火) 11:57 質問[未読]
【43969】Re:インプットボックスを使って保護パスワ... ひげくま 06/10/31(火) 12:45 回答[未読]
【44049】Re:インプットボックスを使って保護パスワ... とく 06/11/1(水) 20:41 お礼[未読]

【43963】インプットボックスを使って保護パスワー...
質問  とく  - 06/10/31(火) 11:57 -

引用なし
パスワード
   いつもこちらの掲示板にお世話になっております。
今回もアドバイス頂けると助かります。

やりたいこと
インプットボックスを使ってシートの保護パスワードを任意文字でかける。
キャンセルまたは空白の場合は、パスワードをかけず処理を続行する。

作ったコード

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を押しても、保護がかからず
また、キャンセルを押しても保護がかからない。

宜しくお願いします。

【43969】Re:インプットボックスを使って保護パス...
回答  ひげくま  - 06/10/31(火) 12:45 -

引用なし
パスワード
   ▼とく さん:
こんにちは。

まずは、インプットボックスに何を入力したら、Sh_passwordには何が入るのかを確認してみてください。
・文字を入力したらどうなるのか。
・文字を入力しないでOKを押したらどうなるのか。
・キャンセルを押したらどうなるのか。

あとは、[F8]で、1行ずつ実行してみて、どの場合にどういう流れになっているのかを確認すれば、今回の問題は解決すると思いますよ。

【44049】Re:インプットボックスを使って保護パス...
お礼  とく  - 06/11/1(水) 20:41 -

引用なし
パスワード
   ▼ひげくま さん:
ありがとうございました。
解決しました。

今後もお世話になると思いますが宜しくお願いいたします。

6643 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free