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
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:
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:
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:
6. kettyenés OK, és a kiválasztott cellák titkosítva vannak. Lásd a képernyőképet:
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:
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:
3. kettyenés Ok or alkalmaz, és most a kiválasztott cellák titkosítva vannak.
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:
Sejtek titkosítása és visszafejtése
Az érdekelt cikkek:
- Hogyan lehet gyorsan felfordítani az adatokat az Excelben?
- Hogyan lehet létrehozni egy listát az összes lehetséges 4 számjegyű kombinációról az Excelben?
- Hogyan lehet véletlenszámot előállítani duplikátum nélkül az Excelben?
- Hogyan illesszen be értékeket csak látható / szűrt cellákba csak az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!