VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen

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

    


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