VBA Excel 2010 - Remova as propriedades da sua Planilha - Remove Various Properties Using Excel.RemoveDocumentInformation

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Quais desenvolvedores precisamos nos preocupar com a aplicação que distribuímos ou com as que desenvolvemos e entregamos a outros.

É importante permitir que tais arquivos resultantes das nossas aplicações estejam sem as nossas propriedades pessoais neles.

Trabalharemos com o método RemoveDocumentInformation. Adicionando um intervalo nomeado com um comentário em algumas propriedades do documento, além de um comentário.

No Excel 2010, em uma nova planilha, copie todo o código para um novo módulo de classe com o nome Sheet1. Coloque o cursor no procedimento TestRemoveDocumentInformation e pressione F8 para única etapa através do código. Verifique se os vários itens são adicionados nesta única etapa, e são removidos no final.

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

Anexos:

Excel.RemoveDocumentInformation.txt

Tags: Excel, Excel 2010, propertie, workbook, Excel.RemoveDocumentInformation