Jak šifrovat / dešifrovat vybrané buňky v aplikaci Excel?
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 
Š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 Sub3. 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:
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:
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:
6. cvaknutí OKa vybrané buňky jsou šifrovány. Viz snímek obrazovky:
Š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:
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:
3. cvaknutí Ok or Podat žádosta nyní jsou vybrané buňky zašifrovány.
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:
Šifrování a dešifrování buněk
Články, které by vás mohly zajímat:
- Jak rychle převrátit data vzhůru nohama v aplikaci Excel?
- Jak vygenerovat seznam všech možných kombinací čtyř číslic v aplikaci Excel?
- Jak generovat náhodné číslo bez duplikátů v aplikaci Excel?
- Jak vložit hodnoty do viditelných / filtrovaných buněk pouze v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!
