Помогите с вопросами (двумя).. нужно выдать пользователю UserForm, у которой отсутствуют границы... точнее, ровное серое поле с кнопочками будет отображаться, но все границы и кнопки закрытия появляться не будут. Суть именно в этом и больше ни в чем)) не в отключении кнопки закрытия и т.п.
Второй - запретить показ скрытых листов (кнопочка "показать" неактивна). Видел такое, а как бы сделать..
Помогите с вопросами (двумя).. нужно выдать пользователю UserForm, у которой отсутствуют границы... точнее, ровное серое поле с кнопочками будет отображаться, но все границы и кнопки закрытия появляться не будут. Суть именно в этом и больше ни в чем)) не в отключении кнопки закрытия и т.п.
Второй - запретить показ скрытых листов (кнопочка "показать" неактивна). Видел такое, а как бы сделать..w00t
Сообщение отредактировал w00t - Вторник, 17.09.2013, 23:37
Со вторым я точно ступил.. а первое - форма маленькая. Но титлбар и границы по бокам и внизу - не нужно их вообще. Это не просто vba, а с api но моих сил не хватит..(
Со вторым я точно ступил.. а первое - форма маленькая. Но титлбар и границы по бокам и внизу - не нужно их вообще. Это не просто vba, а с api но моих сил не хватит..(w00t
Спасибо! То что нужно, проверил по быстрому понатыкав PtrSafe и LongPtr везде (64 bit). Но если будет время, как правильнее - кому оставить в IF VBA 7 Long а кому LongPtr.... :/
Спасибо! То что нужно, проверил по быстрому понатыкав PtrSafe и LongPtr везде (64 bit). Но если будет время, как правильнее - кому оставить в IF VBA 7 Long а кому LongPtr.... :/w00t
Уважаемые, остался всетаки последний вопрос. У меня на форму вот этот последний vba и еще вдобавок есть UserForm_Activate(). Т.е. данный vba в модуле авторизации стоит.. Конкретно вот http://excelvba.ru/tools/Authentication Так вот, хотелось бы открытии продолжать скрывать все листы. С помощью IsAddin
[vba]
Код
Private Sub workbook_open() ThisWorkbook.IsAddin = True: UserForm1.Show 0 'здесь появляется форма авторизации, если пользователь натыкивает верно данные - ок, ему отображаются все листы. ThisWorkbook.IsAddin = False: Unload.Me 'если у юзера авторизация не проходит - книга закрывается. End Sub
[/vba]
С обычной формой все было ок, при таком способе excel полагает, что юзер отказался от авторизации (а может и не полагает, а просто форму не отдает, она отобразится на секунду и по факту пустой эксель без листов - который можно закрыть) и закрывает книгу.
Помогает только если убрать IsAddin и вместо закрытия прописать, какой лист юзеру отдать - но в таком случае хоть 1 лист - но будет виден. И данный vba работает отлично с формой авторизации.
Существует ли с этой такая возможность, или я бред говорю?
Уважаемые, остался всетаки последний вопрос. У меня на форму вот этот последний vba и еще вдобавок есть UserForm_Activate(). Т.е. данный vba в модуле авторизации стоит.. Конкретно вот http://excelvba.ru/tools/Authentication Так вот, хотелось бы открытии продолжать скрывать все листы. С помощью IsAddin
[vba]
Код
Private Sub workbook_open() ThisWorkbook.IsAddin = True: UserForm1.Show 0 'здесь появляется форма авторизации, если пользователь натыкивает верно данные - ок, ему отображаются все листы. ThisWorkbook.IsAddin = False: Unload.Me 'если у юзера авторизация не проходит - книга закрывается. End Sub
[/vba]
С обычной формой все было ок, при таком способе excel полагает, что юзер отказался от авторизации (а может и не полагает, а просто форму не отдает, она отобразится на секунду и по факту пустой эксель без листов - который можно закрыть) и закрывает книгу.
Помогает только если убрать IsAddin и вместо закрытия прописать, какой лист юзеру отдать - но в таком случае хоть 1 лист - но будет виден. И данный vba работает отлично с формой авторизации.
Существует ли с этой такая возможность, или я бред говорю?w00t