Wie verschlüsselt oder entschlüsselt man ausgewählte Zellen in Excel?
In einigen Fällen möchten Sie möglicherweise bestimmte Zellen verschlüsseln, um zu verhindern, dass andere Benutzer deren Inhalt einsehen. Wie können Sie dies schnell erreichen? In diesem Artikel stelle ich Ihnen Tricks vor, um den Inhalt ausgewählter Zellen 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, mit dem Sie ausgewählte Zellen in Excel blitzschnell verschlüsseln oder entschlüsseln können.
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 Modul-Fenster 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 Sub3. Drücken Sie anschließend die Taste F5, um das VBA auszuführen. Es erscheint ein Dialogfeld, in dem Sie die zu verschlüsselnden Zellen auswählen können. Siehe Screenshot:
4. Klicken Sie dann auf OK und geben Sie im daraufhin erscheinenden Dialogfeld das Passwort zur Verschlüsselung der 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. Möchten Sie Zellen entschlüsseln, geben Sie 2 ein. 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 beschriebene Methode zum Verschlüsseln oder Entschlüsseln von Zellen ist etwas komplex. Wenn Sie jedoch Kutools für Excel installiert haben, können Sie die Funktionen Zellen verschlüsseln und Zellen entschlüsseln nutzen, um dies im Handumdrehen zu erledigen.
Nach der kostenlosen Installationvon Kutools für Excel gehen Sie 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 anschließend im Dialogfeld Zellen verschlüsseln Ihr Passwort ein und bestätigen Sie es. Wählen Sie außerdem im Abschnitt Maskieren einen Verschlüsselungstyp aus. Siehe Screenshot:
3. Klicken Sie auf OK oder Übernehmen, und die ausgewählten Zellen sind sofort verschlüsselt.
Um die Zellen zu entschlüsseln, wählen Sie diese aus, klicken Sie auf KUTOOLS PLUS > Entschlüsseln und geben Sie das Passwort ein. Siehe Screenshot:
Verschlüsseln und Zellen entschlüsseln
Möglicherweise interessante Artikel:
- Wie dreht man Daten in Excel schnell auf den Kopf?
- Wie erstellt man in Excel eine Liste aller möglichen 4-stelligen Kombinationen?
- Wie generiert man in Excel eine Zufallszahl ohne Duplikate?
- Wie fügt man Werte ausschließlich in sichtbare bzw. gefilterte Zellen in Excel ein?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins