Здесь вполне разрешение работает как вы хочет.
От вашего исследователя проекта в VBA, спрячьте лист как xlSheetVeryHidden (для свойства видимости).
От видимого листа, выберите клетку которая будет потребители которые изменят пароль.
От видимого листа закодируйте форму, добавьте это Кодего:
-----
Вариант точный
Приватное Sub Worksheet_Change (цель ByVal как ряд)
Если (Target.Column = 2 и Target.Row = 1) после этого
Тусклое newPassword: newPassword = Target.FormulaR1C1
Target.FormulaR1C1 = ""
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1 = newPassword
Закончитесь если
Закончите подводную лодку
-----
Сделайте конечно что колонка (2 в моем примере) и рядок (1 в моем примере) приспособит вашу клетку пароля.
Также, измените индекс вашего спрятанного рабочий лист до соотвествующее одно (2 в мой случай - будет zero основанным индексом).
К retreive ваш спрятанный пароль, использует это Кодего:
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1
Не забудьте установить соотвествующий индекс там также.
Окончательно не забудьте одеть в пароль ваш проект поэтому другие люди не могут изменить видимость листа.
========
Я думаю будет единственной дорогой вы smogли достигнуть точно вы хотите.
PS. Конечно вы можете заменить пароль с ******** вместо освобождать текст как в мой пример.