Precis som du kan lösenordsskydda arbetsböcker och kalkylblad kan du lösenordsskydda ett makro i Excel från att ses (och köras).
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Skapa först ett enkelt makro som du vill skydda.
Område ("A1"). Value = "Detta är hemlig kod"
2. Klicka sedan på Verktyg, VBAProjektegenskaper.
3. På fliken Skydd, markera "Lås projekt för visning" och ange ett lösenord två gånger.
4. Klicka på OK.
5. Spara, stäng och öppna Excel -filen igen. Försök att se koden.
Följande dialogruta visas:
Du kan fortfarande köra koden genom att klicka på kommandoknappen men du kan inte visa eller redigera koden längre (om du inte vet lösenordet). Lösenordet för den nedladdningsbara Excel -filen är "enkelt".
6. Om du vill lösenordsskydda makrot från att köras, lägg till följande kodrader:
Dim lösenord som variant
password = Application.InputBox ("Ange lösenord", "Lösenordsskyddad")
Välj lösenord för fall
Fall är = falskt
'göra ingenting
Fall är = "lätt"
Område ("A1"). Value = "Detta är hemlig kod"
Case Else
MsgBox "Felaktigt lösenord"
Avsluta Välj
Resultat när du klickar på kommandoknappen på arket:
Förklaring: Makrot använder InputBox -metoden för applikationsobjektet. Om användarna klickar på Avbryt, returnerar denna metod Falsk och ingenting händer (InputBox försvinner). Först när användaren känner till lösenordet ("lätt" igen) kommer den hemliga koden att köras. Om det inmatade lösenordet är felaktigt visas en MsgBox. Observera att användaren inte kan titta på lösenordet i Visual Basic Editor eftersom projektet är skyddat från visning.
