Kein aufheben des Blattschutzes
15.02.2016 23:02:24
Daniel
ich habe eine EXCEL Datei, wo ich in einer Zelle per Doppelklick ein Kalender aufrufe und das Datum einfügen möchte.
Das Tabellenblatt ist geschützt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 9 Then
ActiveSheet.Unprotect
frmCalendar.Show
Anfragen.TextBox1 = g_datCalendarDate
ActiveSheet.Protect
Else
Cancel = True
End If
End Sub
Woran liegt es?
Danke
Anzeige