AUTO_CLOSE chiudi FOGLI NASCOSTI ...SE sono stati aperti

[scanacc]

Vorrei inserire nel comando Auto_close un comando per chiudere un foglio nascosto nel caso in cui il foglio sia stato aperto. Nel caso invece il foglio non sia stato aperto, il comando non dovrebbe avere seguito.
Grazie per l'aiuto

[Anthony47]

Nel caso invece il foglio non sia stato aperto, il comando non dovrebbe avere seguito.

Perche' vuoi complicarti la vita?

Metti nel modulo QuestaCartellaDiLavoro la macro

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Foglio3.Visible = xlSheetHidden      '<<< Adattare
End Sub


Ribadirei pero' la cosa all'apertura del file (infatti non puoi essere certo che il file venga effettivamente salvato dopo la Sub Workbook_BeforeClose); sempre nel modulo QuestaCartellaDiLavoro:

Codice: Seleziona tutto

Private Sub Workbook_Open()
Foglio3.Visible = xlSheetHidden
End Sub


Nota che ho usato il "CodeName" del foglio di lavoro, perche' il nome foglio potrebbe anche essere modificato dall'utente.

Ciao