Private Sub Workbook_Open()
' Equivalents clavier à supprimer
Application.OnKey "+{ENTER}", "Rien"
Application.OnKey "+~", "Rien"
End Sub
Sub Rien()
MsgBox("Saisie interdite !")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Suppression équivalents clavier à supprimer
Application.OnKey "+{ENTER}"
Application.OnKey "+~"
End Sub