Protectie password vergeten

[Humadgen]

Hi

Ik bouw regelmatig EXCEL programma's en als er bepaalde worksheets beveilig moeten worden, dan gebruikt ik hier altijd hetzelfde wachtwoord voor.

Ongeveer een jaar geleden heb ik een bestandje gebouwd met Macros, Cel verwijzingen, apparte sheets waar de output op terecht komt die geprint wordt....etc. Met andere woorden met veel toeters en bellen zodat gebruikers in het bedrijf deze konden gebruiken zonder dat ze iets konden overschrijven.

Aangezien het beheer bij iemand anders zou komen liggen heb ik een ander password gebruikt om sheets te beveiligen en heb ik het passwoord doorgegeven.

Nu blijkt dat er iets aangepast moet worden. De persoon die het in beheer had weet niet meer wat het passwoord is (en ik zelf ook niet meer.)

Is er een manier om het password te achterhalen?

 

[maartenf]

ja, hoor. legio programma's die dat doen
google eens op xlcrack

 

[puppie]

Ja hoor op google zijn genoeg paswoord krakers voor excel te vinden..

 

[Humadgen]

Bedankt voor de antwoorden,
Helaas kan ik hier zelf niets mee beginnen want volgens onze helpdesk zijn het illigale programma's en binnen een Bank mogen zij daar niets mee doen.

 

[Demeter]

Er is ook en VBA oplossing hiervoor, gratis en voor niks.
Moet deze alleen weer even te pakken krijgen.

In ieder geval heden avond, kan nu niet bij mijn fav's thuis.

houdt moet, help is onder weg

GRoet,
Ferenc

 

[CorVerm]

Kijk hier even voor een, naar mijn idee, legale oplossing.
http://www.helpmij.nl/forum/showthread.php?t=252212&highlight=wachtwoord

 

[Demeter]

zoek functie deed het hier tijdelijk niet, lol

probeer deze ook eens (alleen versies jonger dan 2003):

Sub OverrideSheetPasswordProtection() 
ActiveSheet.Protect , , , , True 
Range("A1").Copy Range("A1") 
End Sub

en voor workbook:

Sub CrackWB() 
'this is for the workbook 
With ActiveWorkbook 
.Protect "", True, True 
.Unprotect 
End With 

End Sub

Groet,
Ferenc

 

[Jan van Asseldonk]

Download hier de invoegtoepassing password.xla.
Installeer deze via extra, invoegtoepassingen.
Daarna heb je twee extra opties onder menu extra.

 

[Humadgen]

Wederom allemaal bedankt voor reakties

CorVerm of Dnereb (waarvan de Macro komt)

Ik heb de link gebruikt en de Marco die daar instaat geprobeerd.
Tenzij ik iets verkeerd doe, krijg ik als antwoord: AAAAAAAAAA
Dit krijg ik ook bij bij sheets waarvan ik het password wel ken.

Wat doe ik verkeerd?

Ik copieer de Macro:
k ga naar de sheet tab waarvan ik de protectie wil oplossen.
Ik Klik rechts op de sheet en open: View Code.
In het VBA PROJECT scherm plak ik de Macro.
Ik sluit de Visio Basic
En tenslotte Run ik de Macro die ik heb toegevoegd.

Er komt dan een pop-up scherm met [ one usable password is AAAAAAAAAAA ]


Aan Demeter:

De eerste Macro die je opgeeft heb ik op dezelfde manier gebruikt als hierboven beschreven.

Als resultaat komt een pop-up scherm waarin wordt gevraagd om in te geven : [Password to unportect]
Dat is lekker want die zoek ik net ;-)

Als ik het juiste password gebruik dan krijg ik daarna een pop-up met het getal 400 ??????
Ik wordt ook daar niets wijzer van.
Dus als ik iets verkeerd doe laat het gerust weten.

Je tweede macro doet helemaal niets.

Ik dacht altijd dat ik wel aardig wat van EXCEL wist, maar ik voel me opeens weer een beginner.

Alvast bedankt voor verdere tips.

Frank

Ps. De Website die Jan aangeeft mag ik zelf niet downloaden, daarvoor moet ik kijken of 1 van mijn contacten bij de helpdesk me kan helpen. Ik laat nog wel weten of dat wel lukt.

 

[Demeter]

..........

