Este post faz parte de uma série de pedidos de ajuda que ao longo dos anos me foram chegando – (02/2001)
Duvida colocada: “… queria colocar um contador das vezes que o meu livro é aberto, como o posso fazer? “
Solução: Uma macro que cria um item nas propriedades do Livro, incrementando um contador a cada abertura do ficheiro e assim contar as vezes que esse ficheiro foi aberto.
Para ver esse contador basta nas propriedades do livro consultar o “personalizar”.
A macro deve ser colocada no código do livro em EsteLivro (ThisWorkbook).
Private Sub Workbook_Open()
With ActiveWorkbook.CustomDocumentProperties
If ExistCustom("AutoNum") = True Then
.Item("AutoNum").Value = .Item("AutoNum").Value + 1
Else
.Add Name:="AutoNum", _
LinkToContent:=False, _
Type:=msoPropertyTypeNumber, _
Value:=1
End If
End With
End Sub
Private Function ExistCustom(nome) As Boolean
For Each c In ActiveWorkbook.CustomDocumentProperties
ExistCustom = False
If c.Name = "AutoNum" Then ExistCustom = True
Next c
End Function
