cellen beveiligen

[W Bloemendal]

Is Het mogelijk om met een macro van een geselecteerd aantal cellen, de cellen te beveiligen. Zodat de overige cellen wel ingevuld kunnen worden.

wim

 

[brandernl]

Je kan alleen een werkblad of hele map beveiligen.
Cellen kan je al of niet laten blokkeren als je het blad beveiligt.
Probeer maar eens met de macrorecorder, dan zie wat VB er van maakt.

 

[W Bloemendal]

het is de bedoeling dat de cel automatisch geblokkeerd wordt of niet

wim

 

[Justes]

Hallo Wim,

Mischien heb je hier iets aan de week dagen zijn dus beveiligd.

Gr, Justes

 

[Justes]

sorrie hoe krijg ik de bijlage erbij

 

[Justes]

hierbij
het bestandje

Justes

 

[suicide]

iets precieser zijn wat je er pcies mee wilt :S
snap er niet veel van

 

[Hoornvan]

Hallo,

Ik heb zoiets ook eens gevraagt en men heeft toen deze macro gemaakt.
Misschien heb je er wat aan, voor me zelf heb ik hem aangepast.

suc6

Sub Blokeren ()
Application.ScreenUpdating = False 'Voorkomt flikkeren van het beeldscherm
Range("B3:J11").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Worksheets("Blad_Naam").Range("B3:J11")
Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True 'Beeldscherm weer normaal (zie eerste opdracht)
Range("B3").Select
End sub

 

[W Bloemendal]

hallo Hoornvan


de macro werkt zoals ik wil alleen wil ik een selectie eerst selecteren en dan de macro uitvoeren

 

[franç]

Sub Test()
ActiveSheet.Unprotect
Cells.Locked = False
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[W Bloemendal]

bij Selection.Locked = True moeten alleen de cellen waar een waarde instaat geblokkeerd worden

wim

 

[franç]

bij Selection.Locked = True moeten alleen de cellen waar een waarde instaat geblokkeerd worden

Dat bleek niet uit je vraag maar is gemakkelijk in te bouwen. Met een for-nextlusje de cellen van de selectie doorlopen en de cellen waar iets in staat blokkeren, de andere niet. Kun je vast zelf wel.

 

[W Bloemendal]

door hoornvan is het in principe opgelost alleen het te selecteren gebied nog niet.

Nu wel in de macro regel "Range("B3:J11").Select" wissen eerst een gebied selecteren en dan macro uitvoeren

wim

 

[franç]

....alleen het te selecteren gebied nog niet.

Wát precies is er nog niet in orde?

 

[W Bloemendal]

in de macro wordt een gebied geselecteerd en dat wil ik vante voren selecteren omdat dat wisseld

Maar alles is al opgelost