Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

beveiligen van werkblad

76 views
Skip to first unread message

raf

unread,
Jan 8, 2004, 8:34:47 AM1/8/04
to
Hallo

Ik heb gedeelde werkmap. Als deze werkmap geopend wordt,
dan wordt er een macro gestart in "this workbook" die
verschillende cellen moet opmaken als er een bepaalde
waarde instaat.

Nu wil ik het werkblad beveiligen. Ik heb dit geprobeerd
met werkblad beveiligen maar dan krijgen de cellen hun
opmaak niet.

Hoe kan ik dit oplossen?

alvast bedankt

Raf

john philippen

unread,
Jan 8, 2004, 9:59:45 AM1/8/04
to
Dit kan niet.

Een gedeelde werkmap kun je niet beveiligen of van een beveilig afhalen
zie de help van Excel
gedeelde werkmap
functies die niet beschikbaar zijn

mvg

--
John Philippen
snozuf222 zonder dit@ ditweghalen hotmail.com
"raf" <anon...@discussions.microsoft.com> schreef in bericht
news:0a6001c3d5ec$2f1e7830$a601...@phx.gbl...

Quandan - Marcel Kreijne

unread,
Jan 8, 2004, 8:50:11 PM1/8/04
to
Raf,

Een mogelijkheid zou zijn om de cellen niet door een macro te laten opmaken,
maar door gebruik te maken van de functie Voorwaardelijke Opmaak.

Aangezien het je kennelijk wel lukt om het werkblad te beveiligen (je weet
immers dat het toewijzen van de opmaak na die tijd niet meer lukt) ga ik er
vanuit dat je geen 'gedeelde werkmap' hebt zoals Excel die kent, maar gewoon
een normale werkmap die door verschillende personen gebruikt wordt. Je zou
kunnen besluiten om de macro de beveiliging van het werkblad af te laten
halen aan het begin van de macro:

ThisWorkbook.Worksheets("WERKBLADNAAM").Unprotect Password:="GEHEIM"

dan de opmaak te wijzigen

en daarna de beveiliging van het werkblad er weer op te zetten:

ThisWorkbook.Worksheets("WERKBLADNAAM").Protect Password:="GEHEIM"

Zoals je ziet moet je echter wel het wachtwoord van de werkbladbeveiliging
in de macro-code zetten (indien je een wachtwoord gebruikt). Om te voorkomen
dat een gebruiker dit wachtwoord hier makkelijk terug kan vinden, moet je
dan dus ook de Visual Basic code beveiligen met een wachtwoord. Dit kun je
doen door in de Visual Basic Editor rechts te klikken op het project (de
bestandsnaam van jouw bestand in het venster Project), vervolgens te kiezen
voor 'VBA Project Properties', selecteer het tabblad Protection, vink hierop
'Lock project foir viewing' aan en voer twee keer hetzelfde wachtwoord in.
Klik Ok en sla het bestand op. Als het bestand de volgende keer geopend
wordt is de Visual Basic code niet zichtbaar zonder wachtwoord. (Bij mijn
weten is de Visual Basic Editor ook in de nederlandse Excel versie
Engelstalig... zo niet, kies dan de nederlandse vertalingen van de genoemde
engelse termen.)

Met vriendelijke groet,

Marcel Kreijne
Quandan - steunpunt voor spreadsheetgebruikers
www.quandan.nl

"raf" <anon...@discussions.microsoft.com> schreef in bericht
news:0a6001c3d5ec$2f1e7830$a601...@phx.gbl...

Raf

unread,
Jan 12, 2004, 2:31:37 AM1/12/04
to

Uw oplossing is enkel goed als je werkt met een niet
gedeeld bestand. Als ik de code gebruik bij een gedeeld
bestand dan krijg ik de foutmelding:

1004 Methode Unprotect van klasse Workbook is mislukt.

Is er nog een ander oplossing

p.s. De voorwaardelijke opmaak kan ik niet gebruiken omdat
ik teveel opmaken heb.

>.
>

Quandan - Marcel Kreijne

unread,
Jan 12, 2004, 2:13:11 PM1/12/04
to
Raf,

Zoals John al aangaf is dit (ook bij mijn weten) niet mogelijk met een
gedeelde werkmap. Het probleem zit 'm in de beveiliging. Wellicht kun je een
oplossing vinden door het werkblad niet te beveiligen, maar een macro te
schrijven die alle mutaties ondervangt en alleen de toegestane mutaties laat
uitvoeren. Dat is dan echt kunst-en-vliegwerk, maar wellicht moet je in die
hoek zoeken. Ik heb geen macro op de plank liggen die dit doet...

Als je aangeeft wat je precies wilt voorkomen dat er gebeurt, dan kunnen we
wellicht met zijn allen een creatieve oplossing bedenken om de door jou
gewenste "onmogelijke" situatie toch mogelijk te maken...

Met vriendelijke groet,

Marcel Kreijne
Quandan - steunpunt voor spreadsheetgebruikers
www.quandan.nl


"Raf" <anon...@discussions.microsoft.com> schreef in bericht
news:03e801c3d8de$1cbdb580$a101...@phx.gbl...

0 new messages