✔ Programação GLOBAL®: VBA Excel - Removendo várias propriedades

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

| Blog Office VBA | Blog Excel | Blog Access |

À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.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.

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