VBA Excel - Removendo várias propriedades - Remove Various Properties

Às vezes não desejaremos que quaisquer documentos que gerarmos com o MS Excel contenha detalhes de onde foi gerado, ou mesmo por quem ele foi gerado.

Em outros momento vamos querer exatamente o contrário. Que nosso Dashboards, Reports, Scorecards saiam da 'fábrica' com suas propriedades definidas.

Como fazemos para determinar previamente o conteúdo das propriedades dos nossos documentos?

Sub TestRemoveDocumentInformation() 

  ' Set up a named range with a comment: 

  Dim nm As Name 

  Set nm = Names.Add(Name:="TestNamedRange", _ 

   RefersToR1C1:="=Sheet1!R1C1:R7C3") 

  nm.Name = "NamedRange" 

 

   ' You can see the comment by clicking the Formulas tab menu and then  

   ' clicking Name Manager. 

  nm.Comment = "Here is a comment" 

  

  ' Set some document properties: 

  Dim props As Office.DocumentProperties 

  Set props = ActiveWorkbook.BuiltinDocumentProperties 

  props("Author").Value = "Author Name" 

  props("Subject").Value = "Test Document" 

  

  ' Add a comment, which will include your name. 

  ' Removing information will convert author name to Author 

  

  Dim cmt As Comment 

  Set cmt = Range("B3").AddComment 

  cmt.Visible = False 

  cmt.Text "This is a test" 

 

  ' Remove comments, defined name comments, personal information, and document properties. 

  ActiveWorkbook.RemoveDocumentInformation xlRDIComments 

  ActiveWorkbook.RemoveDocumentInformation xlRDIDefinedNameComments 

  ActiveWorkbook.RemoveDocumentInformation xlRDIRemovePersonalInformation 

  ActiveWorkbook.RemoveDocumentInformation xlRDIDocumentProperties 

  

End Sub

Reference: Excel.RemoveDocumentInformation.txt 

Tags:  VBA, Excel, Office 2010 101 code samples, remove comments