aggiungere opzione annulla in una msgbox

Question

Salve alla chiusura di un foglio di Excel si esegue questa routine e si avvia una msgbox:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Dim Scelta As String

  Scelta = MsgBox("SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste? SICURO di aver ricontrollato le cifre che hai indicate?", vbInformation + vbYesNo, "Scelta")

  If Scelta = vbYes Then

    MsgBox "Bene! Arrivederi alla prossima! Ciao", vbInformation, "Titolo"

  Else

    MsgBox "Per Favore ricontrolla.", vbExclamation, "Titolo"

  End If

End Sub

Quello che accade è che anche se l'utente risponde No alla domanda "SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste etc"

Appare "Per Favore ricontrolla" ma dopo l'ok il file si chiude lo stesso.

Ora vorrei che dopo "per favore ricontrolla" o ci fosse l'opzione annulla che cliccata fa rimanere il file aperto, o comunque dopo l'iter negativo il file restasse aperto per un ricontrollo.

In altre parole il file si deve chiudere solo con attuando il perscorso del SI.

spero di essere stato chiaro.

Grazie dell'aiuto

Answer 1

Funziona. Il file si può chiudere solo rispondendo a SI

Infatti quando l'utente risponde Si riceve un messaggio e cliccando su Ok sceglie le opzioni di salvataggio.

E se volessi anche inserire un messaggio alla risposta No?

Come accade col suggerimento di AndyCap?

           

Aggiungi la stessa riga di Andrea sotto a Cancel = True nell'Else.

Answer 2

Perfetto.

Grazie

Answer 3

Salve alla chiusura di un foglio di Excel si esegue questa routine e si avvia una msgbox:

 

<cut>

In altre parole il file si deve chiudere solo con attuando il perscorso del SI.

spero di essere stato chiaro.

Grazie dell'aiuto

Io direi che più che vbInformation sia vbQuestion, no? Inoltre, quello che viene restituito *non* sarebbe una stringa. Dalla guida:

 

Visualizza un messaggio in una finestra di dialogo e attende che l'utente scelga un pulsante, quindi restituisce un valoreInteger che indica quale pulsante l'utente ha scelto.

 

 

    Dim lRisposta As Integer

   

    lRisposta = MsgBox("SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste?" _

        & vbNewLine & "SICURO di aver ricontrollato le cifre che hai indicate?", vbYesNo + vbQuestion, "Scelta")

       

    If lRisposta = vbYes Then

        'quello che vuoi se l'utente preme Sì

    Else

        Cancel = True

    End If

 

   

 

Funziona. Il file si può chiudere solo rispondendo a SI

Infatti quando l'utente risponde Si riceve un messaggio e cliccando su Ok sceglie le opzioni di salvataggio.

E se volessi anche inserire un messaggio alla risposta No?

Come accade col suggerimento di AndyCap?

Answer 4

Salve alla chiusura di un foglio di Excel si esegue questa routine e si avvia una msgbox:

 

<cut>

In altre parole il file si deve chiudere solo con attuando il perscorso del SI.

spero di essere stato chiaro.

Grazie dell'aiuto

Io direi che più che vbInformation sia vbQuestion, no? Inoltre, quello che viene restituito *non* sarebbe una stringa. Dalla guida:

Visualizza un messaggio in una finestra di dialogo e attende che l'utente scelga un pulsante, quindi restituisce un valoreInteger che indica quale pulsante l'utente ha scelto.

    Dim lRisposta As Integer

    lRisposta = MsgBox("SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste?" _

        & vbNewLine & "SICURO di aver ricontrollato le cifre che hai indicate?", vbYesNo + vbQuestion, "Scelta")

    If lRisposta = vbYes Then

        'quello che vuoi se l'utente preme Sì

    Else

        Cancel = True

    End If

Answer 5

Salve alla chiusura di un foglio di Excel si esegue questa routine e si avvia una msgbox:

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Dim Scelta As String

  Scelta = MsgBox("SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste? SICURO di aver ricontrollato le cifre che hai indicate?", vbInformation + vbYesNo, "Scelta")

  If Scelta = vbYes Then

    MsgBox "Bene! Arrivederi alla prossima! Ciao", vbInformation, "Titolo"

  Else

    MsgBox "Per Favore ricontrolla.", vbExclamation, "Titolo"

  End If

End Sub

 

Quello che accade è che anche se l'utente risponde No alla domanda "SICURO di aver Spiegato SEMPRE le differenze quando ti sono state chieste etc"

Appare "Per Favore ricontrolla" ma dopo l'ok il file si chiude lo stesso.

Ora vorrei che dopo "per favore ricontrolla" o ci fosse l'opzione annulla che cliccata fa rimanere il file aperto, o comunque dopo l'iter negativo il file restasse aperto per un ricontrollo.

In altre parole il file si deve chiudere solo con attuando il perscorso del SI.

spero di essere stato chiaro.

Grazie dell'aiuto

Ciao,

devi annullare l'operazione di chiusura, così:

If Scelta = vbYes Then

    MsgBox "Bene! Arrivederi alla prossima! Ciao", vbInformation, "Titolo"

  Else

    Cancel = True

    MsgBox "Per Favore ricontrolla.", vbExclamation, "Titolo"

End If

Ciao,

Andrea.