如何在Excel中加密/解密选定的单元格？

网友投稿 192 2023-12-26

如何在Excel中加密/解密选定的单元格？

在某些情况下，您可能希望对某些单元进行加密以防止其他用户查看该单元，那么如何快速完成呢？现在，在本文中，我将介绍在Excel中快速加密和解密选定单元格内容的技巧。

使用VBA加密或解密选定的单元格

加密或解密选择的单元格 Kutools for Excel

使用VBA加密或解密选定的单元格

这是一个VBA代码，可以快速加密或解密Excel中选定的单元格。

1。按 Alt + F11键 显示键 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块，然后将以下VBA代码粘贴到新模块窗口。

VBA：加密或解密选定的单元格。

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

Copy

3.然后按 F5

键以执行VBA，并弹出一个对话框，用于选择要加密的单元。看截图：

4。然后点击 OK

然后在另一个弹出的对话框中输入加密单元的密码。看截图：

5。点击 OK，然后在第三个对话框中，键入 1 加密选定的单元格，如果要解密单元格，请输入 2

。看截图：

6。点击 OK

，并且所选单元格被加密。看截图：

加密或解密选择的单元格 Kutools for Excel

使用上述方法来加密或解密单元格有点复杂，但是如果您有 Kutools for Excel 安装好后就可以使用 加密单元 和 解密单元 实用程序来快速完成它。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择要加密的单元，然后单击 Kutools 加 > 加密单元

。看截图：

2.然后输入并确认密码。 加密单元 对话框，然后在口罩

部分。看截图：

3。点击 Ok or 使用

，现在选定的单元格已加密。

如果需要解密单元，请选择它们并单击 Kutools 加 > 解码，然后输入密码进行解密。看截图：

加密和解密单元
您可能感兴趣的文章： 如何在Excel中快速上下翻转数据？如何在Excel中生成所有可能的4位数字组合的列表？如何在Excel中生成没有重复的随机数？如何仅在Excel中将值粘贴到可见/过滤的单元格？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。