Schreibschutz
16.08.2020 13:07:40
frank
Hallo Leute,
ich möchte gern, dass meiner Kopie ein Schreibschutz mit (oder ohne) Password zugewiesen wird
Hintergrund: Wenn die Kopie auf ist und das Original wird abgespeichert - kann die Datei nicht überschrieben werden werden - da ja die Kopie noch offen ist.
Könnt ihr bitte mal drüber schauen - bekomme immer Fehler beim Kompilieren und SavecopyAs wird gelb als Fehlerquelle markiert.
Gruß Frank
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Name = "Test_2020.xlsm" Then
ThisWorkbook.Save
Else
Exit Sub
End If
On Error Resume Next
ThisWorkbook.SaveCopyAs "Q:\Frank\Allgemein\Test_2020_Kopie.xlsm", Password:="1234", _
WriteResPassword:="1234"
End Sub