Gruppe
Datei
Problem
Der Speichern-Befehl soll abgefangen werden. Danach soll die Arbeitsmappe mit Schreib-/Leseschutz und einem dem Anwender nicht bekannten Passwort ("MeinPasswort") gespeichert werden.
ClassModule: DieseArbeitsmappe
Dim bln As Boolean
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
If bln = False Then
Cancel = True
bln = True
ThisWorkbook.SaveAs _
FileName:=Range("B1").Value & "\test.xls", _
Password:="MeinPasswort"
End If
Application.DisplayAlerts = True
End Sub