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

安全处理敏感数据是至关重要的，Excel具有内置工具，可以让您对电子表格中的个别单元格设置密码保护。您可以通过加密和解密特定单元格来保护敏感数据免受未经授权的访问或意外更改。本文将一步一步地介绍如何加密和解密特定的Excel单元格。本手册将为您提供有关如何保护您的信息安全的知识，无论您需要保护银行记录、个人数据还是其他敏感数据。

在我们开始之前，请确保您对Microsoft Excel的功能有基本的了解。如果您可以熟练使用Excel界面并使用单元格、行和列进行操作，那将非常有帮助。确保计算机已安装Microsoft Excel并支持加密功能。让我们开始学习如何加密和解密特定的Excel单元格！

加密/解密选定的单元格

首先，我们将创建一个VBA模块，然后运行它来选择单元格范围、密码和加密或解密完成任务。让我们看一个简单的过程，了解如何在Excel中加密或解密选定的单元格。

步骤1

考虑一个Excel工作表，其中包含您的物品清单。

首先，右键单击工作表名称，选择”查看代码”打开VBA应用程序。

右键单击 > 查看代码

步骤2

然后点击插入，选择模块，然后将以下代码复制到文本框中。

插入 > 模块 > 复制

代码

Private Function StrToPsd(ByVal Txt As String) As Long
   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:", "Encrypt Or Decrypt", xTxt, , , , , 8)
   Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
   If xRg Is Nothing Then Exit Sub
   xPsd = InputBox("Enter password:", " Encrypt Or Decrypt ")
   If xPsd = "" Then
      MsgBox "Password cannot be empty", , " Encrypt Or Decrypt "
      Exit Sub
   End If
   xRet = Application.InputBox("Type 1 to encrypt cell(s);Type 2 to decrypt cell(s)", " Encrypt Or Decrypt ", , , , , , 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

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