Hvordan passordbeskytte et Excel-regneark ved hjelp av en makro
Visual Basic-redigering følger med Microsoft Excel gir flere avanserte brukere de 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.
Bruksanvisning
1 Å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åde. Juster størrelsen på tekstboksen som ønsket.
5 Trykk "F4" med "TextBox" fortsatt valgt å gå inn i "Properties" vinduet og bla ned til "PasswordChar." Sett inn en stjerne (*) i verdien kolonne.
6 Klikk på "Userform" for å få verktøykassen tilbake og dra en "Command" på "Userform." For estetiske grunner, plasser på knappen til høyre for "TextBox".
7 Trykk "F4" med "Command" fortsatt valgt og endre tittelen til "OK".
8 Klikk på "Userform," trykk "F4" og endre bildeteksten til "Beskytt / Opphev alle arkene."
9 Trykk "F7" og lim inn følgende kode slik den vises nedenfor:
Private Sub CommandButton1_Click ()
Dim WSheet Som regneark
For Each WSheet In Worksheets
Hvis WSheet.ProtectContents = True Deretter
WSheet.Unprotect Passord: = TextBox1.Text
Ellers
WSheet.Protect Passord: = TextBox1.Text
Slutt om
Neste WSheet
losse meg
End Sub
10 Velg "Module" fra "Insert" -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.
1. 3 Tildele en hurtigtast til makroen og trykk "OK".
14 Trykk hurtigtasten for å starte makroen, skrive inn et passord, trykk på "OK" -knappen for å passordbeskytte arkene i arbeidsboken.
Hint
- Lagre makroen til "Personal.xls" arbeidsbok for å gjøre den tilgjengelig for alle fremtidige arbeidsbøker.