Entsperren einer markierten Zelle
26.02.2020 10:14:18
Peter
ich benötige eure Hilfe da mir hier das korrekte Wissen fehlt.
Hintergrund: Ich möchte zukünftig in einer Arbeitszeitdatei per "Button" eine vorher markierte Zelle entsperren, die aktuelle Systemzeit eintragen und anschließend die Zelle wieder sperren.
Soweit bin ich bis jetzt.
Makro einmal ausführen-->Zelle (E60) wird entsperrt
Makro ein zweites Mal ausführen--> Zelle (E60) wird gesperrt
Sub Zelle_entsperren_sperren()
If Range("E60").Locked = True Then
ActiveSheet.Unprotect "XXX"
Range("E60").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect "XXX"
Else
ActiveSheet.Unprotect "XXX"
Range("E60").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect "XXX"
End If
End Sub
Und hier das Mokro für die aktuelle Zeit.
Sub UhrzeitEinfügen()
ActiveCell.Value = Format(Time, "hh:mm")
End Sub
Hier meine Frage/Problem: Wie muß ich den oberen Code anpassen, dass die Entsperrung sich auf eine vorher markierte Zelle bezieht und nicht wie jetzt auf eine bestimmte Zelle (E60)?
Vielen Dank schon mal.