如何加密或解密 Excel 中選取的儲存格？

作者Sun修改日期2024-09-12

在某些情況下，您可能希望加密部分儲存格，以防止他人檢視其中內容。如何快速完成這項操作？本文將介紹在 Excel 中快速加密與解密所選儲存格內容的實用技巧。

使用 VBA 加密或解密選取的儲存格

使用 Kutools for Excel 加密或解密選取的儲存格

使用 VBA 加密或解密選取的儲存格

以下是一段 VBA 程式碼，可快速加密或解密 Excel 中所選的儲存格。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

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

3. 接著按下 F5 鍵執行 VBA，此時將彈出對話方塊，供您選取要加密的儲存格。請參閱截圖：
用於選取要保護資料的 VBA 程式碼

4. 在另一個彈出的對話方塊中為加密儲存格輸入密碼，然後點擊確定。請參閱截圖：
用於輸入密碼的 VBA 程式碼

5. 在第三個對話方塊中，點擊確定後，輸入 1 以加密選取的儲存格；若要解密，請輸入 2. 請參閱截圖：
輸入 1 以加密選取的儲存格，輸入 2 以解密儲存格

6. 點擊確定後，選取的儲存格即完成加密。請參閱截圖：
選取的儲存格已加密

使用 Kutools for Excel 加密或解密選取的儲存格

以上方法雖可加密或解密儲存格，但步驟稍顯繁瑣。若您已安裝 Kutools for Excel，即可透過加密儲存格與解密儲存格工具，輕鬆快速完成操作！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與工作效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無比。Kutools for Excel 的詳細資訊…… 免費試用……

安裝免費版 Kutools for Excel 後，請依下列步驟操作：

1. 選取要加密的儲存格，然後點擊 KUTOOLS PLUS > 加密儲存格。請參閱下方截圖：
點擊 Kutools 的「加密儲存格」功能

2. 在加密儲存格對話方塊中輸入並確認密碼，並於遮蔽區段選擇一種加密類型。請參閱截圖：
在「加密儲存格」對話方塊中輸入並確認密碼

3. 點擊確定或套用，即可完成選取儲存格的加密。
選取的儲存格已加密

若需解密儲存格，請先選取它們，再點擊 KUTOOLS PLUS > 解密，並輸入密碼完成解密。詳情請參閱截圖：

加密與解密儲存格

您可能感興趣的文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：根據以下內容革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依性下拉式清單｜多重選擇下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜更多功能