Öffnen und schliessen bei Schutz
16.08.2007 13:34:00
chris58
Kann mir wer sagen, was ich machen muß um diesen code ausführen zu können. Das Tabellenblatt "Benutzer" ist mittels Paßwort geschützt. Ich will Änderungen in dieses Blatt schreiben lassen. Bisher hat alles wunderbar geklappt, doch nun geht das nicht mehr. Weiß nicht, warum ?
Kann mir wer helfen ?
danke
chris
Option Explicit
Dim oldValue As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Application.EnableEvents = False
With Worksheets("Benutzer")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(lngZeile, 1).Value = Environ("UserName") 'Benutzer
.Cells(lngZeile, 2).Value = Date 'Datum
.Cells(lngZeile, 3).Value = Time 'Zeit
.Cells(lngZeile, 4).Value = Sh.Name 'Blattname, auf dem geändert wurde
.Cells(lngZeile, 5).Value = Target.Address 'Zelle der Änderung
.Cells(lngZeile, 6).Value = Target.Value 'neuer Eintrag
.Cells(lngZeile, 7) = oldValue 'vorheriger Wert
End With
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
oldValue = Target
End Sub
Private Sub Workbook_Open()
Tool.Show
End Sub