Hallo Leute,
ich möchte gerne das Speichern in meiner Arbeitsmappe verhindern.
Dazu gibt es ja reichlich Codes hier., hab mir diesen ausgesucht
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Jetzt habe ich aber einen CommandButton womit man Speichern kann. Kann man dort die Speicherfunktion aktiviert lassen?
Hintergrund ist dieser, dass dort abfragen gemacht werden, dass nur Speichern möglich ist wenn bestimmte Zellen gefüllt sind.
Deaktiviere ich jetzt mit dem oben genannten Code das Speichern, so funktioniert der Button natürlich nicht mehr.
Hab noch einen schönen Code gefunden wo ich als Admin nur die datei speichern kann.
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = "Oliver" Then Exit Sub
MsgBox "Darfst Du nicht!"
Cancel = True
End Sub
Kann mir jemand sagen wie ich den Usernamen richtig eintrage wenn er zwei Namen hat? Also vor und Nachname? Mit Komma getrennt? Weil er nimmt es bei mir nicht an.
Bsp. Max,Mustermann --> If Application.UserName = "Max,Mustermann" Then Exit Sub
|