.xls-Datei passwortgeschützt speichern
29.01.2003 16:32:17
RoDiMa
u.g. Code ist aus dem Archiv. Wenn ich diesen ausführe, dann wird mir eine .xlt-Datei erstellt.
Wo muss ich etwas ändern, damit die Original-.xls in ein anderes Verzeichnis Password-geschützt kopiert wird? Dies soll nur der Anwender können, dem das Passwort bekannt ist.
Also:
Anwender beendet die Anwendung. Bei Änderungen kommt ja: wollen Sie die Änderungen speichern?. Dies soll jeder können.
Password-Kenner soll dies natürlich auch können und zusätzlich die Sicherung mit PW.
Vorhandene .xls soll nach Abfrage überschrieben werden können, oder auch nicht.
Mfg
RoDiMa
Sub SaveAndBackup()
Dim sName As String, sMsg As String
On Error GoTo ERRORHANDLER
sMsg = "Bitte Pfad und Dateinamen angeben:"
sName = ActiveWorkbook.FullName
sName = InputBox( _
prompt:=sMsg, Default:=sName)
If sName = "" Then Exit Sub
ActiveWorkbook.SaveAs FileName:=sName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
Exit Sub
ERRORHANDLER:
MsgBox "Datei konnte nicht gespeichert werden!"
End Sub
Anzeige