VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Speichern-Befehl abfangen und unter Paßwort speichern

Gruppe

Datei

Bereich

Speichern

Thema

Speichern-Befehl abfangen und unter Paßwort 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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Speichern