Wie verschlüsselt/entschlüsselt man ausgewählte Zellen in Excel?

In einigen Fällen möchten Sie möglicherweise einige Zellen verschlüsseln, um zu verhindern, dass andere Benutzer diese sehen. Wie können Sie das schnell erledigen? In diesem Artikel stelle ich Tricks vor, um ausgewählte Zelleninhalte in Excel schnell zu verschlüsseln und zu entschlüsseln.

Ausgewählte Zellen mit VBA verschlüsseln oder entschlüsseln

Ausgewählte Zellen mit Kutools für Excel verschlüsseln oder entschlüsseln

Ausgewählte Zellen mit VBA verschlüsseln oder entschlüsseln

Hier ist ein VBA-Code, der ausgewählte Zellen in Excel schnell verschlüsseln oder entschlüsseln kann.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Ausgewählte Zellen verschlüsseln oder entschlüsseln.

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. Drücken Sie dann die F5 -Taste, um das VBA auszuführen, und ein Dialogfeld erscheint zur Auswahl der zu verschlüsselnden Zellen. Siehe Screenshot:

4. Klicken Sie dann auf OK , und geben Sie im nächsten Dialogfeld ein Passwort für die verschlüsselten Zellen ein. Siehe Screenshot:

5. Klicken Sie auf OK, und geben Sie im dritten Dialogfeld 1 ein, um die ausgewählten Zellen zu verschlüsseln. Wenn Sie Zellen entschlüsseln möchten, geben Sie 2ein. Siehe Screenshot:

6. Klicken Sie auf OK, und die ausgewählten Zellen sind verschlüsselt. Siehe Screenshot:

Ausgewählte Zellen mit Kutools für Excel verschlüsseln oder entschlüsseln

Die oben genannte Methode zum Verschlüsseln oder Entschlüsseln von Zellen ist etwas komplex, aber wenn Sie Kutools für Excel installiert haben, können Sie die Dienstprogramme Zellen verschlüsseln und Zellen entschlüsseln verwenden, um dies schnell zu erledigen.

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zellen aus, die Sie verschlüsseln möchten, und klicken Sie auf Kutools Plus > Zellen verschlüsseln. Siehe Screenshot:

2. Geben Sie dann das Passwort ein und bestätigen Sie es im Zellen verschlüsseln -Dialogfeld und wählen Sie einen Verschlüsselungstyp im Abschnitt Maske aus. Siehe Screenshot:

3. Klicken Sie auf Ok oder Anwenden, und jetzt sind die ausgewählten Zellen verschlüsselt.

Wenn Sie die Zellen entschlüsseln müssen, wählen Sie sie aus und klicken Sie auf Kutools Plus > Entschlüsseln und geben Sie das Passwort ein, um sie zu entschlüsseln. Siehe Screenshot:

  

Zellen verschlüsseln und entschlüsseln

Die Artikel, die Sie interessieren könnten:

• Wie dreht man Daten schnell in Excel um?
• Wie generiert man eine Liste aller möglichen 4-stelligen Kombinationen in Excel?
• Wie generiert man eine Zufallszahl ohne Duplikate in Excel?
• Wie fügt man Werte nur in sichtbare/gefilterte Zellen in Excel ein?