Le control Protection

Bonjour,

J'aimerai savoir si c'est possible de modifier ce code: ( il sert a enlever dans outils, la possibilite de protection des feuilles)

Code:

---

Application.commandBars.FindControl(ID:=30029).enabled =false

---

Le probleme est qu il l enleve sur toutes les fichiers excel du PC. et j aimerai juste l applique a un workbook.


Si vous avez une idee , n hesitez pas...
Merci

Tom

Tu mets ton code dans l'événement Open de ThisWorkbook du classeur en question, et tu rétablis dans l'événement close.
Regarde aussi à Volatile dans l'aide en ligne. Je ne sais pas si elle peut s'appliquer à cette instruction... Tu testes ;)

ok merci pour ton aide.

Sa me depanne bien...

je vais voir avec La methode volatile, si ca fonctionne...

je te tiens au courant...

de ce que j ai teste l application.volatile n'est pas tres utile dans mon cas je trouves .

je prefere procede ainsi:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars.FindControl(ID:=30029).Enabled = True End Sub Private Sub Workbook_Open() Application.AskToUpdateLinks = False ActiveSheet.PROTECT userinterfaceonly:=True Application.CommandBars.FindControl(ID:=30029).Enabled = False End Sub

---