Считать количество открытий файла

[Химка]

Ребята!
Как можно сделать подсчет количества открытий рабочего файла?
Что бы в какой-то клеточки было количество?

[Serge 007]

Здравствуйте

Можно макросом на событие открытия книги:

Код Выделить Развернуть

[a1]=[a1]+1

[Химка]

Спасибо
Но как это использовать?

[elovkov]

Вкладка "Разработчик" (если ее нет - включить в настройках ленты)
Кликаем Visual Basic там в левом поле находим "Эта книга" двойной щелчок - в правое поле код

Код Выделить Развернуть

Private Sub Workbook_Open()
[a1] = [a1] + 1
End SubГде a1 - это соответственно адрес ячейки, в которой счетчик должен стоять
может быть соответственно

Код Выделить Развернуть

[Лист1!A1] = [Лист1!A1] + 1ну и так далее, какой адрес надо.
Ну и сохранять с поддержкой макросов файл

[Химка]

Спасибо получилось как написали
Но так считает все открытия файла а надо что бы по сотруднику
Так можно сделать? 

[Serge 007]

надо что бы по сотруднику

По какому ещё сотруднику?
Где об этом написано в топике?

[Химка]

Я объясню
Работают с файлом два сотрудника. Один сменяет другого, вводит в файл рабочую информацию. Чтобы понять кто больше работал надо посчитать кто из них сколько раз открывал файл потоум что ввод информации заканчивается закрытием файла.Это можно сделать?

[Serge 007]

надо посчитать кто из них сколько раз открывал файл

Какие ещё сюрпризы будут?

Работают с файлом два сотрудника

Каждый под своей учеткой?

[Химка]

Да, они меняют другдруга.
Извините

[Serge 007]

Код Выделить Развернуть

Private Sub Workbook_Open()
    Select Case Environ("USERNAME")
        Case "Пользователь1"
            [a1] = [a1] + 1
        Case "Пользователь2"
            [b1] = [b1] + 1
    End Select
End Sub

[Химка]

Serge 007 извините за долгий ответ

Макрос работает, но подсчет нужен каждый день...

[Serge 007]

Ну и считайте каждый день
Что не так?

[Химка]

Макрос продолжает считать на следующий день когда уже другой сотрудник работеат а надо что бы для каждого свой результат был

[Татьянка]

Химка, а если просто утром, когда наступает новая смена, вручную удалять цифру в ячейке подсчета?

[Serge 007]

когда уже другой сотрудник работеат

Что должно происходить, когда начинается смена другого сотрудника?