Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Защита кнопки (элемента ActiveX) паролем от случайного нажатия
 
#1
27.10.2016 13:36:18
Добрый день. Что-то меня заклинило. Можно ли защитить кнопку на листе от случайного нажатия паролем? В архивах форума покопался, что-то не нашел ответ.
 
 
 
#2
27.10.2016 13:40:11
:)
Цитата
защитить... от... нажатия паролем?
 
 
 
#3
27.10.2016 13:43:52
Вариант:
Код
Private Sub CommandButton1_Click()
Dim x As String, Pass As String
    Pass = "qwerty"
    x = InputBox("Введите пароль.", "Ввод пароля...")
    If Pass <> x Then
        MsgBox "Вы ввели неправильный пароль.", 48, "Ошибка!"
        Exit Sub
    Else
        MsgBox "Продолжение работы."
    End If
End Sub
 
 
 
#4
27.10.2016 13:43:59
Нуу... как. Нажимаешь на кнопку на листе. Запускается макрос
Код
Private Sub CommandButton1_Click()
    Range("G20:H27,G29:H38,G40:H49").Select
    Selection.ClearContents
End Sub

Так вот, чтобы он, случайно, не запустился, можно, чтобы лист вежливо спросил - ты точно хочешь очистить данные и если хочешь, введи пароль. ))
 
 
 
#5
27.10.2016 13:47:45
Юрий, спасибо, прикрутил.
Код
Private Sub CommandButton1_Click()
    Dim x As String, Pass As String
    Pass = "111"
    x = InputBox("Введите пароль.", "Ввод пароля...")
    If Pass <> x Then
        MsgBox "Вы ввели неправильный пароль.", 48, "Ошибка!"
        Exit Sub
    Else
     
    Range("G20:H27,G29:H38,G40:H49").Select
    Selection.ClearContents
         
    End If
End Sub
Изменено: grand68 - 27.10.2016 13:50:59
 
 
 
#6
27.10.2016 13:49:35
grand68, посмотрите, как выглядит код у меня, и как у Вас. Ищите такую кнопку и исправьте своё сообщение.
 
 
 
#7
27.10.2016 13:52:59
Как то так:
Код
Private Sub CommandButton1_Click()
If InputBox("Наберите пароль") <> 1234 Then MsgBox "Вы ввели неправильный пароль." & vbLf & vbLf & "Работа макроса прекращена.": Exit Sub
...
текст вашего макроса
...
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх