Speichern trotz fehlender Erlaubnis
Stefan
bitte helft mir mal auf die Sprünge. In meiner Auftragsliste haben 2 Personen Speicherberechtigung, die anderen können nur reinsehen. Um Passwortabfragen zu vermeiden habe das so gelöst:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Benutzer = Environ("Username")
If Benutzer = "Meier" Or Benutzer = "Müller" Then
Exit Sub
Else
MsgBox "Sie haben keine Speicherberechtigung !"
End If
Cancel = True
End Sub
Funktioniert auch gut. Problem: Ich habe eine versteckte Tabelle (Userhistorie) in der bei jedem Start Username, Uhrzeit Beginn und Uhrzeit Ende geloggt werden (nur um zu sehen ob die Datei überhaupt genutzt wird, die Datenschützer werden es mir hoffentlich nachsehen).
Logischerweise kann die Userhistorie aufgrund obiger Abfrage nicht gespeichert werden. Habt Ihr eine Idee, wie ich nach Öffnen der Datei und Eintrag in die Userhistorie speichern kann, ab dann aber wieder die obige Abfrage gilt ?
Besten Dank und einen sonnigen Tag noch.
Gruß
Stefan