Bonjour,  
 
Si ".Locked" ne marche pas, tu peux aussi faire ça :  
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)     'ThisWorkbook, Selection d' un objet de la feuille
If ActiveCell.Address = "$A$1" Then
SendKeys "{Enter}", True
End If
End Sub
 
 
Le problème, c' est qu' il est bien plus facile de faire sauter la "protection." (Il ya mieux)