Excel VBA質問箱 IV

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

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


37915 / 76732 ←次へ | 前へ→

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

宜しくお願いします。

0 hits

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

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