Come crittografare o decrittografare le celle selezionate in Excel?
In alcuni casi potrebbe essere necessario crittografare determinate celle per impedirne la visualizzazione ad altri utenti. Come si può eseguire questa operazione in modo rapido? In questo articolo ti sveliamo alcuni trucchi pratici per crittografare e decrittografare velocemente il contenuto delle celle selezionate in Excel.
Crittografare o decrittografare celle selezionate con VBA
Crittografare o decrittografare celle selezionate con Kutools per Excel 
Crittografare o decrittografare celle selezionate con VBA
Di seguito trovi un codice VBA che ti permette di crittografare o decrittografare in modo rapido le celle selezionate in Excel.
1. Premere i tasti Alt + F11 per visualizzare la finestra di Microsoft Visual Basic, Applications Edition.
2. Fare clic su Inserisci > Modulo, quindi incollare il seguente codice VBA nella nuova finestra del Modulo.
VBA: Crittografa o decrittografa le celle selezionate.
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. Premere quindi il tasto F5 per eseguire il codice VBA. Si aprirà una finestra di dialogo in cui selezionare le celle da crittografare. Vedere lo screenshot:
4. Fare quindi clic su OK e inserire la password per crittografare le celle in un’altra finestra di dialogo visualizzata. Vedere lo screenshot:
5. Fare clic su OK, quindi digitare 1 per crittografare le celle selezionate. Se si desidera decrittografare le celle, inserire 2. Vedere lo screenshot:
6. Fare clic su OK e le celle selezionate verranno crittografate. Vedere lo screenshot:
Crittografare o decrittografare celle selezionate con Kutools per Excel
Il metodo descritto sopra per crittografare o decrittografare le celle è leggermente complesso, ma se hai installato Kutools per Excel, puoi utilizzare le funzionalità Crittografa celle e Decrittografa celle per eseguire l'operazione in pochi istanti.
Dopo aver installato gratuitamenteKutools per Excel, procedere come segue:
1. Seleziona le celle da crittografare e fai clic su KUTOOLS PLUS > Crittografa celle. Vedi lo screenshot:
2. Inserisci quindi la password e confermala nella finestra di dialogo Crittografa celle, poi scegli un tipo di crittografia nella sezione Maschera. Guarda lo screenshot:
3. Fai clic su Ok o su Applica e le celle selezionate verranno crittografate.
Per decrittografare le celle, selezionale e fai clic su KUTOOLS PLUS > Decrittografa, quindi inserisci la password per decrittarle. Vedere lo screenshot:
Crittografa e Decrittografa celle
Articoli che potrebbero interessarti:
- Come capovolgere rapidamente i dati in Excel?
- Come generare in Excel un elenco di tutte le possibili combinazioni di 4 cifre?
- Come generare numeri casuali univoci in Excel?
- Come si fa a incollare valori solo nelle celle visibili o filtrate in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi