Una macro per proteggere i fogli di lavoro sulla cartella di lavoro Chiudi - dummy

A volte è necessario inviare la cartella di lavoro di Excel nel mondo con fogli di lavoro specifici protetti. Se trovi che proteggi e proteggi i fogli costantemente prima di distribuire le tue cartelle di lavoro, la macro qui può aiutarti.

Funzionamento della macro

Il codice viene attivato dall'evento BeforeClose della cartella di lavoro. Quando si tenta di chiudere la cartella di lavoro, questo evento si attiva, eseguendo il codice all'interno. La macro protegge automaticamente il foglio specificato con la password specificata, quindi salva la cartella di lavoro:

Sottopartita privata_BeforeClose (Annulla come booleano) 'Passaggio 1: proteggere il foglio con una scheda password ("Foglio1"). Proteggi password: = "RED" "Passaggio 2: salva la cartella di lavoro ActiveWorkbook. Salva sottotitoli

Nel passaggio 1, si specifica esplicitamente quale foglio proteggere - Foglio1, in questo caso. Fornisci anche l'argomento password, Password: = "ROSSO", che definisce la password necessaria per rimuovere la protezione.

Questo argomento password è facoltativo. Se lo ometti, il foglio verrà comunque protetto, ma non sarà necessaria una password per rimuovere la protezione.

Le password di Excel fanno distinzione tra maiuscole e minuscole, quindi ti consigliamo di prestare attenzione alla password esatta e alle maiuscole che stai utilizzando.

Il passaggio 2 indica a Excel di salvare la cartella di lavoro. Se non si salva la cartella di lavoro, la protezione del foglio appena applicata non sarà effettiva al successivo avvio della cartella di lavoro.

Come utilizzare la macro

Per implementare questa macro, è necessario copiarla e incollarla nella finestra Codice evento Workbook_BeforeClose. Inserendo qui la macro si può eseguire ogni volta che si tenta di chiudere la cartella di lavoro:

1. Attiva Visual Basic Editor premendo Alt + F11.

2. Nella finestra del progetto, trovare il nome del progetto / cartella di lavoro e fare clic sul segno più accanto per visualizzare tutti i fogli.

3. Fai clic su ThisWorkbook.

4. Nell'elenco a discesa Evento, selezionare l'evento BeforeClose.

5. Digita o incolla il codice nel modulo appena creato, modificando il nome del foglio (se necessario) e la password.

   

   Immettere il codice nell'evento Workbook BeforeClose.

Si noti che è possibile proteggere fogli aggiuntivi aggiungendo istruzioni aggiuntive prima di Activeworkbook. Salva la dichiarazione.