Aprire il foglio elettronico Microsoft Excel che si desidera proteggere .
2
Premere " ALT + F11 " per aprire Visual Basic .
3
Fare clic sul menu "Inserisci" e selezionare " form ".
4
Cliccare sulla funzione " TextBox " e trascinarlo nell'area di lavoro " form " . Regolare le dimensioni della casella di testo come desiderato .
5
stampa " F4 " con il " TextBox " ancora selezionato per entrare nel riquadro "Proprietà" e scorrere fino a " PasswordChar . " Inserire un asterisco ( * ) nella colonna valore .
6
Clicca su " form " per portare la schiena degli strumenti e trascinare un " CommandButton " sul " form ". Per fini estetici , posizionare il pulsante a destra del " TextBox ".
7
stampa " F4 " con il " CommandButton " ancora selezionata e modificare la didascalia di "OK . "
8
Clicca su " UserForm ", premere il tasto " F4 " e modificare la didascalia " /disattivazione della protezione tutti i fogli . "
9
Premere " F7" e incollare il seguente codice come appare qui sotto :
private Sub CommandButton1_Click ( ) per
Dim WSheet come manuale
Ogni WSheet in fogli di lavoro
WSheet.ProtectContents = True Then
WSheet.Unprotect password: = TextBox1.Text
Else
WSheet.Protect password: = TextBox1.Text
End If
Avanti WSheet
me Unload
End Sub
10
Seleziona "Modulo " dal menu "Inserisci" e incollare il seguente :
Sub ShowPass ( ) per
UserForm1.Show
End Sub
11
Premere " ALT + Q" per tornare alla
12
Premere il tasto " ALT + F8 ", quindi premere " Opzioni " dopo aver selezionato " ShowPass " dalla lista .
13
assegnare un tasto di scelta rapida alla macro e premere " OK ".
14
premere la combinazione di tasti di scelta rapida per avviare la macro, immettere una password , quindi premere il pulsante "OK" per proteggere con password i fogli della cartella di lavoro .
software © www.354353.com