Excel 2007 - dévalider l'icone "oter la protection"

[Carmiel]

Bonjour,
Je voudrais dévalider l'icone de déprotection d'une feuille (Oter la protection...).
cela marche trés bien avec 2003 en faisant

Private Sub Workbook_Open()
' dévalide le bouton unlock
    On Error Resume Next
    Application.CommandBars.FindControl(ID:=30029).Enabled = False
    Application.CommandBars.FindControl(ID:=893).Visible = False '(2007)
End Sub

mais les id sont différents en 2007 et je n'arrive pa à trouver le bon, à priori c'est 893 l'item33 des contrôles mais cela ne marche pas.
Merci pour l'aide

[SilkyRoad]

bonsoir


Le fonctionnement du ruban 2007 est totalement différent.
Tu dois paramétrer les modifications de contrôles dans le fichier xml de personnalisation.

http://silkyroad.developpez.com/excel/ruban/

http://silkyroad.developpez.com/excel/callbacks/

Comment désactiver une commande prédéfinie du ruban ?


Dans ton projet, ça donnerait

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 
  <commands>
    <command idMso="SheetProtect" enabled="false" />
  </commands>
 
<ribbon startFromScratch="false">
 
</ribbon>
</customUI>

bonne soirée
michel

[Carmiel]

Merci