Ik heb een werkboek waar onder staande code instat
Om de delete knop op toetsenbord uit te schakelen werkt prima
Maar als die werkboek opstaat en ik klik bij bestand op nieuw geen probleem
Maar heb nu een leeg werkboek aangemaakt en het rare is dat daar ook delete toets en zo wel rechts klikken op de tabbladen is uitgeschakeld. En de onderstaande code staat er niet in
In vba staat er een module die onderstaande code bevat werkt prima.
Code op rechts klikken uit te schakelen staat in thisworkbook
Om de delete knop op toetsenbord uit te schakelen werkt prima
Maar als die werkboek opstaat en ik klik bij bestand op nieuw geen probleem
Maar heb nu een leeg werkboek aangemaakt en het rare is dat daar ook delete toets en zo wel rechts klikken op de tabbladen is uitgeschakeld. En de onderstaande code staat er niet in
In vba staat er een module die onderstaande code bevat werkt prima.
Code:
Sub auto_open()
'uitschakelen van de delte toets op toetesenbord en melding geven waarom die is uitgeschakeld
Application.OnKey "{del}", "Message"
End Sub
Sub auto_close()
'Terug inschaklen delete toets toetsenbord
Application.OnKey "{del}"
End Sub
Sub Message()
MsgBox "De knop delete op toetsenbord is uit geschakeld !" & vbNewLine & "U moet via het lint verlof dag(en) verwijderen gebruiken", vbExclamation, "Afwezigheidsdagen verwijderen"
End SubCode op rechts klikken uit te schakelen staat in thisworkbook
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'inschakelen van rechts klikken op de tabladen
Application.CommandBars("Ply").enabled = True
End Sub
Private Sub Workbook_Open()
'uitschakelen van rechts klikken op de tabladen
Application.CommandBars("Ply").enabled = False
End Sub
Laatst bewerkt:
