/ / Password Protect Excel Macro

Adgangskode Beskyt Excel Macro

Ligesom du kan passwordbeskytte arbejdsbøger og regneark, kan du adgangskode beskytte en makro i Excel fra at blive vist (og henrettet).

Placer en kommandoknap på dit regneark og tilføj følgende kodelinjer:

1. Opret først en enkel makro, som du vil beskytte.

Range("A1").Value = "This is secret code"

2. Klik derefter på Værktøjer, VBAProjektegenskaber.

Klik på Funktioner, VBAProjektegenskaber.

3. På fanen Beskyttelse skal du kontrollere "Lås projekt for visning" og indtaste en adgangskode to gange.

Indtast et kodeord to gange

4. Klik på OK.

5. Gem, luk og genåb Excel-filen. Prøv at se koden.

Følgende dialogboks vises:

Adgangskode Beskyttet mod at blive vist

Du kan stadig udføre koden ved at klikke på kommandoknappen, men du kan ikke se eller redigere koden længere (medmindre du kender adgangskoden). Adgangskoden til den downloadbare Excel-fil er "let".

6. Hvis du vil have adgangskode, beskyt makroen fra at være henrettet, tilføj følgende kodelinjer:

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")

Select Case password
    Case Is = False
        "do nothing
    Case Is = "easy"
        Range("A1").Value = "This is secret code"
    Case Else
        MsgBox "Incorrect Password"
End Select

Resultat, når du klikker på kommandoknappen på arket:

Adgangskode Beskyttet mod at blive udført

Forklaring: Makroen bruger InputBox-metoden til applikationsobjektet. Hvis brugerne klikker Annuller, returnerer denne metode False og intet sker (InputBox forsvinder). Først når brugeren kender adgangskoden ("let" igen), vil den hemmelige kode blive udført. Hvis den indtastede adgangskode er forkert, vises en MsgBox. Bemærk, at brugeren ikke kan kigge på adgangskoden i Visual Basic Editor, fordi projektet er beskyttet mod at blive vist.

Læs også: