cellen beveiligen zodra gevuld

[Geert]

Hallo,

In de vroege nacht nog een vraagje.
Is het mogelijk om in een beveiligd werkblad met onbeveiligde cellen deze
laatste cellen beveiligd te krijgen, ZODRA ze zijn ingevuld?
M.a.w. indien ik de onbeveiligde cel B5 invul en op return druk om naar de
volgende onbeveiligde cel C5 te gaan, is het dan mogelijk dat B5 een
beveiligde cel wordt?

Indien dit mogelijk is, hoe gaat dat in zijn werk? Is het daarna eenvoudig
om de inhoud van cel B5 te wijzigen?

Bij voorbaat dank voor jullie hulp.

Geert

[Spreadsheet Solutions]

Geert;

Deze actie kun je alleen maar via VBA voor elkaar krijgen en zelfs dan is
het nog flink ingewikkeld.
Ik zou zelf zo 123 niet weten hoe.
Wel weet ik dat je met "events" diverse gebeurtenissen die plaatsvinden in
een werkblad kunt triggeren.
Dat kan de wijziging van een cel zijn, of het verwijderen van een rij.

Kijk voor dat laatste in de VBE onder worksheet / workbook events.
--
---
Mark Rosenkrantz
---
Spreadsheet Solutions
Witkopeend 24
1423 SN
Uithoorn, Netherlands
---
E: ***@rosenkrantz.nl
W: www.rosenkrantz.nl

Post by Geert
Hallo,
In de vroege nacht nog een vraagje.
Is het mogelijk om in een beveiligd werkblad met onbeveiligde cellen deze
laatste cellen beveiligd te krijgen, ZODRA ze zijn ingevuld?
M.a.w. indien ik de onbeveiligde cel B5 invul en op return druk om naar de
volgende onbeveiligde cel C5 te gaan, is het dan mogelijk dat B5 een
beveiligde cel wordt?
Indien dit mogelijk is, hoe gaat dat in zijn werk? Is het daarna eenvoudig
om de inhoud van cel B5 te wijzigen?
Bij voorbaat dank voor jullie hulp.
Geert

[Agnes]

Hallo Geert,

Waarom zou je dat willen? Is het een optie om (gedeeltelijk) het
werkblad te beveiligen, als je deze verlaat?

Groeten,
Agnes

[Jan B.]

Geert,

zet de volgende routine in het werkblad (hier "werkblad" genoemd):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error Resume Next
For Each cell In Intersect(Range("werkblad"), Target)
If cell.Value > 0 Or cell.Value <> "" Then cell.Locked = True
Next cell
On Error GoTo 0
End Sub

ECHTER:
Agnes heeft gelijk. Eigenlijk is dit geen goede oplossing: Immers, als je
een verkeerde waarde hebt ingetypt, dan is correctie niet meer mogelijk. Je
moet dan de werkbeveiliging van het werkblad eerst uitzetten en later niet
vergeten weer aan te zetten om te corrigeren. Welnu dan kun je beter alle
cellen blokkeren en als je klaar bent met invoer eenmalig de beveiliging
aanzetten, bijvoorbeeld bij het verlaten van het werkblad.
Mijn hierboven gegeven oplossing werkt dus wel maar ik vind 'm zelf nogal
dubieus.

---
met vriendelijke groet,
Jan B.

Post by Geert
Hallo,
In de vroege nacht nog een vraagje.
Is het mogelijk om in een beveiligd werkblad met onbeveiligde cellen deze
laatste cellen beveiligd te krijgen, ZODRA ze zijn ingevuld?
M.a.w. indien ik de onbeveiligde cel B5 invul en op return druk om naar de
volgende onbeveiligde cel C5 te gaan, is het dan mogelijk dat B5 een
beveiligde cel wordt?
Indien dit mogelijk is, hoe gaat dat in zijn werk? Is het daarna eenvoudig
om de inhoud van cel B5 te wijzigen?
Bij voorbaat dank voor jullie hulp.
Geert