Fare controllo prima della chiusura del file.

[nima]

Buonasare a tutti,
quando chiudo un file excel, con la X in alto a sinistra del video, vorrei con una macro fare un controllo e cioè confrontare il valore di due celle che deve essere uguale.
Se il valore è diverso mi deve comparire un MSGBOX dove mi avvisa dell'errore e poter correggere prima della chiusura finale del file.
Sono riuscito a fare il controllo prima della chiusura, fare comparire il MSGBOX ma una volta dato l'ok il file si chiude e non ho possibilità di correggere....
mi potreste aiutare?...Grazie!!

[Anthony47]

Probabilmente hai usato una macro di Workbook_BeforeClose... Nell' If che ti fa uscire il msgbox devi aggiungere l'istruzione

Codice: Seleziona tutto

Cancel = True


Ciao

[nima]

Buonasera,
ho provato a fare la modifica come suggerito ma non ci sono riuscito.
Allego il file con la macro .... potresti controllare..... grazie


http://we.tl/oLuepypNaE

[Anthony47]

Basta mettere il codice (che ora richiami) direttamente all'interno della Private Sub Workbook_BeforeClose.

Ciao

[nima]

Caro Anthony,
scusa se insisto ma ho provato nuovamente a fare quello che mi suggerisci ma senza risultato..... potresti dare uno sguardo al file allegato?
Ti ringrazio.....
ciao

[Anthony47]

Ma io il file l'avevo appunto guardato, e avevo subito visto che l'istruzione Cancel era messa nel posto sbagliato.
Non avevo notato che, avendoti io detto " devi aggiungere l'istruzione Cancel = True", tu avessi in realta' aggiunto "Cancel = False"; diciamo che non me lo aspettavo...
Sostituisci la tua Sub Workbook_BeforeClose con questa:

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'CODICE PROVENIENTE DA "controllo_chiusura":
Dim I As Long
' Controllo_chiusura
Sheets("Prova").Select
For I = 4 To 15
    If Cells(10, I).Value <> Cells(11, I).Value Then
        Cancel = True
        MsgBox ("Forse hai dimenticato di compilare qualcosa ?!?!? Oppure hai sbagliato qualche valore ..........controlla bene grazie!")
    Else
        '
    End If
Next I
'    MsgBox ("Foglio compilato correttamente..... bravo!")
End Sub


Ciao