Speichern verbot über VBA umgehen
Andy
ich möchte durch eine Userform (UserForm1), die man nur durch ein Passwort aufrufen kann und durch das Klicken auf einen Comman Button das Speichern wieder erlauben.
Das Speichern Unter soll wieterhin gesperrt bleiben.
Jetzt weiß ich aber nicht genau wie ich das schreiben soll.
Nach dem Speichern muss auch eine neue MsgBox kommen, die dem User das Speichern bestätigt.
Das ist der Code der das Speichern untersagt. Der Code befindet sich im VBA Code Bereich DieseArbeitsmappe.
Ich selber kann nur Speichern wenn ich die Makro Sicherheit hoch nehme.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox """Speichern Unter"" ist nicht erlaubt", vbInformation, "Info"
Cancel = True
End If
If Not SaveAsUI Then
MsgBox "Das ""Speichern"" geht nur über den Editor Bereich", vbInformation, "Info"
Cancel = True
End If
End Sub
Hoffe das mir kann einer helfen kann,
Andy
Anzeige