Inserire la data ultima modifica in Piè di pagina Excel 2013

Question

Salve a tutti avrei la necessità di crearmi un modello all'interno del quale inserire nella Piè di pagina il valore Data Ultima Modifica in modo ad ogni salvataggio la data si aggiorni automaticamente.

Sapete darmi qualche indicazione?

Grazie

Answer 1

Salve a tutti avrei la necessità di crearmi un modello all'interno del quale inserire nella Piè di pagina il valore Data Ultima Modifica in modo ad ogni salvataggio la data si aggiorni automaticamente.

Sapete darmi qualche indicazione?

Grazie

Prova a copiare l'evento qui sotto nel modulo di codice di ThisWorkook (o Questa_cartella_di_lavoro se utilizzi le versioni di Excel dalla 2010 in poi):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh.PageSetup

        .LeftFooter = Format(Now, "dd/mm/yyyy")

        .CenterFooter = ""

        .RightFooter = ""

    End With

    Set sh = Nothing

End Sub

Se non hai mai utilizzato vb, vedi qui:

http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Io ho messo la data nella parte dx del piè di pagina:

        .LeftFooter = Format(Now, "dd/mm/yyyy")

        .CenterFooter = ""

        .RightFooter = ""

Puoi metterlo al centro modificando così la parte di codice:

        .LeftFooter = ""

        .CenterFooter = Format(Now, "dd/mm/yyyy")

        .RightFooter = ""

O metterlo a dx così:

Puoi metterlo al centro modificando così la parte di codice:

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = Format(Now, "dd/mm/yyyy")

Answer 2

Grazie per la soluzione. Insieme ad un mio collega lo abbiamo leggermente modificato.

<cut>

Così ci abbiamo messo l'autore della modifica e non cancella il contenuto del center e right footer.

Grazie

Bene!

Grazie per il cortese riscontro e alla prossima.

Answer 3

Grazie per la soluzione. Insieme ad un mio collega lo abbiamo leggermente modificato.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim sh As Worksheet

Set sh = ThisWorkbook.Worksheets("Foglio1")

With sh.PageSetup

.LeftFooter = sh.Application.UserName & " - " & Format(Now, "dd/mm/yyyy" & " " & "hh:mm:ss")

'.CenterFooter = ""

'.RightFooter = ""

End With

Set sh = Nothing

End Sub

Così ci abbiamo messo l'autore della modifica e non cancella il contenuto del center e right footer.

Grazie