Шифровать пароль в поле пароля VBA

У меня есть несколько пользовательских форм для моей электронной таблицы excel, и мне нужно настроить панель администратора для определенных задач, которые я не хочу, чтобы большинство людей обращалось к ним.

Проблема в том, что я могу настроить простую форму защиты паролей, но текст всегда отображается. Я хочу попытаться зашифровать его, так что, если кто-то ищет мой или один из других админов, они не смогут увидеть пароль.

Есть ли какой-либо смысл, чтобы текст отображался как **** или что-то подобное?

Спасибо Al

Private Sub CommandButton1_Click() Dim MyValue As Variant MyValue = InputBox("Enter Password") If MyValue = "lemonade" Then 'lemonade being the password Application.Visible = True Else MsgBox ("Password Incorrect") End If End Sub 

Изменить – я внесла поправки, чтобы следовать вашему предложению, поскольку у меня было это, чтобы открыть окно ввода вместо создания моей собственной пользовательской формы.

 If Pword2.Value = "lemonade" Then AddPick1.Hide Report1.Hide Unload Me Admin1.Show vbModal Else MsgBox ("Password Incorrect") End If 

Когда пароль неверен, он дает неверную ошибку пароля, однако, когда она верна, она дает мне следующую ошибку (сначала нужно закрыть верхнюю верхнюю модальную форму). Однако у меня есть она, чтобы установить все другие формы перед загрузкой формы Admin1?

    В свойствах TextBox имеется свойство PasswordChar. Введите здесь свой «скрытый» символ.

    Вы также можете добавить кнопку в свою форму, чтобы открыть пароль, если хотите использовать события «Мышь и мышь _Down». MouseDown будет выглядеть следующим образом в текстовом поле TextBox1 и с помощью кнопки CommandButton1:

     Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.PasswordChar = vbNullChar End Sub 

    Я оставлю вас закодировать событие Mouse_Up.

    Эта ссылка даст вам возможность использования, но вы найдете множество примеров с поиском Google.

    Interesting Posts

    Apache POI видит столбцы в пустой таблице?

    Чтение значения времени excel с использованием API OpenXML

    Excel Macro: печать даты при изменении данных

    Ошибка: AGGREGATE (15; 7; RANGE; 1) _используется для игнорирования скрытых строк для определенного диапазона массивов, но это не

    Сравнить строки в excel vba

    Excel-VBA. Перемещение формул без их копирования

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

    При импорте листа из Excel в SQL в C # он теряет время в столбцах DateTime

    Код Excel VBA для копирования данных на основе ссылки на ячейку на другой лист

    Получить стиль ячейки excel с помощью Epplus

    Данные не сохраняются в файле Excel, если сначала не появляется MsgBox

    Снять защиту с ячейки

    Лучший способ фильтровать и находить уникальные значения два раза в vba?

    Сравнение значения между значениями столбца

    Переименование имени листа Excel в Matlab

    Давайте будем гением компьютера.