verlof standenlijst cel met keuzelijst beveiligen

[Utrecht12345]

Hallo Deskundigen.

ik heb een verlofstanden lijst gemaakt die ik nog verder wil verbeteren, alle input, suggesties welkom.
Ik heb met voorwaardelijke opmaak wat ingesteld zodat als je in kolom P "ADV" typt in kolom M (compensatie opbouw) het vakje groen kleurt.
Als je in kolom H10 het jaartal verandert dan veranderen de datums in kolom H automatisch mee.

Ik wil deze lijst met mijn collega's delen maar dan moet deze wel "****** proof" zijn
Wat ik niet voor elkaar krijg is dat het selectievakje H10 niet te beveiligen is want dan werkt het keuze vakje omhoog/omlaag niet meer.

weet iemand hoe ik de opmaak en de cel kan beveiligen tegen verkeerd gebruik?

Verder zou het handig zijn als de feestdagen met het veranderen van de jaren ook automatisch ingevuld worden in kolom P.

Alvast bedankt voor het meedenken !

 

[JEC.]

Plaats deze achter je betreffende blad in de vba editor.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
  If Target.Address(0, 0) = "H10" Then
     .EnableEvents = False
      MsgBox "Deze cel niet veranderen", vbCritical, "Let op"
     .Undo
     .EnableEvents = True
  End If
End With
End Sub

 

[mvdvlist]

Hallo,

in je VO stond geen AVD maar BBD.
En een verkeerd bereik, ik meen P114200 of zoiets. Moest zijn P11"" .

En verder moet je alle cellen met formules en teksten die niet mogen worden veranderd beveiligen in de cel eigenschappen, en dan het blad beveiligen, al dan niet met een wachtwoord.

Uiteraard moet je H10 ook niet beveiligen. Daar kun je weinig kwaad mee, want als iemand handmatig een tekst invult krijg je automatisch "#WAARDE! in de cellen met formules.
Klik op de pijltjes en het is weer opgelost.

 

[Utrecht12345]

idd stond het bereik niet goed, en de tekst moest ook BBD (bereikbaarheidsdienst) zijn. Had zag ik een test versie geüpload
Bedankt voor het meedenken, pas het in ieder geval aan in de definitieve versie, bedankt.

 

[Utrecht12345]

Plaats deze achter je betreffende blad in de vba editor.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
  If Target.Address(0, 0) = "H10" Then
     .EnableEvents = False
      MsgBox "Deze cel niet veranderen", vbCritical, "Let op"
     .Undo
     .EnableEvents = True
  End If
End With
End Sub

Deze oplossing was ik nooit opgekomen ...
Ga ik ook meenemen.
Bedankt voor de toevoeging.

 

[Utrecht12345]

bijgewerkte versie

zie de bijlage met de aanpassingen .