A volte potresti volere che l’intestazione o il piè di pagina contengano la data dell’ultima volta in cui la cartella di lavoro è stata salvata. Normalmente, questa non è un’informazione che puoi impostare in Excel. Tuttavia, puoi utilizzare la seguente macro per forzare le informazioni nella posizione corretta:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

Ci sono diversi elementi da notare in questa macro. Prima di tutto, tenta di determinare l’ultima data (e ora) in cui la cartella di lavoro è stata salvata. Se non è possibile determinare tale informazione, viene estratta la data in cui è stata creata. Infine, se non è possibile trovarlo, imposta il piè di pagina su “Non salvato”.

Si noti che in questa macro viene eseguita una gestione degli errori. Il motivo è che Excel restituirà un errore se una particolare proprietà del documento (BuiltinDocumentProperty in questo caso) non è impostata. L’errore deve essere intercettato e gestito, operazione che viene eseguita qui.

Si noti che questa macro, una volta eseguita, imposterà il piè di pagina sinistro sulle informazioni desiderate. Quelle informazioni non cambieranno di nuovo finché non esegui nuovamente la macro. Pertanto, se si desidera sempre una data aggiornata nel piè di pagina, è necessario eseguire periodicamente la macro (forse subito prima della stampa) o impostarla per l’esecuzione ogni volta che si apre il documento.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2055) si applica a Microsoft Excel 97, 2000, 2002 e 2003.