AW: Letzter Benutzer der Datei speichern
06.03.2019 13:41:05
Bernd
Servus Memo,
wie sollen denn Besucher gespeichert werden, ohne dass man die Datei speichert und dadurch automatisch den Code ausführt? Das wird (zumindest in dieser Konstellation) nicht funktionieren.
Was die Sichtbarkeit angeht würde ich ggf. über eine Abfrage des Nutzers die Sichtbarkeit einstellen.
Als Ansatz:
Private Sub Workbook_Open()
If Environ("Username") "Dein Name" Then
Sheets("Protokoll").Visible = xlVeryHidden
Else
Sheets("Protokoll").Visible = True
End If
End Sub
Allerdings müsstest du in diesem Fall auch den ersten Code in der ersten und letzten Zeile ergänzen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Protokoll").Visible = True
With Sheets("Protokoll")
.Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Environ("Username")
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Date
.Cells(.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Time
End With
Sheets("Protokoll").Visible = xlVeryHidden
End Sub
Grüße, Bernd