MsgBox attiva macro prima di chiudere file Excel 2013

Question

Buongiorno Community,

vorrei sapere come far si che alla chiusura di un file excel, prima che lo stesso si chiuda, dia un messaggio (MsgBox) all'utente in cui chiede di attivare o meno una macro già presente nel file excel. 

MsgBox del tipo "Hai fatto girare la macro1?" se si allora chiude il file se no fa partire la "macro1" dando anche un altro MsgBox in cui avverte l'utente che la macro1 ha girato.

Grazie

Answer 1

Ciao DolphinC,

Nel modulo ThisWorkbook (Questa_cartella_di_lavoro), incolla qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Const sNomeDelMacro As String = "Macro1"

    Dim Res As VbMsgBoxResult, Res2 As VbMsgBoxResult

    Res = MsgBox( _

          Prompt:="Hai fatto girare la " & sNomeDelMacro, _

          Buttons:=vbYesNo, _

          Title:="AVVERTIMENTO")

    If Res = vbNo Then

        Res2 = MsgBox( _

               Prompt:="Voi girare la macro " & sNomeDelMacro & " ora?", _

               Buttons:=vbYesNo, _

               Title:="AVVIA MACRO1?")

        If Res2 = vbYes Then

            Application.Run sNomeDelMacro

            If Err.Number = 0 Then

                Call MsgBox( _

                     Prompt:="La macro " & sNomeDelMacro & " e' stata avviata", _

                     Buttons:=vbInformation, _

                     Title:="REPORT")

            End If

        End If

    End If

End Sub

'<<=========

Potresti scaricare il mio file di prova Dolphin20160523.xlsm a:

https://www.dropbox.com/s/cfvgg3uxpr9so74/Dolphin20160523.xlsm?dl=0

===

Regards,

Norman

Answer 2

Ciao DolphinC,

Ti ringrazio per il cortese riscontro.

Per chiudere questo thread, vorrei chiederti gentilmente di segnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

===

Regards,

Norman

Answer 3

Grazie! Sei un grande!