• 51

Wachtwoord Excel werkblad beveiliging kraken

Ben je het wachtwoord Excel vergeten van je excel werkblad? Dan kun je kun die met de volgende macro code opheffen. Erg handig als je het wachtwoord van je excel werkblad bent vergeten. Het is niet mogelijk om het gebruikte wachtwoord te achterhalen.

Je kunt ook het wachtwoord verwijderen door het excel bestand te zippen, check dan In 6 eenvoudige stappen een Excel werkblad wachtwoord verwijderen

Het werkblad is beveiligd, wachtwoord kwijt!

Als je werkblad is beveiligd en je wilt deze bewerken krijg je de volgende melding te zien:

Werkblad is beveiligd met een wachtwoord.

Ga in het lint naar het tabblad “Controleren“, daar zie je in de groep “Beveiligen” de optie “Beveiliging blad opheffen“.

Werkblad beveiliging opheffen

Er verschijnt nu een popup waar om het wachtwoord wordt gevraagd. Als je deze niet meer weet, kun je behoorlijk in zak en as zitten.

Beveiliging blad opheffen

Hieronder staat stap voor stap hoe je deze beveiliging zou kunnen opheffen. Deze methode werkt met een macro en werkt alleen in een versie ouder dan Excel 2016. De VBA werkt alleen voor werkbladen die zijn beveiligd, niet voor een werkmap die is beveiligd.

Een alternatieve methode is je Excel bestand bewerken als ZIP bestand en dit werkt voor alsnog met elk versie. Zie het artikel In 6 eenvoudige stappen een Excel werkblad wachtwoord verwijderen.

Macro Excel wachtwoord beveiliging kraken

Hier is de VBA code die we gaan gebruiken.

Sub WachtwoordKraker()
 Dim i As Integer, j As Integer, k As Integer
   Dim l As Integer, m As Integer, n As Integer
   Dim i1 As Integer, i2 As Integer, i3 As Integer
   Dim i4 As Integer, i5 As Integer, i6 As Integer
   On Error Resume Next
   For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
   For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
   For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
   For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
   Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
   Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   If ActiveSheet.ProtectContents = False Then
   MsgBox "Wachtwoord is verwijderd"
 Exit Sub
 End If
   Next: Next: Next: Next: Next: Next
   Next: Next: Next: Next: Next: Next
 End Sub
Let op! Gebruik altijd een kopie van het originele bestand! Hoewel de volgende stappen het bestand niet beschadigen kan het geen kwaad om voorzichtig te zijn.

Benodigde tijd: 5 minuten.

Macro Excel wachtwoord beveiliging kraken

  1. Bestand opslaan als Excel-werkmap met macro’s

    We gaan het wachtwoord proberen te kraken met een macro. hiervoor moet het bestand wel zijn opgeslagen als Excel macro bestand.
    Open het bestand dat het beveiligde werkblad bevat. Om macro’s te gebruiken en het bestand op te kunnen slaan moeten we het bestand opslaan als Excel-werkmap met macro’s.

    Klik op Bestand en selecteer Opslaan als.
    Kies in de dropdown lijst de optie: Excel-werkmap met macro’s (*.xlsm)

    Wachtwoord Excel werkblad beveiliging kraken

    Kies een locatie om het bestand op te slaan. Het bestand is nu opgeslagen als Voorbeeld.xlsm (dit was Voorbeeld.xlsx).

  2. VBA code toevoegen

    Nu we alle voorbereidingen hebben getroffen gaan we de VBA code invoeren. Toets de combinatie ALT en F11. Er opent nu een scherm “Microsoft Visual Basic for applications”

    Wachtwoord Excel werkblad beveiliging kraken

    Dubbelklik nu links in het VBA project op “ThisWorkbook“. Er opent rechts een wit scherm waarin we de VBA code plakken die hierboven staat vermeld.

    Het scherm zou er nu als volgt uit moeten zien:

    Wachtwoord Excel werkblad beveiliging kraken

    Sluit dit venster door rechtsboven op het kruisje te klikken.

  3. Uitvoeren van de macro, werkblad beveiliging kraken

    Toets nu de combinatie ALT + F8. Het macro scherm opent en de beschikbare macro’s zijn zichtbaar. Selecteer de macro WachtwoordKraker en klik op Uitvoeren.
    Wachtwoord Excel werkblad beveiliging kraken
    Nadat de macro klaar is verschijnt een bericht dat het wachtwoord is verwijderd.
    Wachtwoord Excel werkblad beveiliging kraken
    Klik op OK en het werkblad is vrij om bewerkt te worden.

