Hoe versleutelt of ontsleutelt u geselecteerde cellen in Excel?
In sommige gevallen wilt u mogelijk bepaalde cellen versleutelen om te voorkomen dat andere gebruikers deze kunnen bekijken. Hoe kunt u dit snel doen? In dit artikel beschrijf ik de trucs om geselecteerde celinhoud snel te versleutelen en ontsleutelen in Excel.
Geselecteerde cellen versleutelen of ontsleutelen met VBA
Geselecteerde cellen versleutelen of ontsleutelen met Kutools voor Excel 
Geselecteerde cellen versleutelen of ontsleutelen met VBA
Hier is een VBA-code waarmee u geselecteerde cellen in Excel snel kunt versleutelen of ontsleutelen.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications weer te geven.
2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het nieuwe Module-venster.
VBA: Versleutel of ontsleutel de geselecteerde cellen.
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. Druk vervolgens op F5 om de VBA uit te voeren. Er verschijnt een dialoogvenster waarin u cellen kunt selecteren om te versleutelen. Zie screenshot:
4. Klik daarna op OK en voer het wachtwoord in voor het versleutelen van cellen in het nieuwe dialoogvenster dat verschijnt. Zie screenshot:
5. Klik op OK en typ in het derde dialoogvenster 1 om de geselecteerde cellen te versleutelen. Als u cellen wilt decoderen, voert u 2 in. Zie screenshot:
6. Klik op OK en de geselecteerde cellen worden versleuteld. Zie screenshot:
Geselecteerde cellen versleutelen of ontsleutelen met Kutools voor Excel
De bovenstaande methode om cellen te versleutelen of te decoderen is enigszins complex, maar als u Kutools voor Excel hebt geïnstalleerd, kunt u gebruikmaken van de hulpprogramma’s Cellen versleutelen en Cellen decoderen om dit snel te realiseren.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer de cellen die u wilt versleutelen en klik op KUTOOLS PLUS > Cellen versleutelen. Zie screenshot:
2. Voer vervolgens uw wachtwoord in en bevestig dit in het Cellen versleutelen-dialoogvenster. Kies daarna een versleutelingstype in het gedeelte Maskeren. Zie de screenshot:
3. Klik op Ok of Toepassen, en de geselecteerde cellen zijn nu versleuteld.
Als u de cellen wilt ontsleutelen, selecteert u ze en klikt u op KUTOOLS PLUS > Ontsleutelen en voert u het wachtwoord in om ze te ontsleutelen. Zie screenshot:
Versleutelen en Cellen decoderen
Artikelen die u mogelijk interesseren:
- Hoe draait u gegevens snel ondersteboven in Excel?
- Hoe genereert u in Excel een lijst met alle mogelijke combinaties van 4 cijfers?
- Hoe genereert u in Excel een willekeurig getal zonder duplicaten?
- Hoe plakt u alleen waarden in zichtbare of gefilterde cellen in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins