В форму добавить введение пароля по значению

Дата: Воскресенье, 12.02.2023, 12:31 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

В предыдущих постах помогли с формой с двумя комбобоксами вставляющими значения в ячейки, хочется добавить проверку паролем...
то есть при выборе в форме комбо 1 и 2 на листе Списки подставятся значения в G1,G2 и в яч Н2 формулой введется значение соответствующего пароля , а в третьем комбо формы проверялся введенный пароль с тем что в Н2

пример прикладываю

К сообщению приложен файл: 7343551.xlsm (27.5 Kb)

Дата: Понедельник, 13.02.2023, 07:57 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Gjlhzl, что значит проверялся? как-то не понятно.

ЮMoney 41001841029809

Дата: Понедельник, 13.02.2023, 09:58 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, ну если введен верный- соответствует тому что в яч Н2. то по кнопке ввод запускается какой либо макрос
наверно две кнопки нужно будет , первой вводятся значения комбо 1,2 в ячейки и подставляется соответствующий пароль в Н2 а уж потом пароль вводиться в комбо3

Дата: Понедельник, 13.02.2023, 10:15 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Gjlhzl, понятней не стало.

Цитата Gjlhzl, 12.02.2023 в 12:31, в сообщении № 1 (

)

в яч Н2 формулой введется значение соответствующего пароля

как он может быть не правильным?
для чего комбо3?

вдруг правильно:
[vba]

Код

Private Sub ComboBox2_Change()
    a = Application.Match("Пароль " & ComboBox1.Value, Range("a1:k1"), 0)
    If IsNumeric(a) Then
        u = Cells(Rows.Count, a).End(xlUp).Row
        ComboBox3.List = Range(Cells(2, a), Cells(u, a)).Value
    End If
End Sub
Private Sub ComboBox3_Change()
    b = ComboBox3.Value
    a = Application.Match("Пароль " & ComboBox1.Value, Range("a1:k1"), 0)
    If IsNumeric(a) Then
        u = Cells(Rows.Count, a).End(xlUp).Row
        c = Evaluate("Match(" & b & "," & Cells(1, a).Address & ":" & Cells(u, a).Address & "" & ", 0)")
        If IsNumeric(c) Then
            d = Application.Match(ComboBox1.Value, Range("a1:b1"), 0)
            If IsNumeric(a) Then
                f = Cells(c, d).Value
                If f = ComboBox2.Value Then
                    MsgBox "Пароль верный"
                Else
                    MsgBox "Что Вы тут написали?"
                End If
            End If
        End If
    End If
End Sub

[/vba]

К сообщению приложен файл: 29.xlsm (27.2 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 13.02.2023, 11:15

Дата: Понедельник, 13.02.2023, 11:38 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, весь смысл - открывая файл юзер выбирает в форме группу товаров, потом Продукт таблицу которого хочет получить (по кнопке ввод будет запускаться макрос с запросом PQ на указанный Продукт) при условии если юзер имеет доступ к нему (знает пароль) , для этого и есть комбо3. введя пароль в него и если он соответствует паролю в яч Н2 то по кнопке Ввод выполниться макрос запроса PQ. если пароль не верен форма закроется

Сообщение отредактировал Gjlhzl - Понедельник, 13.02.2023, 11:40

Дата: Понедельник, 13.02.2023, 11:47 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Gjlhzl, ввели Вы меня в заблуждение комбобоксом,
для ввода, а не выбора можно использовать текстбокс,
ну то ладно.
так:
[vba]

Код

Private Sub CommandButton1_Click()
    a = ComboBox3.Value
    b = Range("h2").Text
    If a = b Then
        'здесь действия правильного пароля
        Worksheets("Список").Range("G1").Value = UserForm1.ComboBox1.Value
        Worksheets("Список").Range("G2").Value = UserForm1.ComboBox2.Value
    Else
        'здесь действия неправильного пароля
    End If
End Sub

[/vba]надо?

ЮMoney 41001841029809

Дата: Понедельник, 13.02.2023, 11:56 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

не совсем вас понял Nic70y, можете скинуть пример уже с последним изменением

Дата: Понедельник, 13.02.2023, 12:03 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

держите
скорей всего, вам надо так, раз у Вас формула
[vba]

Код

Private Sub CommandButton1_Click()
    Worksheets("Список").Range("G1").Value = UserForm1.ComboBox1.Value
    Worksheets("Список").Range("G2").Value = UserForm1.ComboBox2.Value
    a = ComboBox3.Value
    b = Range("h2").Text
    If a = b Then
        'здесь действия правильного пароля
    Else
        'здесь действия неправильного пароля
    End If
End Sub

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 13.02.2023, 12:24

Дата: Понедельник, 13.02.2023, 12:18 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, извините запутал вас наверно....
нужно что бы сначала вводились данные комбо1 и комбо2, после введения комбо2 или по кнопке или автоматически значения комбо 1,2 подставлялись на лист (лист юзер не видит и пароли знает только своего Продукта) по их значениям в яч Н2 отображается соответствующий пароль (формулу прописал в ячейке Н2), его то и проверяем дальше в форме....если юзер не правильный ввел то форма закрывается и доступа нет если правильный то дальше работает макрос запроса PQ и юзеру отображается запрошенный Продукт

Дата: Понедельник, 13.02.2023, 12:23 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Private Sub CommandButton1_Click()
    Worksheets("Список").Range("G1").Value = UserForm1.ComboBox1.Value
    Worksheets("Список").Range("G2").Value = UserForm1.ComboBox2.Value
    a = ComboBox3.Value
    b = Range("h2").Text
    If a = b Then
        'тут макрос дальше
    Else
        Unload UserForm1
    End If
End Sub

[/vba]

К сообщению приложен файл: 7343551-3-.xlsm (25.7 Kb)

ЮMoney 41001841029809