ограничение доступа - пароли форм

[serikov]

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

Private Sub CommandButton1_Click()
Password = InputBox("введите пароль")
            ' если пароль не угадали, активируем первую вкладку 
           
If Password = "1" Then

UserForm8.Show
            Else
            MsgBox "ВНИМАНИЕ: Неверный пароль!"
            End If
End Sub

Спасибо!

[doober]

Когда то делал .
сначала создайте Запись Админа.