Schutz deaktivieren
Andre
stehe mal wieder vor einer Herausforderung. Vielleicht könnt ihr mir dabei helfen.
Ich führe den u.g. Code bei gesperrter Tabelle aus. Nur gibt er mir dabei eine Fehlermeldung. Denke es hängt mit der Tabellenblattsperre/-schutz zusammen, da ohne Schutz geht es.
Ich schreibe in eine Zelle in der Spalte A, dabei bekomme ich Datum und Benutzernamen paar Spalten weiter angezeigt.
Was kann ich machen damit beim Eintrag in A kurz der Schutz umgangen wird?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a8:a100")) Is Nothing Then
Cells(Target.Row, Target.Column + 10) = Date
Cells(Target.Row, Target.Column + 11) = Environ("username")
End If
End Sub
Vielen Dank im Voraus.
Gruß
André
Anzeige