Views

Histats

Vitrine

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

Inline image 1

À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


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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...