Heb nogmaals deze code geprobeerd op een werkblad:

Private Sub Worksheet_Activate()
ActiveSheet.Protect , , , , True
Range("A1").Copy Range("A1")
End Sub

en bij mij (excel 2000) wordt het password wel weggehaald!
Geplaatst op het werkblad, rechtermuisknop op tab/programmacode weergeven.
Hier plak ik de code, terug naar excel en even wisselen van sheets.

Welke versie van Excel heb jij eigenlijk? in 2003 werkt deze methode niet.


Groet,
Ferenc

 

[Humadgen]

Wij gebruiken EXCEL 2002.

Ik neem dat je bedoelt dat ik de code

Private Sub Worksheet_Activate()
ActiveSheet.Protect , , , , True
Range("A1").Copy Range("A1")
End Sub

in VBA moet plakken (waar de Macro's terug te lezen zijn) toch?

Terug naar EXCEL, dat snap ik ook, maar daarna zeg je wisselen van sheets??? Wat bedoel je dan.

Frank

 

[Demeter]

Dit stuk code zorgt ervoor dat als je het tabblad activeerd de code wordt uitgevoerd

Worksheet_Activate()

Als je de code op het tabblad plaatst heb je al je blad geselecteerd.
Nu wordt de code dus niet uitgevoerd.
Je moet dus eerst een ander blad selecteren en dan degene waarop de code staat.

Excel 2002? is die niet alleen voor de Mac uitgekomen?


Succes,
Ferenc

 

[Humadgen]

Wederom bedankt voor het antwoord, maar ik doe denk ik echts iets fout, maar wat weet ik niet wat.

Eerst even over de EXCEL => Zie word doc. (dit is toch echt 2002 of ik lees het verkeerd.)

Ik heb nog een bestandje gevonden dat ik gemaakt heb onder EXCEL 1997, dus ik weet niet of het daarbij wel zou gaan, maar dan met ik het thuis op een PC proberen en of het dan nog uitmaakt of ik het binnen EXCEL 2002 open.


Met betrekking tot de code en waar ik fout ga heb ik ook mijn stappen in de word documentjes laten zien.
Misschien helpt dat me aan tegeven waar ik de mist in ga.

Bij voorbaat dank voor je uitleg en je geduld.

 

[Humadgen]

er is nog een 1e bestandje maar dat krijg ik niet geladen. vanwege de size limiet.
Ik weet niet hoe ik dat dan weer duidelijk moet maken.

 

[Demeter]

Probeer eens wat er in mijn word.doc filetje staat uitgelegd?
Is een andere aanpak maar met dezelfde code, misschien gaat de VBE anders met de code om in jouw methode!


Succes,
Ferenc

 

[Demeter]

Over de versies van Excel kan je hier alles vinden:

http://nl.wikipedia.org/wiki/Microsoft_Excel

Mijn fout dat 2002 niet bestond


Groet,
Ferenc

 

[Confictius]

Het kan simpeler:
Er vanuit gaand dat je praat over het wachtwoord voor bewerken en niet het wachtwoord voor openen:
bestand openen als "alleen lezen" en "opslaan als" onder een andere naam.
dan het origineel hernoemen naar iets anders
dan het nieuwe `opgeslagen als` bestand hernoemen naar het origineel

Dus:

map1 openen en opslaan als map2
map1 en map2 afsluiten
map1 hernoemen naar map3
map2 hernoemen naar map1

Klinkt verwarrend maar hiermee schakel je de beveiliging uit en heb je het origineel weer onbeveiligd onder zn oorspronkelijke naam.

 

[Humadgen]

Hallo, weer

Ik ben op vakantie geweest en heb niet kunnen reageren op jullie oplossingen.
Het lijkt er op dat ik iets niet begrijp/goed doe als het gaat over het plaatsen van een code op een werkblad. Ik krijg dat gedeelte niet voor elkaar. (althans ik krijg de code er wel op, maar hij doet niet wat ik wil.

Maar laten we daar nu maar even geen tijd aan besteden, misschien met een ander probleem als ik dat tegen het lijf loop.
Ik heb inmiddels via iemand een EXCEL.XLA bestandje gekregen. Als ik dat activeer krijg ik twee extra keuzes onder min "Tools" menu : genaamd Unprotect Sheet en Unprotect Wokbook.

Dus bedankt voor de inspanningen