beveiliging werkblad opheffen zonder wachtwoord te kennen

evelyne

unread,

Mar 24, 2002, 3:21:56 PM3/24/02

to

Naar het schijnt kan de beveiliging van een beveiligd
werkblad ongedaan gemaakt worden in een fluit van een
cent, zonder het wachtwoord te kennen! Kan iemand me die
truuc bezorgen?

Gocho

unread,

Mar 24, 2002, 4:09:26 PM3/24/02

to

Je kan bijv. de inhoud van een beveiligd werkblad kopieren naar een ander
leeg werkblad.

Groet,

Oskar.

"evelyne" <evelyne...@pandora.be> schreef in bericht
news:126001c1d371$8b15a020$9be62ecf@tkmsftngxa03...

Haze4wizard

unread,

Mar 24, 2002, 4:14:55 PM3/24/02

to

"Gocho" <os...@planet.nl> schreef in bericht
news:ez5Qig30BHA.2596@tkmsftngp03...

> Je kan bijv. de inhoud van een beveiligd werkblad kopieren naar een ander
> leeg werkblad.

Kan je altijd een werkblad bezorgen die je hoofdpijn gaat geven als je op
deze manier de beveiliging wil omzeilen.

De opmaak en de waarden zal je copieren, maar de formules, vergeet het maar.

HazeWizard

evelyne

unread,

Mar 24, 2002, 5:00:45 PM3/24/02

to

Bedankt voor de reactie, maar het is de bedoeling het
wachtwoord te onderscheppen, copiëren en plakken speciaal
is in mijn geval niet de goede oplossing (macro's -
formules !)
>-----Oorspronkelijk bericht-----

>.
>

evelyne

unread,

Mar 24, 2002, 5:45:56 PM3/24/02

to

Kunt u een wachtwoord opsporen en ongedaan maken zonder
hoofdpijn te veroorzaken?
>-----Oorspronkelijk bericht-----

>.
>

Haze4wizard

unread,

Mar 25, 2002, 11:05:02 AM3/25/02

to

"evelyne" <evelyne...@pandora.be> schreef in bericht

news:120601c1d385$a9589330$36ef2ecf@tkmsftngxa12...

> Kunt u een wachtwoord opsporen en ongedaan maken zonder
> hoofdpijn te veroorzaken?

http://www.lostpassword.com/office.htm

en zorg dat je gerigistreerd geraakt.
Anders zal je heel wat hoofdpijn overhouden als je pogingen doet.
Laatste beveiligbestand werd door mij beveiligd door het gebruik van de
ascii codetabel.
D.w.z. alle mogelijke tekens. In excel XP krijg je wel een melding dat je
verschillende tekens niet kunt gebruiken maar het word wel dit aanvaard.

Wat ik eigenlijk wou zeggen is dat als ik een blad beveilig, je ook de
formules niet zult te zien krijgen.
Als je deze niet ziet en je wil het blad kopieren om toch verder te kunnen,
dan heb je gewoon pech.
De formules worden niet meegekopieerd en als je gegevens veranderd of extra
invult, dan zal er neits gebeuren, waar dit normaal nodig is.

HazeWizard

Haze4wizard

unread,

Mar 25, 2002, 11:05:55 AM3/25/02

to

"evelyne" <evelyne...@pandora.be> schreef in bericht

news:151c01c1d37f$596fa1c0$35ef2ecf@TKMSFTNGXA11...

Bedankt voor de reactie, maar het is de bedoeling het
wachtwoord te onderscheppen, copiëren en plakken speciaal
is in mijn geval niet de goede oplossing (macro's -
formules !)

Kijk eens hieronder, hopelijk vind je de regkey.
Veel geluk.

http://www.lostpassword.com/office.htm

Albert Coninx

unread,

Mar 25, 2002, 1:14:12 PM3/25/02

to

Probeer deze macro eens, ik heb die ooit eens gecopieerd uit deze nieuwsgroep en hij werkt uitstekend:

Public Sub RemovePassword()
Dim sh As Worksheet

