Pulsante per uscire senza salv

Hai un problema con Excel?

Nuova discussione

Pulsante per uscire senza salv
di Mickym1973 (utente non iscritto) data: 17/09/2011
Salve a tutti raga, sto facendo un programma nel quale ho inserito l'obbligatorietà di insrimento dati per alcuni campi e uno non può uscire se non li ha compilati tutti. tuttavia, siccome questi campi sono parecchi, vorrei poter dare la possibilità all'utente di interrompere l'immissione e uscire senza salvare. allo scopo volevo creare un pulsante che schiacciadolo in qualsiasi momento interrompesse la sub workbook_beforeclose (cancel =false).
grazie a tutti della collaborazion e buona serata.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'In questa Sub viene controllato se sono state inserite tutte le voci e in caso negativo compare un meg di errore


    Cancel = False
    If Foglio2.COMPILATO.Text = "DA INSERIRE" Or Foglio2.COMPILATO.Text = "" Then
        Cancel = True
        Messaggio = MsgBox("MANCA INDICAZIONE SU -Compilato-", vbInformation, "Avviso")
    End If
    
    If Foglio2.MERCATO.Text = "DA INSERIRE" Or Foglio2.MERCATO.Text = "" Then
        Cancel = True
        Messaggio = MsgBox("MANCA INDICAZIONE SU -Mercato-", vbInformation, "Avviso")
    End If
    
    If Foglio2.LOGO.Text = "DA INSERIRE" Or Foglio2.LOGO.Text = "" Then
        Cancel = True
        Messaggio = MsgBox("MANCA INDICAZIONE SU -Logo-", vbInformation, "Avviso")
    End If
End Sub

Vuoi Approfondire?