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



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
Tags: Excel, Excel 2010, propertie, workbook, Excel.RemoveDocumentInformation


Nenhum comentário:

Postar um comentário

diHITT - Notícias