Öffnen der Datei mit Passwort schützen
28.05.2017 22:13:34
Kisska
den Öffnungs-Schutz kann man ja einstellen, wenn auf "Speichern unter" geht und da die entsprechende Option wählt.
Ich würde gerne dies mittels VBA lösen.
Hier in Forum habe ich diesen Code gefunden:
Option Explicit
Private Sub Workbook_Open()
Dim strPasswortVorhanden$, strPasswortEingabe$
On Error GoTo ende
strPasswortVorhanden = "Passwort"
strPasswortEingabe = InputBox("Bitte geben Sie das Passwort ein:", "Passwort")
If strPasswortVorhanden strPasswortEingabe Then GoTo schließen
GoTo ende
schließen:
MsgBox "Die datei wird aufgrund eines falschen Passwortes geschlossen!"
'ohne rückfrage speichern
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
ende:
End Sub
Kann man die verstecken bzw. die Datei genauso so schützen wie über die Option von "Speichern unter" ?
Viele Grüße
Kisska