Jawab Excel 2010 Metadata

  • 10 Mei 2012 21:21
     
     
    I need to prevent Excel 2010 from saving the Last Saved By Metadata to Excel files. Is there someway I automate this process? I know I can go into the file properties and remove properties and personal information. But I have a client who wants it to be automatic and they don't want to have to manually remove the info every time someone edits the document.

    Vincent Sprague

Semua Balasan

  • 11 Mei 2012 9:45
    Moderator
     
     

    Hi,

    Use this code can do it:

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

    ThisWorkbook.BuiltinDocumentProperties("Last Author") = ""

    End Sub


    Jaynet Zhang

    TechNet Community Support

  • 11 Mei 2012 12:14
     
     
    Ok, where do I put it? I'm assuming it's a macro correct?

    Vincent Sprague

  • 11 Mei 2012 12:44
    Moderator
     
     Jawab

    Hi,

    It's not a macro, it's an event.

    Press Alt+F11, in the left, choose "ThisWorkbook", then in the right, choose "Workbook" and "BeforeSave", then the structure of the sub will show automatically.

    In the sub, just copy this code:

    ThisWorkbook.BuiltinDocumentProperties("Last Author") = ""


    Jaynet Zhang

    TechNet Community Support

    • Ditandai sebagai Jawaban oleh Baron164 11 Mei 2012 17:27
    •  
  • 11 Mei 2012 17:19
     
     Jawab

    Doesn't seem to be working. When I go to the properites of the Excel documents and go down to "Last Saved By" it still shows the person who saved the document last.

    Ok, I got it, I had to use this command.

    ThisWorkbook.RemovePersonalInformation = True


    Vincent Sprague


    • Diedit oleh Baron164 11 Mei 2012 17:27 add solution
    • Ditandai sebagai Jawaban oleh Baron164 11 Mei 2012 17:27
    •