Hvordan krypteres / dekrypteres valgte celler i Excel?
I nogle tilfælde vil du muligvis kryptere nogle celler for at forhindre celler, der vises af andre brugere, hvordan kan du få det gjort hurtigt? Nu i denne artikel introducerer jeg tricks til hurtigt at kryptere og dekryptere valgt celleindhold i Excel.
Krypter eller dekrypter valgte celler med VBA
Krypter eller dekrypter markerede celler med Kutools til Excel
Krypter eller dekrypter valgte celler med VBA
Her er en VBA-kode, der hurtigt kan kryptere eller dekryptere valgte celler i Excel.
1. Trykke Alt + F11 taster, der skal vises Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt under VBA-koden til den nye Moduler vindue.
VBA: Krypter eller dekrypter valgte celler.
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. Tryk derefter på F5 nøgle til at udføre VBA, og der vises en dialogboks til valg af celler, der skal krypteres. Se skærmbillede:
4. Klik derefter på OK og indtast adgangskode til de krypterede celler i en anden pop-up-dialog. Se skærmbillede:
5. klik OK, og skriv derefter i den tredje dialog 1 for at kryptere valgte celler, skal du indtaste, hvis du vil dekryptere celler 2. Se skærmbillede:
6. klik OK, og de valgte celler er krypteret. Se skærmbillede:
Krypter eller dekrypter markerede celler med Kutools til Excel
Med ovenstående metode til at kryptere eller dekryptere celler er lidt kompleks, men hvis du har Kutools til Excel installeret, kan du bruge Krypter celler , Dekrypter celler hjælpeprogrammer til hurtigt at få det gjort.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg de celler, du vil kryptere, og klik på Kutools Plus > Krypter celler. Se skærmbillede:
2. Indtast og bekræft derefter adgangskoden i Krypter celler dialog, og vælg en krypteringstype i Maske afsnit. Se skærmbillede:
3. klik Ok or Indløs, og nu er de valgte celler krypteret.
Hvis du har brug for at dekryptere cellerne, skal du markere dem og klikke på Kutools Plus > Dekryptér, og indtast adgangskoden for at dekryptere dem. Se skærmbillede:
Krypter og dekrypter celler
Artiklerne du måske er interesseret i:
- Hvordan kan man hurtigt vende data på hovedet i Excel?
- Hvordan genereres en liste over alle mulige 4-cifrede kombinationer i Excel?
- Hvordan genereres tilfældigt tal uden duplikater i Excel?
- Hvordan indsættes kun værdier i synlige / filtrerede celler i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!