Passwort speichern unter....

Mit nachstehendem Code kann man eine Arbeitsmappe unter... speichern:
ThisWorkbook.SaveAs FileName:="C:\Download\" & dokname & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Jetzt hätte ich in einem versteckten Arbeitsblatt in dieser Mappe
Z.B. in Zelle J1 ein Password stehen.
Wie könnte ich bitte mittels Vba das Password beim Speichern der Mappe ebenfalls unterbringen.
Z.B:
In J1 test:......FileFormat:=xlNormal, Password:="test", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Danke

Josef