|
▼しおん さん:
>入力可能な結合セルにパスワード付で保護したい
>※2重ロックされることになります。
いまいち2重ロックの意味が解っていませんが、
ワークシートのチェンジイベントで制御するような?
制御したいセルであったら、まずは書き込まれた物を変数に一時保存、
Undoで、元の状態に戻して、パスワードを要求。
パスワードがあっていれば、変数に一時保存したものをセルに書き込む。
ってな感じでしょうか。
B2が左上に当たる結合セルとして、おおざっぱだけど。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 一時保持 As Variant
If Target.Cells(1).Address(0, 0) = "B2" Then
Application.EnableEvents = False
一時保持 = Target.Cells(1).Value
Application.Undo
ans = InputBox("パスワードを入力してください。")
If ans = "123" Then
Target.Cells(1).Value = 一時保持
Else
MsgBox "パスワードが違います。"
End If
Application.EnableEvents = True
End If
End Sub
|
|