Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]-Finestra di Avviso II- Prima di chiudere file ricordati di... Opzioni
aetio
Inviato: Saturday, September 25, 2010 1:42:44 PM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
ho dei file- le mie strafamose tabelle :)))) - che come ultima operazione, prima di chiuderli, richiede il lancio di una macro che esegua alcune operazioni preparatorie per il prossimo lavoro, una volta riaperti i file. La differenza rispetto alla precedente domanda del thread
http://forum.aiutamici.com/yaf_postst72775_Excel-2007-finestra-di-Avviso.aspx
è che non sempre la macro dev'essere lanciata, per cui sarebbe stra-utile la comparsa un messaggio che "ricordi" di lanciare la macro prima della chiusura, ma che non impedisca comunque la chiusura del file... Qui mi sa che è un "campo minato" perché probabilmente interagisce con i comandi veri e propri di Excel (la chiusura del file...s.o. windows), e non si limita solo ad un'applicazione in ambito VBA.... o sbaglio?
Grazie assai e buona giornata,
eZio
Sponsor
Inviato: Saturday, September 25, 2010 1:42:44 PM

 
a10n11
Inviato: Saturday, September 25, 2010 7:15:04 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
per intercettare la chiusura della cartella di lavoro, basta ricorrere all'evento "BeforeClose" nel modulo
ThisWorkbook.
nella finestra di Vba click Dx. sulla voce thisworkbook ( nella finestra "vbaproject) >visualizza codice

incolla questa macro.:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Rep = MsgBox("Esecuzione macro prima della chiusura" & vbCrLf _
& "Vuoi eseguirla??", vbYesNo, "AVVISO ESECUZIONE MACRO")
If Rep = vbYes Then
Call miamacro
ThisWorkbook.Save
End If
End Sub


nota:

alla chiusura della cartella viene eseguita automaticamente la macro sopra- apparirà un messaggio che
avvisa se si vuole esguire la macro "miamacro" (cambia il nome della macro e metti il tuo)
se si risponde SI viene eseguita e salvata la cartella, se si risponde NO la cartella viene chiusa senza alcuna operazione.
saluti
Giap

aetio
Inviato: Sunday, September 26, 2010 11:25:04 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
come al solito... funziona alla grande!!! Questa è davvero una chicca
Grazie assai e Buona giornata
eZio
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.