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