Textveld blokkeren wanneer Checkbox geselcteerd

[hoogteijling]

Hallo allemaal,

In bijgevoegd bestand staat een Regie: checkbox.
Wanneer deze geselecteerd wordt zou het Honorarium:veld niet meer ingevuld mogen worden.
Het mooiste zou zijn als het Honorarium: veld ook nog grijs wordt.
Hoe krijg ik dit voor elkaar ?

Groeten Marcel
Bekijk bijlage Projectenboek.xlsm

 

[wieter]

Marcel, kijk naar de code bij de CheckBox

Bekijk bijlage 180452

 

[hoogteijling]

Precies wat ik zocht, fantastisch

Groeten Marcel

 

[hoogteijling]

Weet je toevallig ook hoe ik de button Project toevoegen altijd op dezelfde plek op mijn scherm kan houden ?
Zodat de Excelsheet als het ware onder mijn button door scrolt.

Groeten Marcel

 

[wieter]

Rijhoogte van rij 1 groter maken, en de knop boven de blokkage zetten
Of de titel blokkade onder de knop laten beginnen

 

[hoogteijling]

Dat werkt idd wel maar liever zou ik de knop wat meer in het midden van mijn scherm zien als het kan.
Ik wil geen rij in het midden blokkeren.

Groeten Marcel

 

[wieter]

Dan met VBA
Als je scrollt en de knop verdwijnt, niet erg, selecteer ergens een cel en de knop komt terug
In de code kan je de positie van de knop aanpassen aan je wensen

Bekijk bijlage 180462

 

[hoogteijling]

Ik vind dit niet zo mooi maar toch bedankt.
Ik hou het even op de eerste mogelijkheid die je me gaf.
Bovenste rij heb ik nu hoger gemaakt en button staat daar en blijft daar.

Groeten Marcel

 

[wieter]

Je vraag bleef me intrigeren....
Met deze code lukt het, maar ik moet telkens de code eerst activeren
Dus de event is niet juist

Private Sub Worksheet_Activate()

Dim r As Long

With Worksheets("Projectenboek")
    Do
        r = ActiveWindow.VisibleRange.Row + 20
        .Shapes("prj_toev_button").Top = .Rows(r).Top
        DoEvents
    Loop
End With

End Sub

Misschien weet iemand de juiste event?
Bekijk bijlage 180474

 

[hoogteijling]

Momenteel heb ik de knoppen bovenin de sheet gezet en de bovenste rij geblokkeerd.
Dit werkt voor mij voldoende.
Bedankt Wieter voor het Meedenken

Groeten Marcel