Discussion :

[etorria]

Bonjour,

Dans un tableau, j'ai utilisé le menu "Figer les volets".
Est-il possible d'interdire la fonction inverse "Libérer les volets" en "grisant" ce menu si une autre personne utilise le fichier ?

Merci,
Etorria

[fring]

Bonjour,

C'est la commande suivante

Code :

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

CommandBars("Worksheet Menu Bar").FindControl(ID:=443, Recursive:=True).Enabled = False '<-- True pour rendre accessible

[etorria]

Merci Fring !

A quel endroit dois-je placer cette instruction ?

Merci,

Etorria

[fring]

A quel endroit dois-je placer cette instruction ?

euuh...à l'endroit où tu veux que l'instruction s'exécute

[casavba]

A quel endroit dois-je placer cette instruction ?

Merci,

Etorria

tu l'intégre dans le module de la feuille où il ya le filtre ---> préférable
comme suit:

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandBars("Worksheet Menu Bar").FindControl(ID:=443, Recursive:=True).Enabled = False
End Sub

mais tu peux l'intégrer où tu veux à vrai dire.

[fring]

Pourquoi mettre cette instruction dans l'événement Selection_Change ?

Le bon endroit serait de la mettre à l'ouverture et à la fermeture du classeur

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars("Worksheet Menu Bar").FindControl(ID:=443, Recursive:=True).Enabled = True
End Sub
 
Private Sub Workbook_Open()
CommandBars("Worksheet Menu Bar").FindControl(ID:=443, Recursive:=True).Enabled = False
End Sub

[casavba]

Si on se limite à ce cas, je peux avancer en toute sécurité que le résultat est le même.

Je dis pas que t'as pas raison Fring.