Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
cel automatisch beveiligen
218 views
Skip to first unread message
Johan
Sep 10, 2002, 5:09:43 PM9/10/02
to
Is het mogelijk een cel automatisch te beveiligen na invoer van
gegevens in deze?
gegevens in deze?
mieke
Sep 11, 2002, 10:35:11 AM9/11/02
to
Ik ben nog niet heel ervaren met VBA, maar denk wel een
oplossing te hebben.
oplossing te hebben.
Zet (eenmalig) alle cellen op unlocked (celopmaak), die in
eerste instantie wel in te vullen moeten zijn.
Beveilig het blad (zonder wachtwoord anders wordt de
onderstaande code anders)
Onderstaande code hoort zoals je kunt zien hij
het 'change' event van de desbetreffende werkblad.
Als ik je moet vertellen hoe dat moet dan moet je je maar
even mailen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If ActiveCell.Value <> "" Then
ActiveSheet.Unprotect
ActiveCell.Locked = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
End If
End Sub
Succes!
>-----Oorspronkelijk bericht-----
>Is het mogelijk een cel automatisch te beveiligen na
invoer van
>gegevens in deze?
>.
>
0 new messages