Excel-VBA: - Bestätigung auf Drücken der Befehlsschaltfläche

Beim drücken mein CommandButton, ich würde gerne ein pop-up fragt "können Diese änderungen nicht rückgängig gemacht werden. Es wird empfohlen, um eine Kopie zu speichern, bevor Sie fortfahren. Möchten Sie fortfahren?"

Willst und ich haben drei Optionen:

  1. Ja - pop-up-Fenster wird geschlossen und CommandButton-Makro ausgeführt wird
  2. Nein - Dies schließt das pop-up-Fenster und es ändert sich nichts
  3. Speichern - schließt das pop-up-Fenster und öffnet das "Speichern unter" (makro wird nicht ausgeführt)

Ich weiß wirklich nicht, wo Sie anfangen mit diesem. Könnten Sie bitte geben Sie mir eine hand?

Danke vielmals.

Verwenden VbMsgBoxStyle.vbYesNoCancel, oder erstellen Sie neue form. Wenn Sie auf Windows Vista oder höher, die Sie nutzen könnten fancy-system messageboxes, aber das ist eher Thema für fortgeschrittene.
Ich habe dies kurz nach meiner sub-code beginnt. Dies ergibt folgende Fehlermeldung: "Ungültige Verwendung von Eigentum". Wie muss ich diesen code verwenden? Dank Mike.

InformationsquelleAutor jcv | 2013-05-30

  1. 17

    Können Sie eine message-box, aber das ist etwas begrenzt. Sie können formulieren Sie die Frage etwas zu verwenden, die vbYesNoCancel Tasten, da Save As ist nicht eine optionale Taste zur Message-Box.

    Dann können Sie die Arbeit mit dem Ergebnis des message-box-Taste-klicken Sie auf:

    Dim mbResult as Integer
mbResult = MsgBox("These changes cannot be undone. Would you like to save a copy before proceeding?", _
 vbYesNoCancel)

Select Case mbResult
    Case vbYes
        'Modify as needed, this is a simple example with no error handling:
        With ActiveWorkbook
            If Not .Saved Then .SaveAs Application.GetSaveAsFilename()
        End With
    Case vbNo
        ' Do nothing and allow the macro to run

    Case vbCancel
        ' Do NOT allow the macro to run
        Exit Sub

End Select
    +1 Auch eine, Wenn Nicht ActiveWorkbook.Gespeichert Dann so, dass Sie don ' T sogar Fragen, ob die Arbeitsmappe bereits gespeichert sind.
    danke für die Anregung, ich habe es.
    Dies funktioniert hervorragend, vielen Dank 🙂

    InformationsquelleAutor David Zemens

  2. 6

    Ich schlage vor, Sie setzen code am Anfang von deinem makro diese Frage zu stellen und auf die Antwort.

    Dieser würde so Aussehen:

    Sub YourMacro()

  if MsgBox("These changes cannot be undone. It is advised to save a copy before proceeding. Do you wish to proceed?", vbYesNo + vbQuestion) = vbNo then
    exit sub
  end if

  ... the rest of your macro.

    Beachten Sie, dass dies nicht geben dem Anwender die Save-option. Sie können nicht tun, mit einem standard-MsgBox. Wenn Sie das tun wollen, müssen Sie erstellen Sie Ihre eigenen userform zeigen, dass statt der MsgBox und reagieren auf das, was button in der Userform die user geschoben. Das ist eine Menge mehr für Sie arbeiten als nur mit einer MsgBox, aber wenn Sie wollen, dass Ihre Benutzeroberfläche zu sein einbilden, kann es sich lohnen.

    Dies funktioniert hervorragend, vielen Dank 🙂

    InformationsquelleAutor GTG

Schreibe einen Kommentar