Discussion :

[patricktoulon]

heu.... c'est un fichier tout ce qui a de plus classique je ne vois pas de ruban perso moi

[Vba14]

Je n'ai donc pas compris ta demande.
J'ai pris le ruban normal d'Excel dans lequel j'ai supprimé "Protéger" dans "Révision". Je n'ai pas fait de ruban spécifique, aurais-je dû ?
Je ne sais pas comment l'on fait

[patricktoulon]

re
tu a dis au départ que tu avais un ruban perso

tu a donc touché au xml du classeur avec customui ou editeur de texte quelconque
si c'est pas le cas tu n'a pas de ruban perso
tu modifie simplement par code tes commandbars
c'est pas la même chose

[Vba14]

Excuses moi Patrick, je me suis mal expliqué. Tu as tout à fait raison.
J'ai essayé de faire quelque chose avec l'enregistreur de macros, mais ça ne fonctionne pas.

Je te réitère toutes mes excuses

[patricktoulon]

re
Bon puisque tu sais les nom de commandbars et ou controls a surveiller donne moi leurs noms c'est tout

[Vba14]

Révision----Protéger-----Protéger la feuille + Protéger le classeur
Merci Patrick et encore toutes mes excuses

[patricktoulon]

re
alors le principe est bon et répond mais n'est pas effectif
je suppose que la on s'attaque a la commandebars de sécurité et qui il y a une sub routine qui empêche de la manipuler
bref voila quoi

dans le thisworkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public WithEvents cmbrs As CommandBars
Public ctrl1 As Object
Public ctrl2 As Object
 
Private Sub cmbrs_OnUpdate()
If ctrl1.Enabled = True Or ctrl2.Enabled = True Then
ctrl1.Enabled = False: ctrl2.Enabled = False
MsgBox "bien tenté mais nan nan !!! tu peux pas  va jouer aux billes tete plate"
End If
End Sub
Private Sub Workbook_Open()
Set ctrl1 = Application.CommandBars.FindControl(ID:=893) 'p la feuille
Set ctrl2 = Application.CommandBars.FindControl(ID:=894) 'p le classeur
ctrl1.Enabled = False: ctrl2.Enabled = False
Set cmbrs = Application.CommandBars
End Sub

dans un module pour tester

Code :

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

1
2
3
4
Sub testx()
CommandBars("Protection").FindControl(ID:=893).Enabled = True
CommandBars("Protection").FindControl(ID:=894).Enabled = True
End Sub

pour lister tes bars et control avec leur IDS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'lister les controls avec leur id
Sub test2()
    lig = 2
    For Each cmb In CommandBars
        cmb.Enabled = True
        lig = lig + 1: Cells(lig, 1) = cmb.Name: c = 1
        For Each ctrl In cmb.Controls
            On Error Resume Next
            c = c + 1: Cells(lig, c) = ctrl.ID & "  ---  " & ctrl.Caption
            On Error GoTo 0
        Next
    Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

[Vba14]

Que dire Patrick, je suis admiratif.
Je vais tester tout ça et je reviens dès que possible

Je t'exprime tout mes chaleureux remerciements

[Vba14]

Eh bien, j'ai mis le code en place, mais rien ne se passe.
La CommandBars ne bouge pas.
Bon je vais essayer de trouver une autre méthode un peu moins compliquée.
On verra ça demain, bonne nuit à tous

[Vba14]

Bonjour à tous,

J'ai trouvé cette discussion sur le forum et je me demande si l'on ne pourrait pas l'appliquer à mon problème, sauf que je ne m'y connais absolument pas en XLM.
Est-ce jouable ?? Sinon, je laisse tomber, je ne vais pas vous faire perdre votre temps.
Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Code VBA : 
' Evénement getVisible pour Onglet "customTab".
 
Private Sub CustomTab_Visible(control As IRibbonControl, ByRef returnedVal)
    Stop
    ' Retourne VRAI pour afficher l'onglet.
    ' Retourne FAUX pour ne pas afficher l'onglet.
    returnedVal = True
End Sub
 
 
Code XML : 	
 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="customTab" 
                 label="Mon Onglet" 
                 insertAfterMso="TabHome" 
                 getVisible="CustomTab_Visible">
            </tab>
        </tabs>
    </ribbon>
</customUI>
 
 
Utilise RibbonUI.InvalideControl pour rafraîchir un contrôle comme un onglet par exemple. CustomTab_Visible sera rappeler en conséquence. Il te faut un évenement onLoad pour prendre une référence du RibbonUI.

[patricktoulon]

Bonjour
c'est vague ce code il en manque une bonne partie sans doute

pour info va te promener par ici
https://silkyroad.developpez.com/excel/ruban/

tiens prends ce fichier il est vide il n'y a pas de macro
c'est juste pour te montrer
cherche l'onglet révision

[Vba14]

Bonjour Patrick,

Je suis allé voir le site que tu m'as préconisé. C'est très complexe pour moi. Il y a beaucoup de code en xlm et moi je ne sais pas faire et je t'avoue ne pas tout comprendre.
Je vais prolongé mon étude de ce site et voir si je peux en sortir quelque chose à mon grand étonnement.
Par contre le fichier Excel est exactement ce qu'il me faut.
Merci beaucoup pour ton aide

[patricktoulon]

re
je t'en fait un sans les onglet perso et tu transfert tout du tiens sur celui la si tu veux

[Vba14]

ça c'est super sympa. Merci beaucoup

[patricktoulon]

re

[Vba14]

Merci Patrick,

Je vais recopier mon fichier dans le tiens, ça va me prendre un peu de temps mais ce n'est pas grave.
Encore mille mercis

[Vba14]

Mais comment tu fais ça ?
Il serait intéressant de connaître la démarche comme ça la prochaine fois je le saurais.
Mais bon c'est déjà très bien

[Vba14]

Re,

Bon j'ai recopié tout mon fichier dans le tiens. L'onglet "Révision" n'apparaît plus comme je le souhaitais.
Cependant je rencontre un petit soucis. Dans mes feuilles j'ai des boutons de commandes, mais je ne peux plus y accéder car le mot création ne fonctionne plus.
Comme puis-je y remédier ?
Merci par avance

[Vba14]

Dans le fichier d'exemple que tu m'avais donné, je pouvais exécuter ces actions, mais plus maintenant.

[patricktoulon]

re
ne mélange pas tout
tu travaillais sur le ruban
maintenant tu parle de bouton sur le sheets ca c'est un autre sujet et donc un autre post