Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Entsperren einer markierten Zelle

Entsperren einer markierten Zelle
26.02.2020 10:14:18
Peter
Liebe Forianer,
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Entsperren einer markierten Zelle
26.02.2020 10:18:35
Torsten
Hallo Peter,
lass einfach das

Range("E60").Select
weg, dann wird immer die gerade markierte Zelle angesprochen.
Gruss Torsten
AW: Entsperren einer markierten Zelle
26.02.2020 10:20:39
Nepumuk
Hallo Peter,
so:
Public Sub Zelle_entsperren_sperren()
If ActiveCell.Locked Then
ActiveSheet.Unprotect "XXX"
ActiveCell.Locked = False
ActiveCell.FormulaHidden = False
ActiveSheet.Protect "XXX"
Else
ActiveSheet.Unprotect "XXX"
ActiveCell.Locked = True
ActiveCell.FormulaHidden = False
ActiveSheet.Protect "XXX"
End If
End Sub

Gruß
Nepumuk
AW: Entsperren einer markierten Zelle
26.02.2020 10:22:48
Heribert
Das sollte es tun:
Sub Zelle_entsperren_sperren()
If Selection.Locked = True Then
ActiveSheet.Unprotect "XXX"
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect "XXX"
Else
ActiveSheet.Unprotect "XXX"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect "XXX"
End If
End Sub

Anzeige
AW: Entsperren einer markierten Zelle
26.02.2020 14:26:28
Peter
Liebe Forianer,
ihr habt mir alle sehr geholfen. Vielen Dank!!!
Gruß Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige