Macro desactivation

bonsoir

voilà une soluce

Application.CommandBars("Worksheet Menu Bar").Controls("&Outils").Controls("&Options...").Enabled = True



ce serait bien si la solution ci-desosus voulait marcher
Set newctrl = CommandBars.FindControl(ID:=522)
newctrl.Enabled = False
MsgBox newctrl.Caption

bye
Stéphane



Sub h()

Application.ScreenUpdating = False
ActiveSheet.Cells.ClearContents
i = 1

'Barre d'outils
For Each cb In CommandBars
Cells(i, 1).Value = cb.Name

For Each ctl In cb.Controls
i = i + 1
Cells(i, 2).Value = ctl.Caption
Cells(i, 3).Value = ctl.ID
'If ctl.Caption = "&Outils" Then

If ctl.Controls.Count > 0 Then
k = i
On Error Resume Next
For Each tt In ctl.Controls
k = k + 1
Cells(k, 3).Value = tt.Caption
Cells(k, 4).Value = tt.ID
Next tt
End If
i = k + 1
'End If
Next ctl

Next cb
End Sub

18 Rendre inaccessible l'item Outils.
Sub InhibeMenuOutils()
CommandBars(1).Controls(6).Enabled = False
End Sub

19 Rendre accessible l'item Outils.
Sub AfficheMenuOutils()
CommandBars(1).Controls(6).Enabled = True
End Sub

20 Rendre inaccessible l'item Outils, Protection.
Sub InhibeOutilsProtection()
CommandBars(1).Controls(6).Controls(6).Enabled = False
End Sub

21 Rendre accessible l'item Outils, Protection.
Sub AfficheOutilsProtection()
CommandBars(1).Controls(6).Controls(6).Enabled = True
End Sub

Tiens, ce n'est pas de moi.Mais ta réponse y est.

@ +

Moa

Bonjour Stephane, salut Moa,
je viens de lire vos message ..
je crois que je vais retenir la premiere soluce de Stephane..
have a nice day
Mohammed @+