TommyV2209
Gebruiker
- Lid geworden
- 1 apr 2020
- Berichten
- 22
Ik heb een werkmap waar ik het lint in excel en de buttons heb aangepast.
Als ik op de knop 'Programma' of 'Sporttak' druk, dan mag de gebruiker dat tabblad zien.
Maar er zijn nog 4 tabbladen die enkel voor de beheerders zijn, waaronder CTRL (zie onderstaand voorbeeld voor de VBA-code).
Ik gebruik onderstaande code bij elk (hidden) tabblad. De eerste 2 keer lukt dat zonder probleem. Ik moet gewoon het paswoord ingeven en dan geeft hij het gevraagde tabblad weer. Maar als ik dat 3 keer na elkaar doe, dan krijg ik volgende foutmelding:
Fout 9 tijdens uitvoering
Het subscript valt buiten het bereik
Als ik na 1 of 2 keer terug klik op 1 van de 2 knoppen zonder beveiliging, dan kan ik terug 2x op een knop met paswoord drukken.
Kan iemand me helpen waar ik de fout in ga?
Thanks!
Als ik op de knop 'Programma' of 'Sporttak' druk, dan mag de gebruiker dat tabblad zien.
Maar er zijn nog 4 tabbladen die enkel voor de beheerders zijn, waaronder CTRL (zie onderstaand voorbeeld voor de VBA-code).
Ik gebruik onderstaande code bij elk (hidden) tabblad. De eerste 2 keer lukt dat zonder probleem. Ik moet gewoon het paswoord ingeven en dan geeft hij het gevraagde tabblad weer. Maar als ik dat 3 keer na elkaar doe, dan krijg ik volgende foutmelding:
Fout 9 tijdens uitvoering
Het subscript valt buiten het bereik
Als ik na 1 of 2 keer terug klik op 1 van de 2 knoppen zonder beveiliging, dan kan ik terug 2x op een knop met paswoord drukken.
Kan iemand me helpen waar ik de fout in ga?
Thanks!
Code:
Sub rxbtn_CTRL_OnAction(control As IRibbonControl)
If control.Tag = "Programma" Then
ws_Programma.Activate
ElseIf control.Tag = "Sporttak" Then
ws_Sporttak.Activate
ElseIf InputBox(Prompt:="Paswoord?") = gstrPwd Then
With Sheets(control.Tag)
.Visible = xlSheetVisible
.Activate
End With
End If
Laatst bewerkt: