Come proteggere e Rim in Excel VBA

La funzione di protezione di Excel 2010 consente di proteggere un foglio di lavoro in modo che chiunque che non sa una parola d'ordine non può modificare il foglio . C'è un pulsante nella barra multifunzione in grado di proteggere il foglio di lavoro , ma è anche possibile proteggere il foglio utilizzando Visual Basic, Applications Edition (VBA ) , fornito di serie con il software Excel . E ' più comune per avere il codice VBA sproteggere un foglio di lavoro protetto , eseguire comandi sul foglio di lavoro non protetto , e poi mettere la protezione al suo posto . Istruzioni
1

Aprire la cartella di lavoro di Excel che si desidera lavorare . Tenere premuto " Alt " e premere " F11 " per avviare la console di VBA .
2

Selezionare il modulo in cui si desidera aggiungere il codice dalla lista sul lato sinistro della console VBA . Fare doppio clic sul modulo per visualizzare il tuo codice sul lato destro dello schermo . Se nessun modulo è presente, fare clic destro su uno qualsiasi dei fogli di lavoro sono elencate sul lato sinistro dello schermo , spostare il mouse su "Inserisci" e selezionare "Modulo ". Fare doppio clic sul modulo che appare per aprire un foglio bianco sul lato destro della console VBA .
3

Fare clic sul lato destro dello schermo per posizionare il cursore nella casella bianca . Se la casella è vuota, digitare " Secondo nome ( ) , " dove "nome" è tutto ciò che si desidera assegnare un nome alla macro . Premere Invio per continuare , e Excel VBA entrerà automaticamente la riga "End Sub " .
4

Tipo " Dim ws come manuale " direttamente sotto la linea "Sub" . Se si lavora con il codice esistente , inserire questa linea , ovunque le altre variabili sono dichiarate e assicurarsi che non ci sia già un'altra variabile denominata "ws ". Se c'è, cambiare tutte le istanze di " ws " in questo codice a qualsiasi combinazione disponibile di due lettere .
5

Posizionare il cursore sulla riga successiva , o se si sta lavorando con il codice esistente , posto ovunque si desidera rimuovere la protezione del foglio di lavoro . Inserire nel codice seguente :

For Each ws In ActiveWorkbook.Worksheets

ws.Unprotect Password: = " zzz "

Avanti ws

Change " zzz "nel codice di qualunque sia la vostra password di foglio di lavoro è . Quando si desidera proteggere nuovamente il foglio di lavoro , basta inserire questo stesso tre righe di codice , tranne il cambiamento " sproteggere " per "proteggere ".