Blattschutz
10.01.2004 14:28:39
René
Ich habe eine Frage ,mit folgendem VBA Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.NoteText "WKZ am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " durch " & Environ("username") & " " & ActiveWorkbook.BuiltinDocumentProperties(7).Value & " geändert."
End Sub
kann man die Änderungen der Zellen mit einem Kommentar ausgeben lassen ,das Funktioniert auch super .
Wenn man jedoch den Blattschutz aktiviert funzt es nicht mehr .
Fehler : Laufzeitfehler 1004 die Note Text- Methode des Range Objektes konnte nicht ausgeführt werden .
Weiterhin möchte ich das nur Änderungen in Spalt A mit Kommentar versehen werden
Wer kann mir hier weiterhelfen
Vielen Dank
René