Qui è una soluzione completa che funziona come voi vuole.
Dal vostro esploratore di progetto in VBA, nascondere uno strato come il xlSheetVeryHidden (per la proprietà di visibilità).
A partire da uno strato visibile, selezionare una cellula che sarà a disposizione degli utenti che cambieranno la parola d'accesso.
Dallo strato visibile codificare la forma, aggiungono questo codice:
-----
Opzione esplicita
Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
Se (Target.Column = 2 e Target.Row = 1) allora
newPassword fioco: newPassword = Target.FormulaR1C1
Target.FormulaR1C1 = ""
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1 = newPassword
Concluder se
Concludere il sommergibile
-----
Assicurar che la colonna (2 nel mio esempio) e la fila (1 nel mio esempio) misura la vostra cellula di parola d'accesso.
Inoltre, cambiare l'indice del vostro manuale nascosto a quello adatto (2 nel mio caso - è un indice basato zero).
A retreive la vostra parola d'accesso nascosta, usa questo codice:
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1
Non dimenticare di fissare l'indice adatto là anche.
Infine non dimenticare di mettere una parola d'accesso sul vostro progetto in modo da l'altra gente non può cambiare la visibilità dello strato.
========
Penso che sia l'unico senso che potreste realizzare esattamente che cosa volete.
PS. Naturalmente potete sostituire la parola d'accesso con ******** invece di rimozione del testo come nel mio esempio.
