Bom dia!!!

Conta quantas vezes o arquivo foi aberto.

Private Sub Workbook_Open()
Dim eCount As Range
Set eCount = Plan1.Cells(1, 1) 'Será contado em A1 da planilha (Plan1)

If eCount.Value < 10 Then
        eCount.Value = eCount.Value + 1
    Else
        'Faça sua senha
End If
End Sub