blad beveiliging

[Irmajack]

ik zit met een probleem.
Ik wil een gedeelte van mijn werkblad beveiligen.
Dit lukt mij ook, maar dan werken ander dingen niet meer.
Ik zal het proberen uit te leggen aan de hand van het bijgevoegde bestandje.
Betreft kolom J en K.
Als de bladbeveiliging niet is ingeschekled kan ik "niet in lijst opgenomen" kiezen en er een naam achter plaatsen.
ook kan ik meerdere personen selecteren.
Als ik de bladbeveiliging inschakel dan kan dit niet meer.

iemand hier een oplossing voor.

Bij voorbaat dank voor de hulp.Bekijk bijlage Registratiebestand test.xlsm

 

[ExcelAmateur]

Irmajack,

Bedoel je het groeperen?
Dit werkt nu op een beveiligd blad.

 

[VenA]

Gebruik geen On Error als je niet weet waar het mis kan gaan. De specialcells in de code zijn de boosdoener en lijken mij niet nodig als je toch al een afgebakend bereik gebruikt. Waarom je een pipeline en een , gebruikt ontgaat mij even.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("I2:L2000")) Is Nothing Then Exit Sub
  With Application
    .EnableEvents = False
    nieuw = Target.Value
    .Undo
    oud = Target.Value
    Target.Value = IIf(InStr(oud, nieuw), Replace(oud, nieuw, ""), oud & nieuw)
    .EnableEvents = True
  End With
End Sub

 

[Irmajack]

Beste Excel amateur,

Dank je voor de reactie.
Maar het groeperen is niet wat ik bedoel.
als blad niet beveiligd is kan ik meerdere keuzes in 1 cel kiezen.
Als bladbeveiligng is ingeschakeld niet.

 

[Irmajack]

Beste VenA

Dank voor je reactie.
Helaas is mijn kennis van excel niet zo groot dat ik begrijp wat je bedoel.
Dat ik een keuze op de cel heb zitten is om foutief schrijven te voorkomen.
Het mogelijk zijn om "niet aan lijst toegevoegd"" te kunnen kiezen en daar dan wel de juiste naam achter kunnen zetten, en tevens dan ook een tweede naam erbij te kunnen selecteren.
Zonder bladbeveiliging kan dit, maar als ik blad beveiliging inschakel niet.

 

[ExcelAmateur]

Dan heb je die van mij als toegift.

 

[E v R]

beveilig jouw sheet(s) met

UserInterFaceOnly:=True

Sub zo()
Blad1.Protect , UserInterFaceOnly:=True
End Sub

 

[Irmajack]

Beste EvR,

Dank voor je reactie.
Dit werkt zoals ik het bedoelde.

Groet, Irma