Excel VBA質問箱 IV

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

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


22727 / 76732 ←次へ | 前へ→

【59382】Re:シートの保護について
質問  ムラ  - 08/12/9(火) 11:46 -

引用なし
パスワード
   説明が足りなくて申し訳ありません。

下のようなコードを書きました↓
下のコードのどこが間違っているかわからないです。

まずシート全体を保護しておき、
ブックを開いたときにPasswdが"k"のときは3つのワークシート全体の保護を解除します。それはうまく行きました。
そしてPasswdが"k"以外のものが入った時はセル範囲P1〜O65535までの範囲の保護のみを解除したいのです。
Excel2000でどのようにすれば実現できるか御教授頂きたいです。

Private Sub Workbook_Open()
  Dim kami As String
  Dim densi As String
  Dim setubi As String
  kami = "a"
  densi = "b"
  setubi = "c"
  Passwd = InputBox("パスワードを入力してください。", "ログイン")
  If Passwd = "k" Then
    Worksheets(kami).Unprotect Password = "k"
    Worksheets(densi).Unprotect Password = "k"
    Worksheets(setubi).Unprotect Password = "k"
  Else
    Worksheets(kami).Activate
    Range("P1:O65535").Unprotect Password = "k"
    Worksheets(densi).Activate
    Range("P1:O65535").Unprotect Password = "k"
    Worksheets(setubi).Activate
    Range("P1:O65535").Unprotect Password = "k"
    
    Worksheets(kami).Activate
    Range("A1").Select
  End If

0 hits

【59378】シートの保護について ムラ 08/12/9(火) 10:11 質問
【59380】Re:シートの保護について 鼠後輩 08/12/9(火) 11:27 発言
【59382】Re:シートの保護について ムラ 08/12/9(火) 11:46 質問
【59383】Re:シートの保護について ponpon 08/12/9(火) 12:27 発言
【59385】Re:シートの保護について ムラ 08/12/9(火) 13:26 質問
【59387】Re:シートの保護について トト 08/12/9(火) 14:34 発言
【59389】Re:シートの保護について ムラ 08/12/9(火) 15:17 お礼
【59388】Re:シートの保護について ponpon 08/12/9(火) 14:46 発言

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