Excel VBA質問箱 IV

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

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


22778 / 76732 ←次へ | 前へ→

【59331】Re:シート保護のパスワードを利用して
回答  arajin  - 08/12/6(土) 18:47 -

引用なし
パスワード
   パスワード候補を入力させたら、その入力値でロック解除を試せばいいのではないですか?

Private Sub CommandButton1_Click()
Dim ret As Variant
With ActiveSheet
  If .ProtectContents Then
    ret = Application.InputBox("パスワードをどうぞ", Title:="パスワード入力", Type:=2)
    If VarType(ret) = vbBoolean Then Exit Sub
    On Error GoTo ErrHndl
    .Unprotect ret
    On Error GoTo 0
    ActiveCell.Value = 12
    .Protect ret
  Else
    ActiveCell.Value = 12
  End If
End With
Exit Sub
ErrHndl:
  MsgBox Err.Description, vbExclamation
End Sub


(注意)
・シート保護は、パスワードロックされている前提です。
・厳密にやるなら、例えばシート保護時のオプション指定がある場合には、
解除前に各々現設定を記憶しておいて、再度保護かける際には、
元の設定と同様に設定してやる必要があるでしょう。

0 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 お礼

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