Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Speichern-Befehl abfangen und unter Paßwort speichern

Gruppe

Speichern

Problem

Der Speichern-Befehl soll abgefangen werden. Danach soll die Arbeitsmappe mit Schreib-/Leseschutz und einem dem Anwender nicht bekannten Passwort ("MeinPasswort") gespeichert werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der Arbeitsmappe ein.

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