Gruppe
Datei
Problem
Der Datei-Speichern-Dialog soll gemeinsam mit dem Dialog zur Festlegung eines Paßwortes aufgerufen werden.
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