Code sur le classeur

Bonsoir,

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

Code:

---

1 2 3

Private Sub Workbook_Open() Application.OnKey "{F12}", "ThisWorkbook.Heure" End Sub

---

Code:

---

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

Bonsoir,

Je vois principalement 2 solutions :

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

Code:

---

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 8-)

Code:

---

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

---

Merci, pour affiner j'aurais voulu avec

Code:

---

ActiveCell.Locked = False

---

et

Code:

---

ActiveCell.Locked = True

---

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

Code:

---

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.

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:

---

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:

---

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

---

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.

Citation:

---

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.

Merci,

@+ :ccool: