/ / Slaptažodis apsaugoti "Excel" makrokomandą

"Password" apsauga "Excel" makrokomandas

Kaip jūs galite apsaugoti slaptažodžiu darbaknygius ir darbalapius, galite slaptažodis apsaugo makrokomandą in Excel būti žiūrima (ir įvykdyta).

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:

1. Pirmiausia sukurkite paprastą makrokomandą, kurį norite apsaugoti.

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

2. Tada spustelėkite Tools, VBAProject Properties.

Spustelėkite Įrankiai, VBAProject Properties.

3. Skirtuke Apsauga pažymėkite "Užrakinti projektą peržiūrai" ir du kartus įveskite slaptažodį.

Įveskite slaptažodį du kartus

4. Spustelėkite Gerai.

5. Išsaugokite, uždarykite ir vėl atidarykite "Excel" failą. Pabandykite peržiūrėti kodą.

Bus rodomas šis dialogo langas:

Slaptažodis apsaugotas nuo žiūrėjimo

Jūs vis dar galite vykdyti kodą spustelėdami komandų mygtuką, bet jūs negalėsite peržiūrėti ar redaguoti kodo (nebent žinote slaptažodį). Parsisiunčiamo "Excel" failo slaptažodis yra "lengvas".

6. Jei norite, kad slaptažodis būtų apsaugotas nuo makrokomandos įvykdytas, pridėkite šias kodo eilutes:

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

Rezultatas spustelėjus komandą mygtuką ant lapo:

Slaptažodis apsaugotas nuo įvykdyto

Paaiškinimas: Makrokomandas naudoja "Application" objekto metodą "InputBox". Jei vartotojai spustelėja "Atšaukti", šis metodas grąžina "klaidingą" ir nieko neįvyksta ("InputBox" dingsta). Tik tada, kai vartotojas žinos slaptažodį ("lengvas"), slaptas kodas bus vykdomas. Jei įvestas slaptažodis yra neteisingas, rodomas MsgBox. Atkreipkite dėmesį, kad vartotojas negali pažvelgti į "Visual Basic" redagavimo priemonės slaptažodį, nes jis yra apsaugotas nuo peržiūros.

Taip pat perskaitykite: