Está aqui uma solução completa que trabalhe como você queira.
De seu explorador do projeto em VBA, esconder uma folha como o xlSheetVeryHidden (para a propriedade da visibilidade).
De uma folha visível, selecionar uma pilha que esteja disponível aos usuários que mudarão a senha.
Da folha visível codificar o formulário, adicionam este código:
-----
Opção explícita
Worksheet_Change secundário confidencial (alvo de ByVal como a escala)
Se (Target.Column = 2 e Target.Row = 1) então
newPassword não ofuscante: newPassword = Target.FormulaR1C1
Target.FormulaR1C1 = ""
Application.ActiveWorkbook.Worksheets (2). Pilhas (1, 1) .FormulaR1C1 = newPassword
Terminar se
Terminar o submarino
-----
Certificar-se de que a coluna (2 em meu exemplo) e a fileira (1 em meu exemplo) caberão sua pilha da senha.
Também, mudar o índice de sua folha escondida à apropriada (2 em meu caso - é um índice baseado zero).
A retreive sua senha escondida, usa este código:
Application.ActiveWorkbook.Worksheets (2). Pilhas (1, 1) .FormulaR1C1
Não esquecer ajustar lá o índice apropriado também.
Finalmente não esquecer põr uma senha sobre seu projeto assim que outros povos não podem mudar a visibilidade da folha.
========
Eu penso que é a única maneira que você poderia conseguir exatamente o que você quer.
Picosegundo. Naturalmente você pode substituir a senha com o ******** em vez de cancelar o texto como em meu exemplo.
