Gruppe
Datei
Bereich
Speichern
Thema
Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen
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