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

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

Предположим, нужные данные хранятся на "Лист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
Сообщения: 3
Зарегистрирован: 26 янв 2009, 21:41

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