Как сделать так, чтобы при открытии файла уникальный номер увеличивался (подсчёт количества открытия файла)?

Для подсчёта количества открытия файла и вывода результата в ячейке A1, разместите в любом стандартном модуле :

Private Sub Auto_Open()
    Worksheets(1).Cells(1) = Worksheets(1).Cells(1) + 1 ' Вариант I.
    Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1) + 1 ' Вариант II.
    Worksheets(1).Range("A1") = Worksheets(1).Range("A1") + 1 ' Вариант III.
End Sub

• Если в ячейку A1 будут введены данные отличные от числовых, то Вы получите ошибку.
• Для решения поставленной задачи, можно также использовать события рабочей книги, например Workbook_Open()
• Для работы этого кода достаточно выбрать любой из трёх предложенных вариантов или использовать