Re: Ограничение количества запусков файла.
Добавлено: 21 май 2009, 23:33
Предположим, нужные данные хранятся на "Лист2", тогда в модуль "ЭтаКнига помещаем такой код:"
Тогда пользователь, просто не увидит "Лист2", если не включит макросы. На оставшемся листе можете сделать надпись "Включите макросы!" и, при желании, инструкцию для "чайников", как это сделать.
Код: Выделить всё
Private Sub Workbook_Open()
'Сюда можете поместить выше приведённый код счётчика открытий
ThisWorkbook.Sheets("Лист2").Visible = -1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
.Sheets("Лист2").Visible = 2
.Save
.Close
End With
End Sub