Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос открывания листа с вводом пароля - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос открывания листа с вводом пароля
Макрос открывания листа с вводом пароля
ronik710 Дата: Вторник, 11.10.2011, 14:58 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Возможно, эта тема уже поднималась на форуме. Но я ее не нашел...

Мне нужно сделать кнопку с макросом, который бы открывал нужный скрытый лист с запросом на ввод пароля.
Т.е. этот лист мог открыть только тот юзер, который знает пароль.
 
Ответить
СообщениеВозможно, эта тема уже поднималась на форуме. Но я ее не нашел...

Мне нужно сделать кнопку с макросом, который бы открывал нужный скрытый лист с запросом на ввод пароля.
Т.е. этот лист мог открыть только тот юзер, который знает пароль.
Автор - ronik710
Дата добавления - 11.10.2011 в 14:58
RAN Дата: Вторник, 11.10.2011, 16:54 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
smile
К сообщению приложен файл: 5746769.xls (47.5 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеsmile
Автор - RAN
Дата добавления - 11.10.2011 в 16:54
nerv Дата: Вторник, 11.10.2011, 18:42 | Сообщение № 3
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

при вводе двойки пишет "Неверный пароль" и при этом отображает скрытый лист

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщениепри вводе двойки пишет "Неверный пароль" и при этом отображает скрытый лист
Автор - nerv
Дата добавления - 11.10.2011 в 18:42
nerv Дата: Вторник, 11.10.2011, 18:44 | Сообщение № 4
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Exit For

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
СообщениеExit For
Автор - nerv
Дата добавления - 11.10.2011 в 18:44
RAN Дата: Вторник, 11.10.2011, 19:30 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Да, немного второпях доделывал неверный пароль.
Так лучше.
К сообщению приложен файл: pass.xls (51.5 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДа, немного второпях доделывал неверный пароль.
Так лучше.
Автор - RAN
Дата добавления - 11.10.2011 в 19:30
nerv Дата: Вторник, 11.10.2011, 21:10 | Сообщение № 6
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Да я сам поторопился : )

Как вариант для данного случая
[vba]
Код
Private Sub CommandButton1_Click()
Dim v
For Each v In Array("2", "3")
     If v = Me.TextBox1.Value Then Sheets(CInt(v)).Visible = True: Unload Me: Exit Sub
Next
MsgBox "Не верный пароль", vbCritical: Unload Me
End Sub
[/vba]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
СообщениеДа я сам поторопился : )

Как вариант для данного случая
[vba]
Код
Private Sub CommandButton1_Click()
Dim v
For Each v In Array("2", "3")
     If v = Me.TextBox1.Value Then Sheets(CInt(v)).Visible = True: Unload Me: Exit Sub
Next
MsgBox "Не верный пароль", vbCritical: Unload Me
End Sub
[/vba]
Автор - nerv
Дата добавления - 11.10.2011 в 21:10
RAN Дата: Вторник, 11.10.2011, 21:40 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ну ты и загнул! smile
А как насчет пароля "Саня"? cool

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу ты и загнул! smile
А как насчет пароля "Саня"? cool
Автор - RAN
Дата добавления - 11.10.2011 в 21:40
Саня Дата: Вторник, 11.10.2011, 22:10 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
не смог пройти мимо такого кода
Code
Private Sub Worksheet_Deactivate()
Application.EnableEvents = True
Me.Visible = 2
End Sub


внутри обработчика события пытаться включит обработку событий не логично:
если они включены, то и включать их нет смысла,
а если выключены, то в эту процедуру не попасть...

ps тем более меня приплели...
Quote (RAN)
А как насчет пароля "Саня"? cool
 
Ответить
Сообщениене смог пройти мимо такого кода
Code
Private Sub Worksheet_Deactivate()
Application.EnableEvents = True
Me.Visible = 2
End Sub


внутри обработчика события пытаться включит обработку событий не логично:
если они включены, то и включать их нет смысла,
а если выключены, то в эту процедуру не попасть...

ps тем более меня приплели...
Quote (RAN)
А как насчет пароля "Саня"? cool
Автор - Саня
Дата добавления - 11.10.2011 в 22:10
RAN Дата: Вторник, 11.10.2011, 22:50 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Похоже, какой-то глюк с компом.
Сейчас перестала работать почта, на форум чуть вошел...
А перед этим Private Sub Worksheet_Deactivate заработала только после того, как впихнул строку Application.EnableEvents = True

PS так и nerv - Саня...

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПохоже, какой-то глюк с компом.
Сейчас перестала работать почта, на форум чуть вошел...
А перед этим Private Sub Worksheet_Deactivate заработала только после того, как впихнул строку Application.EnableEvents = True

PS так и nerv - Саня...
Автор - RAN
Дата добавления - 11.10.2011 в 22:50
nerv Дата: Среда, 12.10.2011, 09:18 | Сообщение № 10
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Quote (RAN)
А как насчет пароля "Саня"?
Вот тебе и "Саня" happy

Code
Private Sub CommandButton1_Click()
Dim v
For Each v In Split("Таня\2;Саня\3", ";"): v = Split(v, "\")
        If v(0) = Me.TextBox1.Value Then Sheets(CInt(v(1))).Visible = True: Unload Me: Exit Sub
Next
MsgBox "Не верный пароль", vbCritical: Unload Me
End Sub


Quote (RAN)
PS так и nerv - Саня...
Ну, да)

Quote (RAN)
Похоже, какой-то глюк с компом.
Сейчас перестала работать почта, на форум чуть вошел...
На вирусы проверяй : )

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Среда, 12.10.2011, 09:20
 
Ответить
Сообщение
Quote (RAN)
А как насчет пароля "Саня"?
Вот тебе и "Саня" happy

Code
Private Sub CommandButton1_Click()
Dim v
For Each v In Split("Таня\2;Саня\3", ";"): v = Split(v, "\")
        If v(0) = Me.TextBox1.Value Then Sheets(CInt(v(1))).Visible = True: Unload Me: Exit Sub
Next
MsgBox "Не верный пароль", vbCritical: Unload Me
End Sub


Quote (RAN)
PS так и nerv - Саня...
Ну, да)

Quote (RAN)
Похоже, какой-то глюк с компом.
Сейчас перестала работать почта, на форум чуть вошел...
На вирусы проверяй : )
Автор - nerv
Дата добавления - 12.10.2011 в 09:18
ronik710 Дата: Среда, 12.10.2011, 12:00 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Спасибо большое!
 
Ответить
СообщениеСпасибо большое!
Автор - ronik710
Дата добавления - 12.10.2011 в 12:00
Killerlord Дата: Среда, 17.02.2016, 19:19 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 80% ±

Excel 2007
Парни вот точно такой же Excel, только мне нужно чтоб при нажатии на 1,2,3,4,5,6 просил пароль и для каждой строки разный пароль, с срабатыванием гиперсылки, а форму пароль удалить
[moder]Нарушение п. 5q Правил форума.
К сообщению приложен файл: p11ass.xls (50.0 Kb)


Сообщение отредактировал _Boroda_ - Среда, 17.02.2016, 21:20
 
Ответить
СообщениеПарни вот точно такой же Excel, только мне нужно чтоб при нажатии на 1,2,3,4,5,6 просил пароль и для каждой строки разный пароль, с срабатыванием гиперсылки, а форму пароль удалить
[moder]Нарушение п. 5q Правил форума.
Автор - Killerlord
Дата добавления - 17.02.2016 в 19:19
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос открывания листа с вводом пароля
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!