"Speichern unter" mit Passwort, "Speichern" ohne
03.08.2016 12:24:44
Markus
mit meinem Einstiegswissen in VBA komme ich leider nicht mehr weiter und habe auch nichts in Foren zu dem Thema gefunden.
Ich möchte eine Excel-Datei erstellen, die von den Benutzern nur unter dem gleichen Namen gespeichert werden kann. Dementsprechend soll das "Speichern unter" durch ein Passwort geschützt werden.
Bisher kann ich nur das Speichern generell mit einem Passwort schützen.
Den folgenden Code hierzu habe ich so im Internet gefunden.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim pw As String
pw = InputBox("Speicherpasswort eingeben")
If Not pw = "MeinPasswort" Then
Cancel = True
MsgBox "Keine Speicherberechtigung"
Else
Cancel = False
End If
End Sub
Nun muss man wohl irgendwie eine Verzweigung einbauen, damit das Prozedere nur durchlaufen wird, wenn "Speichern unter" verwendet wird.
Nur habe ich bisher keine Möglichkeit entdeckt wie ich detektieren kann, welcher der beiden Speicherbefehle verwendet wurde.
Es wäre super wenn mir hierbei jemand helfen könnte.
Freundliche Grüße, Markus