Criar um AutoNumber - JJoão (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