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

AlexZZZ · 21 май 2009, 23:33

Предположим, нужные данные хранятся на "Лист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", если не включит макросы. На оставшемся листе можете сделать надпись "Включите макросы!" и, при желании, инструкцию для "чайников", как это сделать.

sergiksergik · 21 май 2009, 23:40

А ... все понял.. дошло.. что требовалось.....
Спасибо...