Discussion :

[AgriPhilou]

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

[BlueMonkey]

Bonsoir,

Je vois principalement 2 solutions :

1) Protection / Dé-protection à chaque accès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "ThisWorkbook.Heure"
End Sub
 
Sub Heure()
    ActiveSheet.Unprotect
    ActiveCell.Value = Format(Time, "hh:mm")
    ActiveSheet.Protect
End Sub

2) Protection contre les modifications de l'utilisateur uniquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "ThisWorkbook.Heure"
    Worksheets("La Feuille concernée").Protect UserInterfaceOnly:=True
End Sub
 
Sub Heure()
    ActiveCell.Value = Format(Time, "hh:mm")
End Sub

[AgriPhilou]

Merci, pour affiner j'aurais voulu avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Locked = False

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Locked = True

interdire l’accès à la cellule "marquée", j'ai fais des essais mais sans résultat positif.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Heure()
ActiveSheet.Unprotect "ab"
ActiveCell.Locked = False
    ActiveCell.Value = Format(Time, "hh:mm")
    ActiveSheet.Protect "ab"
    ActiveCell.Locked = True
End Sub

Je dois passer à coté de quelque chose.

Merci encore.

[BlueMonkey]

Re.

ActiveCell.Locked = True marque la cellule comme étant à verrouiller lorsque la protection de la feuille est active

Donc :
- tant que la feuille n'est pas protégée, le verrouillage n'a pas d'effet.
- Une fois que la feuille est protégée, on ne peut plus définir si elle est verrouillée ou non.

Quel est le problème avec ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Heure()
   ActiveSheet.Unprotect "ab"
   'inutile :  ActiveCell.Locked = False
   ActiveCell.Value = Format(Time, "hh:mm")
   ActiveSheet.Protect "ab"
   'inutile : ActiveCell.Locked = True
End Sub

Si je n'ai pas compris pourquoi la solution suivante ne convient pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "ThisWorkbook.Heure"
    Worksheets("La Feuille concernée").Protect UserInterfaceOnly:=True
End Sub
 
Sub Heure()
    ActiveCell.Value = Format(Time, "hh:mm")
End Sub

[AgriPhilou]

J'ai dis une bêtise, je pensé que interdire l’accès à une seule cellule était possible mais en fait c'est pour la feuille entière.

Format protection coche sur "sélectionner les cellules verrouillées"

Je voulais en fait bloquer une fois que l'heure était marquée, mais elle l'ai quand même par la protection simple.

Bonne soirée.

[BlueMonkey]

Je voulais en fait bloquer une fois que l'heure était marquée

Je comprends mieux.
Pour ce besoin, le plus simple est peut être d'ajouter un contrôle Etiquette (du type Formulaire ou ActiveX, depuis le Ruban Développeur).
De cette manière l'heure sera affichée par dessus une cellule (dans ce contôle Etiquette) et non modifiable simplement par l'utilisateur.

Bonne soirée également.