Potrebbe essere necessario a volte avere un contatore di quante volte sia stato aperto un determinato file. Il VBA ci viene in contro con l’evento workbook_open a cui assegneremo una macro che legge il valore di una determinata cella che noi decideremo di usare come contatore ne incrementa il valore e poi salva il foglio.

Iniziamo con aggiungere un nuovo foglio

Verrà creato un foglio di nome Foglio4 che noi rinomineremo in Log

Nella cella A1 mettiamo “Aperto” B1 lasciamo vuota perchè farà da contatore ed in C1 scriviamo “volte”

Volendo possiamo nascondere il foglio Log da occhi indiscreti

Ora andiamo all’editor VBA premendo ALT+F11 doppio click nel riquadro di sinistra sulla scritta “Questa_cartella_di_lavoro” e nel menù a tendina al posto di “Generale” selezioniamo “Workbook” e al posto di “Dichiarazioni” scegliamo “Open”

Verrà creata la Private Sub Workbook_Open()  ed incolleremo il seguente codice VBA. Usiamo la variabile Aperto come contatore che incrementiamo e salviamo. In fine aggiungiamo ActiveWorkbook.Save per fare in modo che il file si salvi automaticamente appena aperto in modo da non perdere il conteggio delle volte che il file viene chiuso senza salvare

 

Aperto = Worksheets("Log").Range("B1").Value
Worksheets("Log").Range("B1").Value = Aperto + 1
ActiveWorkbook.Save