menu inaccessible

[GHISLAIN]

bonjour a tous

voila j'utilise ce code pour interdir l'insertion et la suppression de lignes et colonnes ce qui a pour effet de grisser dans les menus les accés
jusque la tout va bien

le souci etant qui faudrai lorsque je quitte mon classeur que ces ajout et suppression de colonne redevienne disponible merci de votre aide a tous

Sub test()
Set mescontrol = CommandBars("Cell").Controls
For Each i In mescontrol
'MsgBox i.Caption
Select Case i.Caption
Case Is = "&Insérer..."
i.Enabled = False
Case Is = "&Supprimer..."
i.Enabled = False
End Select
Next

Set mescontrol = CommandBars("Row").Controls
For Each i In mescontrol
' MsgBox i.Caption
Select Case i.Caption
Case Is = "&Insertion"
i.Enabled = False
Case Is = "&Supprimer..."
i.Enabled = False
End Select
Next

Set mescontrol = CommandBars("column").Controls
For Each i In mescontrol
' MsgBox i.Caption
Select Case i.Caption
Case Is = "&Insertion"
i.Enabled = False
Case Is = "&Supprimer"
i.Enabled = False
End Select
Next

Set mescontrol = CommandBars(1).Controls
For Each i In mescontrol
Set mesboutons = i.Controls
For Each c In mesboutons
Select Case c.Caption
Case Is = "&Lignes"
c.Enabled = False
Case Is = "C&olonnes"
c.Enabled = False
End Select
Next
Next
End Sub

amicalement ghislain

 

[jms31]

Re : menu inaccessible

Bonjour

Je te propose le classeur joint avec le code suivant qui est exécuté à l'ouverture et à la fermeture du document.
J'ai adapté ta procédure test (renommer menu) avec un argument pour griser (false) et dégriser (true)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Menu (True)
End Sub

Private Sub Workbook_Open()
Menu (False)
End Sub

 

[vbacrumble]

Re : menu inaccessible

Bonjour GHISLAIN, jms31, le fil, le forum

Pourrais-tu utiliser les balise BB [ code ] [ / code] *

pour rendre ton code plus agréable à lire?

Merci.

* : voir ici BB code