Ugrás a tartalomra

Hogyan lehet titkosítani / visszafejteni a kijelölt cellákat az Excelben?

Bizonyos esetekben érdemes titkosítani néhány cellát, hogy megakadályozzák a más felhasználók által megtekintett cellákat. Hogyan lehet ezt gyorsan elvégezni? Ebben a cikkben most bemutatom azokat a trükköket, amelyek segítségével gyorsan titkosíthatja és visszafejtheti a kiválasztott cellatartalmakat az Excel programban.

Titkosítsa vagy dekódolja a kijelölt cellákat a VBA segítségével

A kiválasztott cellák titkosítása vagy visszafejtése a Kutools for Excel segítségével jó ötlet3


Titkosítsa vagy dekódolja a kijelölt cellákat a VBA segítségével

Itt van egy VBA kód, amely gyorsan titkosíthatja vagy visszafejtheti a kiválasztott cellákat az Excelben.

1. nyomja meg Alt + F11 megjelenítendő gombok Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a VBA kód alá az újba Modulok ablak.

VBA: Titkosítja vagy dekódolja a kijelölt cellákat.

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. Ezután nyomja meg a gombot F5 kulcs a VBA végrehajtásához, és megjelenik egy párbeszédablak a titkosítandó cellák kiválasztásához. Lásd a képernyőképet:
doc titkosítja az 1. visszafejtést

4. Ezután kattintson OK és írja be a titkosított cellák jelszavát egy másik előugró párbeszédpanelen. Lásd a képernyőképet:
doc titkosítja az 2. visszafejtést

5. kettyenés OK, majd a harmadik párbeszédpanelen írja be 1 a kijelölt cellák titkosításához, ha meg akarja oldani a cellákat, írja be 2. Lásd a képernyőképet:
doc titkosítja az 3. visszafejtést

6. kettyenés OK, és a kiválasztott cellák titkosítva vannak. Lásd a képernyőképet:
doc titkosítja az 4. visszafejtést


A kiválasztott cellák titkosítása vagy visszafejtése a Kutools for Excel segítségével

A fenti módszerrel a sejtek titkosítása vagy visszafejtése kissé összetett, de ha van Kutools az Excel számára telepítve, használhatja Cellák titkosítása és a Cellák visszafejtése segédprogramok gyors elvégzéséhez.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Jelölje ki a titkosítani kívánt cellákat, majd kattintson a gombra Kutools Plus > Cellák titkosítása. Lásd a képernyőképet:
doc titkosítja az 5. visszafejtést

2. Ezután írja be és erősítse meg a jelszót a Cellák titkosítása párbeszédpanelen, és válasszon egy titkosítási típust a Maszk szakasz. Lásd a képernyőképet:
doc titkosítja az 6. visszafejtést

3. kettyenés Ok or alkalmaz, és most a kiválasztott cellák titkosítva vannak.
doc titkosítja az 7. visszafejtést

Ha meg kell oldania a cellákat, jelölje ki őket, és kattintson Kutools Plus > visszafejtése, és a visszafejtéshez írja be a jelszót. Lásd a képernyőképet:

doc titkosítja az 8. visszafejtést  doc kutools titkosítja a sejteket 5

Az érdekelt cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations