Страница 2 из 2

Re: Ограничение количества запусков файла.

Добавлено: 21 май 2009, 23:33
AlexZZZ
Предположим, нужные данные хранятся на "Лист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
Тогда пользователь, просто не увидит "Лист2", если не включит макросы. На оставшемся листе можете сделать надпись "Включите макросы!" и, при желании, инструкцию для "чайников", как это сделать.

Re: Ограничение количества запусков файла.

Добавлено: 21 май 2009, 23:40
sergiksergik
А ... все понял.. дошло.. что требовалось.....
Спасибо...