Sicherungskopie mit Leseschutz erstellen
20.02.2008 15:09:00
Werner
folgendes Problem plagt mich: Ich lasse mit der ersten Hälfte des Codes unten eine Sicherungskopie erstellen (wenn es von dem Datum noch keine gibt), so weit - so gut. Jetzt möchte ich aber noch, dass die Sicherungskopie mit einem Leseschutz versehen wird und das kriege ich bisher trotz Prof. Google nicht hin.
Wer kann mir helfen?
Danke im Voraus!
Werner
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sPfad As String
Dim sdate As String
sdate = Format(Date, "dd/mm/yyyy")
sPfad = "Y:\Irgendwas\Irgendwie\Sicherungen\" & sdate & ".xls"
If Dir(sPfad) "" Then Exit Sub
ActiveWorkbook.SaveCopyAs Filename:=sPfad
For Each Sheet In ThisWorkbook.Sheets
Sheet.Protect Password:="221188"
Sheet.Visible = True
If Sheet.name Environ("Username") And Sheet.name "eins" Then Sheet.Visible = _
xlSheetVeryHidden
Next
Application.ScreenUpdating = True
End Sub