Avviso se non viene attivata Macro prima della chiusura del File

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
enri1969
00mercoledì 9 maggio 2018 16:28
Intanto buongiorno
Mi spiego meglio
Vorrei che in un file (tipo quello che allego come esempio) comparisse un avviso (da qualche parte nel foglio) che mi ricordasse di attivare almeno una volta la Macro presente, prima di chiudere lo stesso file.
Pensavo che si potrebbe con una formattazione condizionale (se si riuscisse a contare il numero delle attivazioni della macro)
Sennò ditemi...:)
Spero di essermi spiegato

Nell'esempio che allego, la macro che è associata al pulsante blu, deve essere almeno attivata una volta
Se così non fosse, vorrei apparisse un Avviso (con un pop-up magari)

Grazie e saluto
Enrico


patel45
00mercoledì 9 maggio 2018 17:32
hai allegato un xlsx, quindi senza macro
enri1969
00mercoledì 9 maggio 2018 17:40
Eccolo
Scusate
Enrico
alfrimpa
00mercoledì 9 maggio 2018 18:59
Nel file che hai allegato non c'è nessuna macro.

Comunque alla macro che hai potresti aggiungere un'istruzione di questo tipo che crea una sorta di contatore ogni volta che viene eseguita la macro

vb
Range("ZZ1000") = Range("ZZ1000") + 1


"ZZ1" puoi sostituirlo con una cella a tuo piacere.

Poi con una procedura di questo tipo da inserire nel modulo Questa_cartella_di_lavoro

vb
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("zz1").Value = 0 Then
MsgBox "Eseguire la macro"
Cancel = True
End If
End Sub


controlli il valore della cella zz1; se è uguale a 0 non ti fa chiudere il file.

Ovviamente con una procedura Workbook_Open() dovrai riportare a 0 il valore di ZZ1.

patel45
00mercoledì 9 maggio 2018 19:03
Questa volta invece hai allegato un xlsm, ma senza macro, comunque è possibile capire se hai lanciato una macro soltanto in base agli effetti che produce e che analizzerai con una sub del tipo:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 15:28.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com