On Error Resume Next
a = InputBox("Choose: " & Chr$(13) & Chr$(13) & _
"1 = Unprotect ALL sheets in active workbook" & Chr$(13) & _
"2 = Unprotect active sheets in active workbook", "Remove sheetprotection", "1")
If a = 1 Then
For Each sh In Worksheets
sh.Protect "", , , , True
sh.Range("A1").Copy sh.Range("A1")
Next sh
ElseIf a = 2 Then
ActiveSheet.Protect "", , , , True
ActiveSheet.Range("A1").Copy ActiveSheet.Range("A1")
End If
MsgBox "Protection has been removed!"
End Sub

Albert Coninx

"Gocho" <os...@planet.nl> schreef in bericht news:ez5Qig30BHA.2596@tkmsftngp03...

Haze4wizard

unread,

Mar 25, 2002, 3:40:42 PM3/25/02

to

"Albert Coninx" <Albert.Co...@advalvas.be> schreef in bericht
news:UNJn8.31209$DE4....@afrodite.telenet-ops.be...

> Probeer deze macro eens, ik heb die ooit eens gecopieerd uit deze
nieuwsgroep en hij werkt uitstekend:
>
> Public Sub RemovePassword()
> Dim sh As Worksheet
>
> On Error Resume Next
> a = InputBox("Choose: " & Chr$(13) & Chr$(13) & _
> "1 = Unprotect ALL sheets in active workbook" & Chr$(13) & _
> "2 = Unprotect active sheets in active workbook", "Remove
sheetprotection", "1")
> If a = 1 Then
> For Each sh In Worksheets
> sh.Protect "", , , , True
> sh.Range("A1").Copy sh.Range("A1")
> Next sh
> ElseIf a = 2 Then
> ActiveSheet.Protect "", , , , True
> ActiveSheet.Range("A1").Copy ActiveSheet.Range("A1")
> End If
> MsgBox "Protection has been removed!"
> End Sub
>

Thanks, voor het delen.
Kan misschien ooit eens van pas komen.

HazeWizard

>
> Albert Coninx
>
>

free

unread,

Mar 25, 2002, 4:49:41 PM3/25/02

to evelyne

evelyle,

zoek eens met copernic of een andere zoeker naar
password excel
in freeware wind je wel password removers

Haze4wizard

unread,

Mar 26, 2002, 12:18:01 PM3/26/02

to

"Haze4wizard" <haze4...@yahoo.com> schreef in bericht
news:3c9f8d6d$0$27272$afc3...@sisyphus.news.be.easynet.net...

>
> "Albert Coninx" <Albert.Co...@advalvas.be> schreef in bericht
> news:UNJn8.31209$DE4....@afrodite.telenet-ops.be...
> > Probeer deze macro eens, ik heb die ooit eens gecopieerd uit deze
> nieuwsgroep en hij werkt uitstekend:
> >
> > Public Sub RemovePassword()
> > Dim sh As Worksheet
> >
> > On Error Resume Next
> > a = InputBox("Choose: " & Chr$(13) & Chr$(13) & _
> > "1 = Unprotect ALL sheets in active workbook" & Chr$(13) & _
> > "2 = Unprotect active sheets in active workbook", "Remove
> sheetprotection", "1")
> > If a = 1 Then
> > For Each sh In Worksheets
> > sh.Protect "", , , , True
> > sh.Range("A1").Copy sh.Range("A1")
> > Next sh
> > ElseIf a = 2 Then
> > ActiveSheet.Protect "", , , , True
> > ActiveSheet.Range("A1").Copy ActiveSheet.Range("A1")
> > End If
> > MsgBox "Protection has been removed!"
> > End Sub
> >
>

<knip>

Sorry maar bij eerste test van een gewoon paswoordje bestaande uit 4 leters,
gaf de macro wel aan dat de beveiliging is opgeheven, maar de beveiliging
bleef zoals ze was, actief.

Getest met excel XP draaiende op win. 2000.

HazeWizard

> >
> > Albert Coninx
> >
> >
>
>
>

Albert Coninx

unread,

Mar 26, 2002, 2:30:49 PM3/26/02

to

Ik werk met Excel2000 en daar werkt hij zonder problemen.
Goed om te weten dat hij dus niet werkt onder XP.

Albert

"Haze4wizard" <haze4...@yahoo.com> schreef in bericht news:3ca0ade1$0$27275$afc3...@sisyphus.news.be.easynet.net...

Haze4wizard

unread,

Mar 26, 2002, 3:11:44 PM3/26/02

to

"Albert Coninx" <Albert.Co...@advalvas.be> schreef in bericht

news:J%3o8.34718$DE4....@afrodite.telenet-ops.be...

> Ik werk met Excel2000 en daar werkt hij zonder problemen.
> Goed om te weten dat hij dus niet werkt onder XP.

graag gedaan,
mocht je overgaan naar XP en de oplossing vinden, dan is dit altijd leuk om
te hebben.

Alleszins bedankt voor je moeite.

Vriendelijke groeten
HazeWizard

>
>
> Albert
>
>
>

bartdeg...@gmail.com

unread,

Dec 3, 2014, 6:16:45 AM12/3/14

to

Op zondag 24 maart 2002 21:30:25 UTC+1 schreef evelyne:

Bestand openen met Numbers voor Apple, dan is de beveiliging opgeheven!
Vervolgens de boel kopiëren en in een nieuw Excel-werkblad plakken.
Werkt perfect.

~PCfreak ©~

unread,

Dec 3, 2014, 6:48:11 AM12/3/14

to

Op Wed, 3 Dec 2014 03:16:44 -0800 (PST), schreef
bartdeg...@gmail.com het volgende.

Denk je dat je antwoord na 12,5 jaar nog gelezen wordt?

groetjes Henk
--
Algemene tips om zelf een PC te bouwen, en tips
voor Windows7 en XP zie mijn site.
use...@pc-freak.nl www.pc-freak.nl

pjoter...@gmail.com

unread,

Aug 5, 2015, 11:24:52 AM8/5/15

to

JA

lucy....@gmail.com

unread,

Oct 13, 2015, 4:38:06 AM10/13/15

to

Op woensdag 3 december 2014 12:16:45 UTC+1 schreef bartdeg...@gmail.com:

Ik heb dit zojuist uitgeprobeerd, en het werkt inderdaad. Oude tip, groot plezier (Office 2010, Numbers op iPhone onder iOS 8).
Hartelijk dank.

Ano

unread,

Oct 14, 2015, 3:45:51 AM10/14/15

to

Of gebruik een programma als bijv. "Passware".

david...@gmail.com

unread,

Sep 20, 2016, 8:00:37 AM9/20/16

to

Op zondag 24 maart 2002 21:21:56 UTC+1 schreef evelyne:

Uploaden naar google docs en weer downloaden. Google docs ondersteunt die beveiliging niet ;)

~PCfreak~

unread,

Sep 20, 2016, 8:52:54 AM9/20/16

to

Op Tue, 20 Sep 2016 05:00:31 -0700 (PDT), schreef david...@gmail.com
het volgende.

Daar heeft ze wat aan na 14,5 jaar :(

groetjes Henk

annick...@gmail.com

unread,

May 1, 2017, 3:20:58 AM5/1/17

to

Op dinsdag 20 september 2016 14:52:54 UTC+2 schreef ~PCfreak~:
> Op Tue, 20 Sep 2016 05:00:31 -0700 (PDT), schreef david @gmail.com

> het volgende.
>
> > Op zondag 24 maart 2002 21:21:56 UTC+1 schreef evelyne:
> > > Naar het schijnt kan de beveiliging van een beveiligd
> > > werkblad ongedaan gemaakt worden in een fluit van een
> > > cent, zonder het wachtwoord te kennen! Kan iemand me die
> > > truuc bezorgen?
>
> > Uploaden naar google docs en weer downloaden. Google docs ondersteunt die beveiliging niet ;)
>
> Daar heeft ze wat aan na 14,5 jaar :(
>
> groetjes Henk

Ik heb er net wat aan gehad! Thx voor de tip, bespaart me een hoop werk.

nicolien...@gmail.com

unread,

Jun 16, 2017, 8:14:27 AM6/16/17

to

Downloaden als Google doc/spreadsheet. Top tip! Bedankt!

ch...@goelema.info

unread,

Jun 27, 2019, 3:22:41 AM6/27/19

to

Op vrijdag 16 juni 2017 14:14:27 UTC+2 schreef nicolien...@gmail.com:

> Downloaden als Google doc/spreadsheet. Top tip! Bedankt!

Top! 2019 en het werkt nog steeds :)

redgy.a...@gmail.com

unread,

Jun 4, 2020, 11:01:59 AM6/4/20

to

Op zondag 24 maart 2002 21:21:56 UTC+1 schreef evelyne: