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

Для подсчёта количества открытия файла и вывода результата в ячейке 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()
Для работы этого кода достаточно выбрать любой из трёх предложенных вариантов или использовать