Nome Last Author

Question

Ciao a tutti

Mi capita spesso di inviare dei file excel in alcuni forum dedicati, per suggerire/consigliare la strada (a mio avviso) migliore per la struttura di un determinato lavoro, richiesto dai vari utenti di quel forum.

Tutte le volte, come potrete rilevare dall’immagine acclusa, prima di inviare il file, clicco di destro sul file, entro nelle “proprietà”, “dettagli”, clicco su “Rimuovi proprietà e informazioni personali” e, nella finestra che si apre (a destra dell’immagine), spunto “Rimuovi dal file le proprietà seguenti” spunto “Autore ultimo salvataggio”, OK…OK..

Dopo invio il file.

Questo lo faccio per evitare di inviare le mie informazioni.

Volevo sapere se è possibile tramite codice automatizzare tale procedura su una serie di file excel esterni.

Sono a conoscenza che c’è la funzione “BuiltinDocumentProperties("Last Author") che posso mettere = blank, ma ovviamente nel momento in cui salvo il file, tale proprietà viene nuovamente valorizzata con i miei dati.

Grazie per il vostro interessamento.

domenico

Answer 1

Ciao Domenico,

Mi capita spesso di inviare dei file excel in alcuni forum dedicati, per suggerire/consigliare la strada (a mio avviso) migliore per la struttura di un determinato lavoro, richiesto dai vari utenti di quel forum.

Tutte le volte, come potrete rilevare dall’immagine acclusa, prima di inviare il file, clicco di destro sul file, entro nelle “proprietà”, “dettagli”, clicco su “Rimuovi proprietà e informazioni personali” e, nella finestra che si apre (a destra dell’immagine), spunto “Rimuovi dal file le proprietà seguenti” spunto “Autore ultimo salvataggio”, OK…OK..

Dopo invio il file.

Questo lo faccio per evitare di inviare le mie informazioni.

Volevo sapere se è possibile tramite codice automatizzare tale procedura su una serie di file excel esterni.

Sono a conoscenza che c’è la funzione “BuiltinDocumentProperties("Last Author") che posso mettere = blank, ma ovviamente nel momento in cui salvo il file, tale proprietà viene nuovamente valorizzata con i miei dati.

Da un altro file - magari il tuo Personal.xlsb - avvia la seguente routine:

'=========>>

Option Explicit

'--------->>

Public Sub SaveWorkbookWithoutMyName()

    Dim sStr As String

    On Error GoTo XIT

    With Application

        sStr = .UserName

        .UserName = Chr(160)

        .DisplayAlerts = False

        With ActiveWorkbook

            .RemoveDocumentInformation xlRDIComments

            .RemoveDocumentInformation xlRDIDefinedNameComments

            .RemoveDocumentInformation xlRDIRemovePersonalInformation

            .RemoveDocumentInformation xlRDIDocumentProperties

            .Save

        End With

        .UserName = sStr

XIT:

        .DisplayAlerts = True

    End With

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Norman così in effetti l'avviso di privacy non viene più dato :-)

ciao

Answer 3

Ciao Casanamer,

'=========>>

Public Sub SaveWorkbookWithoutPersonalInfo()

    Dim sStr As String

    With Application

        sStr = .UserName

        .UserName = Chr(160)

        With ActiveWorkbook

            .RemoveDocumentInformation xlRDIAll

            .RemovePersonalInformation = False

            .Save

        End With

        .UserName = sStr

    End With

End Sub

'<<=========

Oppure, più semplicemente:

'=========>>

Option Explicit

'--------->>

Public Sub SaveWorkbookWithoutPersonalInfo()

    With ActiveWorkbook

        .RemoveDocumentInformation xlRDIAll

        .RemovePersonalInformation = False

        .Save

    End With

End Sub

'<<=========

===

Regards,

Norman