Добрый день! у меня при открытии книги, проверяется дата, и если она больше той что указана в макросе, то для открытия запрашивается пароль, если пароль введен не верно, появляется сообщение что введен не правильный пароль. А как сделать так что бы при вводе неправильного пароля книга открывалась, но только для просмотра, без возможности редактирования? [vba]
Код
Private Sub Workbook_Open() If Date > "10/08/2017" Then UserForm1.Show End If End Sub
[/vba]
[vba]
Код
Private Sub ок_Click() If TextBox1.Text = "639" Then UserForm1.Hide _ Else MsgBox "Âû ââåëè íåâåðíûé ïàðîëü! Ïîïðîáóéòå åùå ðàç."
End Sub
Private Sub отмена_Click() ThisWorkbook.Close False End Sub
[/vba]
Добрый день! у меня при открытии книги, проверяется дата, и если она больше той что указана в макросе, то для открытия запрашивается пароль, если пароль введен не верно, появляется сообщение что введен не правильный пароль. А как сделать так что бы при вводе неправильного пароля книга открывалась, но только для просмотра, без возможности редактирования? [vba]
Код
Private Sub Workbook_Open() If Date > "10/08/2017" Then UserForm1.Show End If End Sub
[/vba]
[vba]
Код
Private Sub ок_Click() If TextBox1.Text = "639" Then UserForm1.Hide _ Else MsgBox "Âû ââåëè íåâåðíûé ïàðîëü! Ïîïðîáóéòå åùå ðàç."
End Sub
Private Sub отмена_Click() ThisWorkbook.Close False End Sub
Защиту можно с паролем делать, а при последующем открытии файла убрать защиту (при необходимости и если он был сохранен с защищенными обьектами). Ну и возникнут проблемы если есть ячейки для которых указано [vba]
Код
Locked = False
[/vba]
Защиту можно с паролем делать, а при последующем открытии файла убрать защиту (при необходимости и если он был сохранен с защищенными обьектами). Ну и возникнут проблемы если есть ячейки для которых указано [vba]
Есть у меня предположение что мы о разных паролях говорим: я подразумевал пароли при защите книги/листов стандартными средствами Excel (в смысле дописать код VBA который я предлагал), а не то что у Вас провереятся через VBA.
Кроме того, мне в принципе не нравиться Ваш подход: в любой божий день можно отключить выполнение макросов и обойти такую защиту. Логика должна быть обратной: файл всегда дотупен для просмотра, а для изменения нужны определеные действия и через VBA предоставление доступа к изменениям.
Есть у меня предположение что мы о разных паролях говорим: я подразумевал пароли при защите книги/листов стандартными средствами Excel (в смысле дописать код VBA который я предлагал), а не то что у Вас провереятся через VBA.
Кроме того, мне в принципе не нравиться Ваш подход: в любой божий день можно отключить выполнение макросов и обойти такую защиту. Логика должна быть обратной: файл всегда дотупен для просмотра, а для изменения нужны определеные действия и через VBA предоставление доступа к изменениям.progger
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
