Bonsoir,

Est-il possible avec ce code de déverrouiller une feuille puis la verrouiller de nouveau à la fin de la procédure ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_Open()
Application.OnKey "{F12}", "ThisWorkbook.Heure"
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub Heure()
'Je voudrais ici déverrouiller ma feuille 
ActiveCell.Value = Format(Time, "hh:mm")
'Puis la protéger de nouveau
End Sub
Merci d'avance