Private Sub Worksheet_BeforeDoubleC

質問

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
Target.Value = Date
End If
If Target.Column = 5 Then
Target.Value = Date
End If
End Sub
これは、他の方の回答で４列と5列のどこかをダブルクリックすると日付が入力されました。

しかし、シートの保護を入れるとダブルクリックしても入力されません。

それで、例えば、B３セルとかC3セルとかの特定のセルをダブルクリックすると日付が入力されるようにできませんか？宜しくお願いします。

回答No.1

fujillin · ベストアンサー

ちゃんと、確認していませんが…

保護された状態のセルには書き込みできませんので、
　1）シートの保護の際に、操作対象のセルは保護からはずしておく。
または、
　2）マクロ内で保護/解除を行なう。
のどちらかで可能かと思われます。

2）の場合は
Worksheet.Protect/Unprotect で可能だったと思います。password付きの場合は、引数で Password:="1234" 見たいな感じ。
（ソースにダイレクトにpasswordを書くことの是非はありますが）
「保護解除」→「記入」→「保護」の手順で行なえばよろしいかと思います。

補足

他の回答で、なんとかうまく出来ました。その後放置しておいて回答者様に返事を出さなくてすみません
でした。

１）特定のセル（例B３、B8など）の保護を解除はしてありましたが、シート全体を保護をかけると
　　ダブルクリックしても日付は入力できませんでした。

２）のマクロ内にパスワードを入れておくと、他のセルに入力してある式が表示されて、変更可能になり　　ませんでしょうか？

　マクロやVBAについては全く解らないレベルです。

私のようなレベルの人に回答をありがとう御座いました。またとんちんかんな質問をするかもしれませんが、その時宜しくお願いします。

以上です。