savecopyas
19.02.2004 10:19:01
Jonathan
ich speicher eine Kopie der Datei mit folg. Befehl:
myPfad = "N:\Produktionslisten\Lebensversicherung\Sicherung"
myDatei = ThisWorkbook.Name
myDate = Format(Now, "YY-MM-DD")
myTime = Format(Now, "hh-mm-ss")
myUser = Environ("Username")
ActiveWorkbook.SaveCopyAs Filename:=myPfad & "\" & myDatei & " " & "Date " _
& myDate & " " & "Time " & myTime & " " & "durch " & myUser & " " & "Sicherung.XLS"
die Datei von der die Sicherheitskopie erstellt wird, ist aber kennwort geschützt, wie und wo kann ich hier eingeben, dass die Datei OHNE Kennwort gespeichert wird?
Oder als Variante, dass ein anderes Passwort geannt wird........
ich habe es ausprobiert, mit Password:="XXX"
das klappt aber wohl nicht......
Danke für Eure Hilfe!
Jonathan