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