|
Hallo zusammen,
ich nutze ein einfaches Makro, das mir, sobald ich eine Eingabe ich Spalte A mache, das aktuelle Datum + Zeit in Spalte B schreibt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target.Offset(0, 1)
.NumberFormat = "dd.mm.yyyy, hh:mm:ss"
.Value = Now()
End With
End If
End Sub
Nun möchte ich, dass die Zellen in Spalte A nach Eingabe gesperrt werden, sodass der Wert nicht überschrieben werden kann.
Dazu habe ich folgendes gefunden:
1. Spalte A markieren und via Zellen formatieren unter dem Reiter Schutz das Häkchen bei gesperrt entfernen
2. Unter dem Reiter Überprüfen das Blatt mit einem Passwort schützen.
3. Folgenden Code einfügen:
Sub Worksheet_Change(ByVal Target As Range)
With Target
Me.Unprotect "Password"
Application.EnableEvents = False
.Locked = True
Application.EnableEvents = True
Me.Protect "Password"
End With
End Sub
Ohne mein Zeitmakro funktioniert das Passwortmakro wunderbar. Sobald ich beide kombiniere, bekomme ich folgenden Fehler:
Laufzeitfehler '1004':
Die NumberFormat-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Kann mir jemand erkären, wo der Fehler liegt? Oder lassen sich diese beiden Makros gar nicht miteinander kombinieren?
Vielen Dank für Eure Hilfe!
Ju
|