Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Microsoft Excel , ktorý chcete chrániť .
2
Stlačením tlačidla " ALT + F11 " otvorte Visual Basic .
3
Kliknite na " Vložiť " menu a vyberte " UserForm . "
4
Kliknite na nástroj " TextBox " a pretiahnite ju na " UserForm " pracovnej plochy . Upravte veľkosť textového poľa podľa potreby .
5
Stlačte " F4 " s " TextBox " stále vybratý vstup " Vlastnosti " panel a prejdite nadol na " PasswordChar . " Vložte hviezdičku ( * ) v stĺpci hodnôt .
6
Kliknite na " UserForm " priviesť späť nástrojov a pretiahnite " CommandButton " na " UserForm . " Pre estetické účely , umiestnite na tlačidlo napravo od " TextBox . "
7
Stlačte " F4 " s " CommandButton " je stále vybraný a zmeniť titulok na " OK " .
8
Kliknite na " UserForm , " stlačením tlačidla " F4 " a zmeniť jeho titulok " Protect /Odomknúť všetky listy . "
9
Stlačte " F7 " a vložte nasledujúci kód ako zdá sa nižšie :
Private Sub CommandButton1_Click ( )
Dim WSheet Ako listu
každý WSheet v listoch
Ak WSheet.ProtectContents = True Then
WSheet.Unprotect Heslo : = TextBox1.Text
Else
WSheet.Protect Heslo : = TextBox1.Text
End If
ďalšie WSheet
Vyložte mi klipart
End Sub
10
zvoľte " modul " z menu " Vložiť " a vložte nasledujúci :
Sub ShowPass ( )
UserForm1.Show
End Sub
11
Stlačte " ALT + Q " pre návrat do aplikácie Excel .
12
Stlačením tlačidla " ALT + F8 " , potom stlačte tlačidlo " Možnosti " po voľbe " ShowPass " zo zoznamu .
13
priradiť klávesovú skratku makro a stlačte tlačidlo " OK " .
14
Stlačte klávesovú skratku pre spustenie makra , zadajte heslo , potom stlačte tlačidlo " OK " chrániť heslom hárkov v zošite .
Copyright © počítačové znalosti Všetky práva vyhradené