Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

savecopyas

savecopyas
19.02.2004 10:19:01
Jonathan
Hallo!
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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: savecopyas
19.02.2004 10:21:25
AndreasS
Hi,
probiers mal damit:
myPfad = "N:\Produktionslisten\Lebensversicherung\Sicherung"
myDatei = ThisWorkbook.Name
myDate = Format(Now, "YY-MM-DD")
myTime = Format(Now, "hh-mm-ss")
myUser = Environ("Username")
ActiveWorkbook.Unprotect = "xyz"
ActiveWorkbook.SaveCopyAs Filename:=myPfad & "\" & myDatei & " " & "Date " _
& myDate & " " & "Time " & myTime & " " & "durch " & myUser & " " & "Sicherung.XLS"
ActiveWorkbook.Protect = "xyz"
Gruß Andreas
AW: savecopyas
19.02.2004 10:25:49
Jonathan
Hallo Andreas!
Damit wird doch das Workbook geschützt (Extras - schutz - arbeitsmappe schützen), oder?
ich wollte aber das Lesekennwort damit setzen.........

Liebe Grüße
Jonathan
Anzeige
AW: savecopyas
19.02.2004 10:41:50
AndreasS
Hi,
jetzt hab ichs kapiert:
ActiveWorkbook.SaveCopyAs Filename:=myPfad & "\" & myDatei & " " & "Date " _
& myDate & " " & "Time " & myTime & " " & "durch " & myUser & " " & "Sicherung.XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Gruß Andreas
:-)
19.02.2004 11:10:53
Jonathan
Hallo!
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
wofür stehen die anderen Befehle in der Zeile?
Dank Dir!
Liebe Grüße
Jonathan
AW: :-)
19.02.2004 11:19:42
AndreasS
Hi,
hier mal ein Auszug aus der Hilfe:
CreateBackup-Eigenschaft:
True, wenn beim Speichern der Datei eine Sicherungsdatei erstellt wird. Boolean Schreibgeschützt.
ReadOnlyRecommended-Eigenschaft:
True, wenn die Arbeitsmappe mit Schreibschutz empfehlen gespeichert wurde. Boolean Schreibgeschützt.
Anmerkungen
Beim Öffnen einer Arbeitsmappe, die mit Schreibschutz empfehlen gespeichert wurde, empfiehlt Ihnen Microsoft Excel in einer Meldung, die Arbeitsmappe als schreibgeschützt zu öffnen.
Verwenden Sie die SaveAs-Methode, um diese Eigenschaft zu ändern.
FileFormat:=xlNormal -> speichern als Standardformat.
Gruß Andreas
Anzeige
AW: savecopyas
19.02.2004 11:12:43
Jonathan
ich merke gerade, dass die argumente nichtr gefunden werden.
kann es sein, dass dies nur bei dem befehl saveas möglich ist?
savecopyas, NOCH OFFEN
19.02.2004 11:21:23
AndreasS
Hi,
kann sein. Das weiß ich auch nicht. Vielleicht kennt sich ja jemand anderes damit aus!?
Gruß Andreas
dank Dir für Deine Hilfe!!! o.T.
19.02.2004 11:24:55
Jonathan

82 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige