Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
For Each rng In Target
watchChanges Sh.Name, rng.Address(0, 0), rng.Value
Next
End Sub
Sub watchChanges(sSheet As String, sCell As String, vValue As Variant)
Dim strFile As String, strUser As String, strDateTime As String
Dim strMsg As String, strSep As String
strUser = Application.UserName
strDateTime = Format(Now, "dd.MM.yy - hh:mm:ss")
strSep = ";"
strFile = "C:\test.txt"
strMsg = strDateTime & strSep & strUser & NeuerBearbeiter & strSep & sSheet & _
strSep & sCell & strSep & CStr(vValue)
Open strFile For Append Shared As #1
Print #1, strMsg
Close #1
End Sub
Jezt meine Frage: Gibt es die Möglichkeit, Tabellenblätter von diesem Protokoll auszunehmen ?
Oder sogar nur ein Tabellenblatt mit dieser Methode zu protokollieren ?
Vielen Dank schon einmal !
LG
Gero