The Visual Basic editor som følger med Microsoft Excel gir mer avanserte brukere nødvendige verktøy for å skape nesten ubegrensede makroer for å tilpasse måten Excel fungerer . En enkel makro kan passordbeskytte et Excel-regneark med bare noen få linjer med kode . Arbeide med makroer i Visual Basic tar litt praksis , men fordelene med å lære det grunnleggende er verdt innsatsen. Instruksjoner
en

Åpne Microsoft Excel-regneark du ønsker å beskytte.
2

Trykk " ALT + F11 " for å åpne Visual Basic.

3

Klikk på "Insert "-menyen og velg " UserForm . "
4

Klikk på " TextBox "-verktøyet og dra den inn på " UserForm " arbeidsområdet. Juster størrelsen på tekstboksen som ønsket.
5

Trykk " F4 " med " TextBox " fortsatt valgt å gå inn i " Properties" -panelet og bla ned til " PasswordChar . " Sett inn en stjerne ( * ) i verdien kolonnen.
6

Klikk på " UserForm " for å få verktøykassen tilbake og dra en " CommandButton " på " UserForm . " Av estetiske grunner , posisjon på knappen til høyre for " TextBox . "
7

Trykk " F4 " med " CommandButton " fortsatt valgt og endre tittelen til " OK ".

8

Klikk på " UserForm , " trykk " F4 " og endre bildetekst til " beskytte /fjerne beskyttelse alle arkene . "
9

Trykk " F7 " og lim inn følgende kode som det står nedenfor :

Private Sub CommandButton1_Click ( )

Dim WSheet Som regneark

Hver WSheet I regneark
p Hvis WSheet.ProtectContents = True Deretter

WSheet.Unprotect Passord: = TextBox1.Text

Else

WSheet.Protect Passord: = TextBox1.Text

End If

Neste WSheet

losse meg

End Sub
10

Velg " Module" fra "Sett inn "-menyen og lim inn følgende :

Sub ShowPass ( )

UserForm1.Show

End Sub
11

Trykk " ALT + Q" for å gå tilbake til Excel.
12

trykk "Alt + F8 , " trykk " Options" etter å ha valgt " ShowPass " fra listen .
13

Angi en hurtigtast til makroen og trykk " OK ".

14

Trykk snarveien tastekombinasjon for å starte makroen , skriv inn et passord , trykk deretter på "OK" -knappen for å passordbeskytte arkene i arbeidsboken .