Discussion :

[tomy7]

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 :

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

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

[ouskel'n'or]

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

[tomy7]

ok merci pour ton aide.

Sa me depanne bien...

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

je te tiens au courant...

[tomy7]

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

je prefere procede ainsi:

Code :

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

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