¿Cómo cifrar / descifrar celdas seleccionadas en Excel?
En algunos casos, es posible que desee cifrar algunas celdas para evitar que las vean otros usuarios, ¿cómo puede hacerlo rápidamente? Ahora, en este artículo, presento los trucos para cifrar y descifrar rápidamente el contenido de la celda seleccionada en Excel.
Encriptar o desencriptar celdas seleccionadas con VBA
Cifre o descifre celdas seleccionadas con Kutools para Excel 
Encriptar o desencriptar celdas seleccionadas con VBA
Aquí hay un código VBA que puede cifrar o descifrar rápidamente las celdas seleccionadas en Excel.
1. Prensa Alt + F11 teclas para mostrar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue debajo del código VBA en el nuevo Módulo ventana.
VBA: cifra o descifra las celdas seleccionadas.
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. Luego presione F5 clave para ejecutar el VBA, y aparece un cuadro de diálogo para seleccionar celdas para cifrar. Ver captura de pantalla:
4. Luego haga clic OK e ingrese la contraseña para las celdas encriptadas en otro cuadro de diálogo emergente. Ver captura de pantalla:
5. Hacer clic en OKy luego en el tercer cuadro de diálogo, escriba 1 para cifrar las celdas seleccionadas, si desea descifrar las celdas, ingrese 2. Ver captura de pantalla:
6. Hacer clic en OKy las celdas seleccionadas se cifran. Ver captura de pantalla:
Cifre o descifre celdas seleccionadas con Kutools para Excel
El método anterior para cifrar o descifrar celdas es un poco complejo, pero si tiene Kutools for Excel instalado, puedes usar Cifrar celdas y Descifrar celdas utilidades para hacerlo rápidamente.
| Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Seleccione las celdas que desea cifrar y haga clic en Kutools Más > Cifrar celdas. Ver captura de pantalla:
2. Luego ingrese y confirme la contraseña en el Cifrar celdas cuadro de diálogo y elija un tipo de cifrado en el Máscara sección. Ver captura de pantalla:
3. Hacer clic en Ok or ¡Aplicá!, y ahora las celdas seleccionadas están encriptadas.
Si necesita descifrar las celdas, selecciónelas y haga clic en Kutools Más > Descifrare ingrese la contraseña para descifrarlos. Ver captura de pantalla:
Cifrar y descifrar celdas
Los artículos que te pueden interesar:
- ¿Cómo invertir rápidamente los datos en Excel?
- ¿Cómo generar una lista de todas las combinaciones posibles de 4 dígitos en Excel?
- ¿Cómo generar un número aleatorio sin duplicados en Excel?
- ¿Cómo pegar valores en celdas visibles / filtradas solo en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
