Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen

Gruppe

Speichern

Problem

Der Datei-Speichern-Dialog soll gemeinsam mit dem Dialog zur Festlegung eines Paßwortes aufgerufen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Speichern()
   Dim Results As Variant
   SendKeys "%xg{tab}"
   Results = Application.Dialogs(xlDialogSaveAs).Show
   If Results = False Then
      Exit Sub
   Else
      MsgBox "Gespeichert"
   End If
End Sub