De digitale vraagbaak voor het wiskundeonderwijs

home |  vandaag |  gisteren |  bijzonder |  prikbord |  gastenboek |  wie is wie? |  contact

HOME

samengevat
vragen bekijken
een vraag stellen
hulpjes
zoeken
FAQ's
links
twitter
boeken
help

inloggen

colofon

  \require{AMSmath} Printen

Automatisch beveiligen van werkblad en resultaat afzonderlijk

Ik heb een reeks van 30 getallen. Bij de invoer van ieder getal afzonderlijk dient dit getal automatisch beveiligd te worden tegen overschrijven. Indien het laatste getal ingevoerd wordt dient het gehele werkblad automatisch beveiligd te worden. Is dit mogelijk in Excel en hoe??

Brigit
Student universiteit - dinsdag 12 juni 2007

Antwoord

Beste Brigitte

Het duurde even voor ik zelf een (mogelijke) implementatie gevonden heb.
Het is mogelijk, mits het toepassen van een creatieve werkwijze.

Dit is de VBA-code:
Private Sub Worksheet_Change(ByVal Target As Range)

' Controleer of de cel onbeveiligd is.
If Target.Locked = False Then

' Eerst de beveiliging van het werkblad opheffen
ActiveSheet.Unprotect

' Daarna de veranderde cel vergrendelen
Target.Locked = True

' Vervolgens het werkblad opnieuw beveiligen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End If

End Sub
Zoals je ongetwijfeld zelf al merkt, wordt telkens één cel meer beveiligd. Deze code zorgt er dus automatisch voor dat het ganse werkblad beveiligd is als alle cellen ingevuld zijn.

Voor een voorbeeld van de code, zie dit bestand.

Ik hoop dat je hiermee iets verder komt!

Wie is wie?
Vragen naar aanleiding van dit antwoord? Klik rechts..!
maandag 18 juni 2007
 Re: Automatisch beveiligen van werkblad en resultaat afzonderlijk 



klein |  normaal |  groot

home |  vandaag |  bijzonder |  twitter |  gastenboek |  statistieken |  wie is wie? |  colofon

©2001-2021 WisFaq - versie 3