Kopie mit kennwort

Forumthread: Kopie mit kennwort
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kopie mit kennwort

Kopie mit kennwort

02.09.2007 09:23:00

Bryan

Guten morgen allerseits,
ich hoffe Ihr könnt mir helfen.
Ich habe in einer Datei die nicht Kennwort geschützt werden soll, folgenden Code:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
"L:\ ABGABE\ROH\Sicherheitskopie \Verkauf.xlt"
End Sub

Meine Frage, kann man das so machen das diese Sicherheitskopie Kennwortgeschützt abgespeichert wird?
Gruss Bryan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopie mit kennwort

02.09.2007 11:33:34

Josef
Vielen Dank für die Hilfe. (o.T.)

02.09.2007 11:39:00

Bryan
AW: noch ne andere Frage dazu

02.09.2007 11:53:00

Bryan
AW: noch ne andere Frage dazu

02.09.2007 11:58:07

Josef
AW: und noch ein Dank

02.09.2007 12:17:22

Bryan

AW: Kopie mit kennwort

02.09.2007 11:33:34

Josef

Hallo Bryan,
das gfeht so.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:= _
"L:\ABGABE\ROH\Sicherheitskopie\Verkauf.xls", Password:="test"
End Sub

Gruß Sepp

Vielen Dank für die Hilfe. (o.T.)

02.09.2007 11:39:00

Bryan

AW: noch ne andere Frage dazu

02.09.2007 11:53:00

Bryan

Hallo nochmal,
Kann man die Meldung über das vorhanden sein einer Datei mit diesem Namen und ob diese überschrieben werden soll irgendwie deaktivieren, also das die bestehende Datei grundsätzlich überschrieben wird.
In Verbindung mit dem Code:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.SaveAs Filename:= _
"L:\ABGABE\ROH\Sicherheitskopie\Verkauf.xls", Password:="test"
End Sub

Gruss Bryan

AW: noch ne andere Frage dazu

02.09.2007 11:58:07

Josef

Hallo Bryan,
das geht so.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Me.SaveAs Filename:= _
"L:\ABGABE\ROH\Sicherheitskopie\Verkauf.xls", Password:="test"
Application.DisplayAlerts = True
End Sub

Gruß Sepp

AW: und noch ein Dank

02.09.2007 12:17:22

Bryan

Wenn das bei mir im Kopf auch so schlüssig und einfach auftauchen würde wie`s aussieht wär das ne tolle Sache.
Vielen Dank nochmal und einen schönen Sonntag noch.
Gruss Bryan