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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дополнить код паролем при открывании скрытого листа (Макросы/Sub)
Дополнить код паролем при открывании скрытого листа
lebensvoll Дата: Среда, 10.08.2016, 14:53 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
Добрый день многоуважаемые форумчане.
Через запись макроса смог записать код который позволяет открыть нужный скрытый лист
[vba]
Код
Private Sub CommandButton2_Click() 'Перейти на лист Журнал план-факт поставки который скрыт
    Sheets("НАЧАЛО РАБОТЫ").Select
    Sheets("Журнал план-факт поставки").Visible = True
    Sheets("Журнал план-факт поставки").Select
End Sub
[/vba]
Но хотелось бы чтоб еще в данном коде присутствовал пароль для открывания данного листа (((( но как это сделать не могу сообразить чтоб записать.
Пусть даже пароль будет примитивным 951 чтоб не создавать лист для пароля каждых операторов и открывания нужных листов для этих операторов
Возможно ли дополнить данный код Чтоб он спрашивал также и пароль когда нажимают кнопку CommandButton2 перед открыванием листа????
Заранее спасибо вам огромнейшее...


Кто бы ты ни был, мир в твоих руках
 
Ответить
СообщениеДобрый день многоуважаемые форумчане.
Через запись макроса смог записать код который позволяет открыть нужный скрытый лист
[vba]
Код
Private Sub CommandButton2_Click() 'Перейти на лист Журнал план-факт поставки который скрыт
    Sheets("НАЧАЛО РАБОТЫ").Select
    Sheets("Журнал план-факт поставки").Visible = True
    Sheets("Журнал план-факт поставки").Select
End Sub
[/vba]
Но хотелось бы чтоб еще в данном коде присутствовал пароль для открывания данного листа (((( но как это сделать не могу сообразить чтоб записать.
Пусть даже пароль будет примитивным 951 чтоб не создавать лист для пароля каждых операторов и открывания нужных листов для этих операторов
Возможно ли дополнить данный код Чтоб он спрашивал также и пароль когда нажимают кнопку CommandButton2 перед открыванием листа????
Заранее спасибо вам огромнейшее...

Автор - lebensvoll
Дата добавления - 10.08.2016 в 14:53
_Boroda_ Дата: Среда, 10.08.2016, 14:56 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9375
Репутация: 3948 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub CommandButton2_Click()
    If InputBox("Введи пароль") = "951" Then
        Sheets("Журнал план-факт поставки").Visible = True
        Sheets("Журнал план-факт поставки").Select
    End If
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub CommandButton2_Click()
    If InputBox("Введи пароль") = "951" Then
        Sheets("Журнал план-факт поставки").Visible = True
        Sheets("Журнал план-факт поставки").Select
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 10.08.2016 в 14:56
lebensvoll Дата: Среда, 10.08.2016, 14:59 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 2 ±
Замечаний: 60% ±

Excel 2010
_Boroda_, hands СПАСИБО ОГРОМНЕЙШЕЕ!!!
Куда вы пропали давно с вами не встречался (((((.???


Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщение_Boroda_, hands СПАСИБО ОГРОМНЕЙШЕЕ!!!
Куда вы пропали давно с вами не встречался (((((.???

Автор - lebensvoll
Дата добавления - 10.08.2016 в 14:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дополнить код паролем при открывании скрытого листа (Макросы/Sub)
Страница 1 из 11
Поиск:

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