Aquí está una solución completa que trabaja como usted quiere.
De su explorador del proyecto en VBA, ocultar una hoja como el xlSheetVeryHidden (para la característica de la visibilidad).
De una hoja visible, seleccionar una célula que esté disponible para los usuarios que cambiarán la contraseña.
De la hoja visible cifrar la forma, agregan este código:
-----
Opción explícita
Worksheet_Change secundario privado (blanco de ByVal como gama)
Si (Target.Column = 2 y Target.Row = 1) entonces
newPassword dévil: newPassword = Target.FormulaR1C1
Target.FormulaR1C1 = ""
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1 = newPassword
Terminar si
Terminar el submarino
-----
Cerciorarse de que la columna (2 en mi ejemplo) y la fila (1 en mi ejemplo) quepan su célula de la contraseña.
También, cambiar el índice de su hoja de trabajo ocultada la apropiada (2 en mi caso - es un índice basado cero).
A retreive su contraseña ocultada, utiliza este código:
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1
No olvidar fijar el índice apropiado allí también.
Finalmente no olvidar poner una contraseña en su proyecto así que la otra gente no puede cambiar la visibilidad de la hoja.
========
Pienso que es la única manera que usted podría alcanzar exactamente qué usted quiere.
Picosegundo. Por supuesto usted puede substituir la contraseña por el ******** en vez de despejar el texto como en mi ejemplo.
