Eliminazione foglio manda KO Excel

Hai un problema con Excel?

Nuova discussione

Eliminazione foglio manda KO Excel
di marinoernestoch data: 13/01/2014 11:54:26
Buon giorno.
Un altro problema da ieri:
Ho inserito nella macro di auto_close la cancellazione di un foglio.
Se il foglio da cancellare non è presente, Excel alla chiusura segnala se voglio salvare la cartella e anche a risposta affermativa chiude regolarmente.
Se invece il foglio da cancellare è presente, viene cancellato e se, alla domanda di Excel di salvare la cartella, si risponde SI, appare a video "Excel ha smesso di funzionare" e "tentativo di far ripartire ". A volte ripristina la cartella, a volte no!; se all'ultima domanda si risponde NO, Excel chiude regolarmente, anche dopo aver eliminato il foglio. Quindi le condizioni contemporanee di eliminazione foglio e salvataggio documento vanno in cresh. Qualcuno mi può aiutare? rigrazio

Sub Auto_Close()
    Call distruggilabarra_ga    'elimino barra personalizzata della cartella 
    On Error Resume Next      ' elimino interruzione per errore
    With Application.CommandBars("Servizi aggiunti")
        .Visible = True             ' visualizzo la barra personalizzata generica              
    End With
    Application.DisplayAlerts = False    ' chiedo che non mi vengano fatte domande (non funziona?)
    Sheets("DA CANCELLARE").Delete   ' cancello il foglio: se non c'è foglio, scende in sequenza 
    On Error GoTo 0

End Sub

Vuoi Approfondire?