Theo Schipper

Dit vind je misschien ook leuk...

51 reacties

  1. Guido M schreef:

    Beste Theo,
    Ik werk met EXCEL op een MAC en de beschreven procedure werkt enkel op PC.
    Ken jij ook de procedure om de beveiliging van een werkblad te kraken op MAC?
    Dank en groet,
    Guido M

  2. Stacey schreef:

    Beste Theo,

    Mijn werkblad loopt vast bij het uitvoeren van de Macro.
    Heb je hier een oplossing voor?

    Ik gebruik Office 365 MSO 32-bits

  3. René schreef:

    Dankjewel!
    blij dat ik dit simpele stappenplan heb doorlopen en nu vrij met het excel bestand aan de slag kan gaan!

  4. Ben schreef:

    Ik presteer het blijkbaar om in een simpel wachtwoord van 4 letters nog een typefout te prutsen. Ben je veel dank verschuldigd voor deze simpele oplossing! Dank!!!

  5. Stefanie schreef:

    Hoe los je dit op in Excel 2016?

  6. Jeroen schreef:

    Super, werkt perfect. Hartelijk bedankt!

  7. Bas schreef:

    Erg handig Theo, bedankt! Is er een VBA code voor het verwijderen van een wachtwoord in Excel 2016?

  8. Ruben Monsterman schreef:

    ja … eerst vragen en dan googlen. Handig … ik heb het inmiddels zelf gevonden. Gaat overigens ook super handig :).

  9. Ruben Monsterman schreef:

    Is er misschien een VBA om een werkmap beveiliging te omzeilen?

  10. Dennis Reijnders schreef:

    Hoi, ik heb dit zojuist geprobeerd in de nieuwste versie van excel. Alleen als ik op uitvoeren druk loopt excel vast en kan ik niks anders meer als afsluiten. Is daar een oplossing voor?

  11. Amber schreef:

    Hallo Ik heb dit geprobeerd in excel. Het zegt dat het wachtwoord verwijderd is . Maar in mijn tabblad zie ik nog steeds een slotje staan. Heb ik iets overgeslagen?

  12. Rino schreef:

    ik ben niet zo heel bekend met “kraken” heb je ook een voorbeeld hoe je dit doet? met plaatjes

  13. Arjan schreef:

    Werkt goed! bedankt

  14. JH.Graveman schreef:

    Werkt prima zelfs in excel 365

  15. Franz Maissan schreef:

    Bedankt Theo, werkt uitstekend! Werkblad gered.

  16. Freek schreef:

    Het betrof wel een bestand in compatibiliteitsmodus. Misschien maakt dat wel verschil. 🙂

  17. Freek schreef:

    FYI: werkt bij mij prima in Excel Professional Plus 2016. Lifesaver!! Bedankt!

  18. Peter schreef:

    Top site, goeie informatie.

    Ga zo door Theo.

  19. Hans schreef:

    Beste Theo,

    Betekent dit dat beveiligen in feite geen zin heeft?
    (ik heb al mijn w.w.-en in een sheet staan….is dat wel verantwoord dan…)

    Dank je!
    Hans

  20. ROB schreef:

    Hallo Theo,
    Het was even zoeken hoe om te gaan met macro’s (nog nooit eerder gedaan); maar met 10 min. proberen stonden plotseling de cellen vrij geschakeld. Hartstikke goed!
    Bedankt voor deze tool; kan ik mijn VVE begroting weer op orde brengen. 🙂
    Rob

  21. J. de Bruin schreef:

    Theo, bestaat ook de mogelijkheid dat je mij kunt bellen, als dat zo is dan geef ik mijn nummer via mijn mailadres

  22. Dennis schreef:

    Hoi Theo

    ik heb je marco gebruikt en werkt perfect, echter zitten er ook verborgen tabbladen in die in nu niet zichtbaar krijg heb jij misschien een tip

  23. Sander schreef:

    Hallo Theo,

    kan het dat het uitvoeren van de macro lang (plus 10 minuten al) duurt. Excel staat op not responding. Kwestie van afwachten? Bij voorbaat dank!

  24. E. Goedee schreef:

    Hoi Theo,
    Bedankt werkt super.
    Alleen ik heb ook een document doe je ALT F11;
    Links boven VBAProject daar staat een + VBAproject ( naam van het bestand.xls)
    -klik je op het plusje dan vraagt het om een wachtwoord.
    -Bij het vorige document stond er gewoon blad 1 en kreeg je een wit vlak voor te plakken , maar nu blijft het vlak grijs en vraagt om een wachtwoord.
    Wat is de volgen de actie?
    Alvast bedankt.
    E. Goedee

    • Theo Schipper schreef:

      Hoi, dan is waarschijnlijk de macro beveiligd met een wachtwoord in dat document. Ik weet niet of het werkt zo uit mijn hoofd maar wat je kan proberen:
      – Open een leeg document (1) met deze macro in de vba.
      – Open het document (2) waar je de macro wilt uitvoeren en ga naar het tabblad waar je de beveiliging van wilt opheffen.
      – Voer de macro uit vanuit bestand 1. Als je macro’s opent kan je namelijk ook macro’s uit andere geopende bestanden uitvoeren.
      Ik hoor graag of je hiermee verder bent gekomen, ik zal hem volgende week verwerken in dit bericht.

  25. j. Derksen schreef:

    Ik heb een XLSX bestand die al om een wachtwoord vraagt bij het openen en dat wachtwoord is onbekend. ik krijg met bovenstaande code het werkblad niet geopend. heb je daar nog een tip voor.

    • Theo Schipper schreef:

      Deze macro is echt voor een werkblad, en niet voor een heel bestand. Als ik jou vraag kan beantwoorden zal ik hem op de website zetten.

  26. J. Crol schreef:

    Werkt perfect, heb een werkblad uit 1997 kunnen redden.
    Bedankt

  27. Minalela schreef:

    Hoi,
    bij mij werkt deze macro niet. Excel 2013. Bij foutopsporing geeft hij aan dat er een fout zit in de volgende regel:
    If ActiveSheet.ProtectContents = False Then

    Enig idee hoe dit kan?

  28. Anoniem schreef:

    Perfect dit!

  29. herman schreef:

    Ik heb een exel bestand exel 97-2003 werkmap. bij mij werkt het niet! wat doe ik fout?

  30. yves schreef:

    Supper tenks werkt perfekt

  31. Boz Crab schreef:

    Werkt goed, bedankt Theo

  32. Arno schreef:

    Eh…het is niet helemaal duidelijk waar je de code na alt F11 moet kopieren….. Er opent MS visual basic for applications met een grijs scherm en diverse menutabs, maar code plakken zonder menukeuze kan niet (Excel 2013)

  33. karel schreef:

    Ik heb een eigen excel 2010 document ( Microsoft Excel-werkblad (.xlsx) )
    weet wel ongeveer welk ww het moet zijn maar blijft niet lukken, heb je daar een oplossing voor ?

    • Theo Schipper schreef:

      Hoi Karel, heb je bovenstaande macro geprobeerd? Sla het bestand eens op als .xlsm (macro) en voer deze macro eens uit.

  34. Maarten schreef:

    Super! Werkte perfect met Excel 2010. We hadden op het werk Excel sheets met sterkteberekeningen waar niemand de beveiligingscode meer van wist. Nu kunnen we ze eindelijk aanpassen. Bedankt!

  35. Willem schreef:

    Werkt perfect, dank hiervoor!

  36. Theo Schipper schreef:

    Bedankt voor je reactie, zal het aanpassen. Nu maar weer op zoek naar een nieuwe versie.

  37. Andries schreef:

    voor Excel 2016 gaat dit niet meer werken…

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *