Ich möchte meine Datei mit Passwort speichern.
Das Passwort wird über UF erfragt.
Irgendwie funktioniert meine Version nicht:
'Pswort wurde als "Public As String" gesetzt.
'und wird auch übertragen (mit F8 Einzelschritt getestet)
Sub Speichern()
ActiveWorkbook.SaveAs FileName:="Test.xls", _
FileFormat:=xlNormal, Password:=Pswort, WriteResPassword:=Pswort, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Da ich in der Excel Recherche nicht gefunden habe, frage ich nun euch, ob mir Jemand weiterhelfen kann?
besten Dank und freundliche Grüsse
Domi