Для подсчёта количества открытия файла и вывода результата в ячейке A1, разместите в стандартном модуле :
Sub Auto_Open()
Worksheets(1).Cells(1) = Worksheets(1).Cells(1) + 1 ' Вариант № 1.
'Worksheets(1).Cells(1, 1) = Worksheets(1).Cells(1, 1) + 1 ' Вариант № 2.
'Worksheets(1).Range("A1") = Worksheets(1).Range("A1") + 1 ' Вариант № 3.
'Выберите один из вариантов иначе они будут отрабатывать все и суммироваться!
End Sub
- В ячейку A1 нельзя вносить данные. Если Вы внесёте числовые данные - то они приплюсуются к уже имеющимся, если отличные от числовых, то Вы получите ошибку.
- Можно также использовать события рабочей книги, например Workbook_Open()