Excel VBA質問箱 IV

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

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


23112 / 76732 ←次へ | 前へ→

【58991】Re:シート保護のパスワードを利用して
発言  ponpon  - 08/11/21(金) 22:10 -

引用なし
パスワード
   ▼プリ さん:
>説明不足です申し訳ありません。
>(1)ユーザーフォームです
  ユーザーフォームですか?

>(2)ActiveCellのアドレスは決まっていません。
>(3)シートの保護は手動です。
>  保護されていない場合もあります。

こんな感じかなぁ・・・

標準モジュールで確かめてよければコマンドボタンで
実行してみてください。
ActiveSheetやActiveCellを使っているので不確実だとは思いますが・・


Sub test()
  Dim res As String
  
  If ActiveSheet.ProtectContents = True Then
    res = Application.InputBox("パスワードをどうぞ", Title:="パスワード入力", Type:=2)
    If res = "password" Then
     Sheet1.Unprotect Password:="password"
     ActiveCell.Value = 12
    Else
     MsgBox "パスワードが違います。 残念!"
     Exit Sub
    End If
  Else
    ActiveCell.Value = 12

  End If
End Sub

2 hits

【58968】シート保護のパスワードを利用して プリ 08/11/20(木) 19:29 質問
【58969】Re:シート保護のパスワードを利用して ponpon 08/11/20(木) 21:31 発言
【58988】Re:シート保護のパスワードを利用して プリ 08/11/21(金) 18:18 お礼
【58989】Re:シート保護のパスワードを利用して ponpon 08/11/21(金) 19:55 発言
【58990】Re:シート保護のパスワードを利用して プリ 08/11/21(金) 21:07 お礼
【58991】Re:シート保護のパスワードを利用して ponpon 08/11/21(金) 22:10 発言
【59330】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 17:54 発言
【59331】Re:シート保護のパスワードを利用して arajin 08/12/6(土) 18:47 回答
【59332】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 19:33 お礼
【59333】Re:シート保護のパスワードを利用して arajin 08/12/6(土) 20:37 回答
【59336】Re:シート保護のパスワードを利用して プリ 08/12/6(土) 23:59 お礼

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