Doppelklickereignis bei gesperrter Zelle
06.02.2018 17:05:48
Andre
ich habe eine Frage an die Profis.
Ich habe eine Tabelle, in der ich mittels Doppelklick das heutige Datum in mehreren Zellen eingebe.
Folgender Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B13:AF13")) Is Nothing Then 'ANPASSEN
Target = Date
Cancel = True
End If
End Sub
Über folgenden Code werden die beschriebenen Zellen beim schließen gesperrt.Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Merker As Boolean
Dim SH As Worksheet
Merker = Me.Saved
For Each SH In ThisWorkbook.Worksheets
SH.Unprotect "Mein Passwort"
SH.UsedRange.Locked = True
On Error Resume Next
SH.UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
On Error GoTo 0
SH.Protect "Mein Passwort"
Next
If Merker Then Me.Save
End Sub
Das funktioniert auch so weit gut. Wenn ich die Tabelle erneut öffne und auf eine gesperrte Zelle klicke kommt ein Laufzeitfehler.Meine Frage: Ist es möglich das bei Doppelklick auf eine gesperrte Zelle eine Msg Box erscheint "Zelle ist gesperrt" und bei Doppelklick auf eine nicht gesperrte Zelle das Datum eingetragen wird.
Vielen Dank für die Hilfe.
MFG A Karbaum