✔ Programação GLOBAL®: VBA Excel 2010 - Remova as propriedades da sua Planilha - Remove Various Properties Using Excel.RemoveDocumentInformation

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