Přejít k hlavnímu obsahu

Jak šifrovat / dešifrovat vybrané buňky v aplikaci Excel?

Autor: Sun Naposledy změněno: 2020-06-02

V některých případech možná budete chtít zašifrovat některé buňky, abyste zabránili zobrazení buněk jinými uživateli, jak to můžete udělat rychle? Nyní v tomto článku představuji triky pro rychlé šifrování a dešifrování vybraného obsahu buněk v aplikaci Excel.

Šifrujte nebo dešifrujte vybrané buňky pomocí VBA

Šifrujte nebo dešifrujte vybrané buňky pomocí programu Kutools pro Excel dobrý nápad3


Šifrujte nebo dešifrujte vybrané buňky pomocí VBA

Zde je kód VBA, který umožňuje rychlé šifrování nebo dešifrování vybraných buněk v aplikaci Excel.

1. lis Alt + F11 tlačítka k zobrazení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte pod nový kód VBA nový Modul okno.

VBA: Šifrování nebo dešifrování vybraných buněk.

Private Function StrToPsd(ByVal Txt As String) As Long
'UpdatebyKutoolsforExcel20151225
    Dim xVal As Long
    Dim xCh As Long
    Dim xSft1 As Long
    Dim xSft2 As Long
    Dim I As Integer
    Dim xLen As Integer
    xLen = Len(Txt)
    For I = 1 To xLen
        xCh = Asc(Mid$(Txt, I, 1))
        xVal = xVal Xor (xCh * 2 ^ xSft1)
        xVal = xVal Xor (xCh * 2 ^ xSft2)
        xSft1 = (xSft1 + 7) Mod 19
        xSft2 = (xSft2 + 13) Mod 23
    Next I
    StrToPsd = xVal
End Function
Private Function Encryption(ByVal Psd As String, ByVal InTxt As String, Optional ByVal Enc As Boolean = True) As String
    Dim xOffset As Long
    Dim xLen As Integer
    Dim I As Integer
    Dim xCh As Integer
    Dim xOutTxt As String
    xOffset = StrToPsd(Psd)
    Rnd -1
    Randomize xOffset
    xLen = Len(InTxt)
    For I = 1 To xLen
        xCh = Asc(Mid$(InTxt, I, 1))
        If xCh >= 32 And xCh <= 126 Then
            xCh = xCh - 32
            xOffset = Int((96) * Rnd)
            If Enc Then
                xCh = ((xCh + xOffset) Mod 95)
            Else
                xCh = ((xCh - xOffset) Mod 95)
                If xCh < 0 Then xCh = xCh + 95
            End If
            xCh = xCh + 32
            xOutTxt = xOutTxt & Chr$(xCh)
        End If
    Next I
    Encryption = xOutTxt
End Function
Sub EncryptionRange()
    Dim xRg As Range
    Dim xPsd As String
    Dim xTxt As String
    Dim xEnc As Boolean
    Dim xRet As Variant
    Dim xCell As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xPsd = InputBox("Enter password:", "Kutools for Excel")
    If xPsd = "" Then
        MsgBox "Password cannot be empty", , "Kutools for Excel"
        Exit Sub
    End If
    xRet = Application.InputBox("Type 1 to encrypt cell(s);Type 2 to decrypt cell(s)", "Kutools for Excel", , , , , , 1)
    If TypeName(xRet) = "Boolean" Then Exit Sub
    If xRet > 0 Then
        xEnc = (xRet Mod 2 = 1)
        For Each xCell In xRg
            If xCell.Value <> "" Then
                xCell.Value = Encryption(xPsd, xCell.Value, xEnc)
            End If
        Next
    End If
End Sub

3. Poté stiskněte F5 klíč k provedení VBA a objeví se dialogové okno pro výběr buněk k šifrování. Viz snímek obrazovky:
doc šifrování dešifrování 1

4. Pak klikněte na tlačítko OK a zadejte heslo pro šifrované buňky do jiného vyskakovacího dialogu. Viz snímek obrazovky:
doc šifrování dešifrování 2

5. cvaknutí OKa potom ve třetím dialogovém okně zadejte 1 pro šifrování vybraných buněk, pokud chcete dešifrovat buňky, zadejte 2. Viz snímek obrazovky:
doc šifrování dešifrování 3

6. cvaknutí OKa vybrané buňky jsou šifrovány. Viz snímek obrazovky:
doc šifrování dešifrování 4


Šifrujte nebo dešifrujte vybrané buňky pomocí programu Kutools pro Excel

S výše uvedenou metodou šifrování nebo dešifrování buněk je trochu složité, ale pokud máte Kutools pro Excel nainstalován, můžete použít Šifrovat buňky a Dešifrovat buňky nástroje k rychlému dokončení.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte buňky, které chcete zašifrovat, a klepněte na Kutools Plus > Šifrovat buňky. Viz snímek obrazovky:
doc šifrování dešifrování 5

2. Poté zadejte a potvrďte heslo v Šifrovat buňky v dialogovém okně a vyberte jeden typ šifrování v Maska sekce. Viz screenshot:
doc šifrování dešifrování 6

3. cvaknutí Ok or Přihláškaa nyní jsou vybrané buňky zašifrovány.
doc šifrování dešifrování 7

Pokud potřebujete dešifrovat buňky, vyberte je a klepněte na Kutools Plus > Dešifrovata dešifrujte je zadáním hesla. Viz snímek obrazovky:

doc šifrování dešifrování 8  doc kutools šifrování buněk 5

Články, které by vás mohly zajímat:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
what to do if i forgot the password for first method ?
This comment was minimized by the moderator on the site
Thanks - very useful. A couple of low-importance questions from me. 1. Why do you prefix your variables with the character "x"? I'm not quite seeing what benefit this provides. 2. What does the "Sft" in "xSft1" and "xSft2" stand for?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations