Cum se criptează / decriptează celulele selectate în Excel?
În unele cazuri, poate doriți să criptați unele celule pentru a preveni celulele vizualizate de alți utilizatori, cum puteți face acest lucru rapid? Acum, în acest articol, introduc trucurile pentru a cripta și decripta rapid conținutul celulei selectate în Excel.
Criptați sau decriptați celulele selectate cu VBA
Criptați sau decriptați celulele selectate cu Kutools pentru Excel 
Criptați sau decriptați celulele selectate cu VBA
Iată un cod VBA care poate cripta sau decripta rapid celulele selectate din Excel.
1. presa Alt + F11 tastele de afișat Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Moduleși lipiți mai jos codul VBA în noul Module fereastră.
VBA: Criptează sau decriptează celulele selectate.
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. Apoi apăsați F5 tasta pentru a executa VBA și apare un dialog pentru selectarea celulelor de criptat. Vedeți captura de ecran:
4. Apoi apasa OK și introduceți parola pentru celulele criptate într-un alt dialog pop-out. Vedeți captura de ecran:
5. clic OK, și apoi în al treilea dialog, tastați 1 pentru a cripta celulele selectate, dacă doriți să decriptați celulele, introduceți 2. Vedeți captura de ecran:
6. clic OK, iar celulele selectate sunt criptate. Vedeți captura de ecran:
Criptați sau decriptați celulele selectate cu Kutools pentru Excel
Cu metoda de mai sus pentru a cripta sau decripta celulele este puțin complex, dar dacă aveți Kutools pentru Excel instalat, îl puteți utiliza Criptați celulele și Decriptează celulele utilitare pentru a o face rapid.
| Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare gratuită Kutools pentru Excel, faceți următoarele:
1. Selectați celulele pe care doriți să le criptați și faceți clic Kutools Plus > Criptați celulele. Vedeți captura de ecran:
2. Apoi introduceți și confirmați parola în Criptați celulele și alegeți un tip de criptare în Masca secțiune. Vedeți captura de ecran:
3. clic Ok or Aplică, iar acum celulele selectate sunt criptate.
Dacă trebuie să decriptați celulele, selectați-le și faceți clic Kutools Plus > decriptaţi, și introduceți parola pentru a le decripta. Vedeți captura de ecran:
Criptați și decriptați celulele
Articolele care vă pot interesa:
- Cum se răstoarnă rapid datele cu capul în jos în Excel?
- Cum se generează o listă a tuturor combinațiilor posibile de 4 cifre din Excel?
- Cum se generează un număr aleatoriu fără duplicate în Excel?
- Cum să lipiți valorile în celulele vizibile / filtrate numai în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
