Diesmal dreht sich mein Anliegen um das entsperren von geschützten Zellbereichen, welche durch ein Makro beschrieben und danach wieder gesperrt werden sollen.
Schreibe ich die entsprechenden Anweisungen nach folgendem Code, erhalte ich die Fehlermeldung "Laufzeitfehler '1004': Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Option Explicit
Dim Mdlg
Private Sub OptionButtonPrivatJa_Click()
If OptionButtonPrivatJa = True Then
Dim Mdlg, Titel, Voreinstellung, Wert1
Mdlg = "Hier die gefahrenen Privatkilometer eingeben:"
Titel = ""
Voreinstellung= ""
Wert1 = InputBox(Mdlg, Titel, Voreinstellung)
If Wert1 = "" Or Wert1 = "0" Then
OptionButtonPrivatNein = True
Else: Worksheets("Montag").Range("U18:X18").Locked = False
[U18] = Wert1
Worksheets("Montag").Range("U18:X18").Locked = True
End If
End If
End Sub
Private Sub OptionButtonPrivatNein_Click()
If OptionButtonPrivatNein = True Then
Worksheets("Montag").Range("U18:X18").Locked = False
Worksheets("Montag").Range("U18:X18").ClearContents
Worksheets("Montag").Range("U18:X18").Locked = True
End If
End Sub
Bitte hierbei (mal wieder) um Eure Unterstützung.
mfg, Dan