Discussion :

[Buffalo1214]

Bonjour à tous,

Je suis en cours de mise en place d'une application qui doit avoir un menu personnalisé. J'ai donc écrit le fichier XML correspondant via l'outil adéquat.

En haut de ce fichier, j'ai bien :

Code :

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

1
2
3
4
5
6
7
8
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 
<commands>
	<command idMso="FilterAdvancedMenu" enabled="false"/>
	<command idMso="Help" enabled="false"/> 
</commands>
 
<ribbon startFromScratch="true">

Le startFromScratch supprime bien tous les onglets SAUF le premier onglet, Fichier, qui permet entre autre d'accéder aux options. J'ai essayé par <Command> mais sans trouver... :-)

Comment dois-je faire pour empêcher l'accès aux options. (Je ne veux pas que l'utilisateur puisse accéder en direct aux onglets par exemple)

Merci pour vos réponses,
Bon Week end,

[fring]

Bonjour,

Je ne sais pas s'il est possible d'empêcher l'accès aux options mais pour empêcher l'accès aux feuilles (onglets), tu peux mettre leur propriété Visible sur VeryHidden

[CODYCO]

Essais ca mais je crois bien que contrairement au version antérieur à 2007 on ne peux pas enlever le menu fichier.

Code :

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

1
2
3
4
5
6
7
 
On Error Resume Next
For x = 1 To Application.CommandBars.Count
With Application.CommandBars(x)
.Enabled = False
End With
Next x

[Buffalo1214]

Bonjour,
Au chargement de mon menu, je rempli une combo box... J'ai donc ajouté la commande que tu m'as proposé.

Code :

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

1
2
3
4
5
6
7
8
9
    i = 1
    For Each oOnglet In ActiveWorkbook.Sheets
      If oOnglet.Name <> "Settings" Then
        Sheets("feuil1").Range("A" & i) = oOnglet.Name
      End If
      i = i + 1
      oOnglet.Visible = VeryHidden    
Next oOnglet

Excel me dit que VeryHidden n'existe pas...

[fring]

Excel me dit que VeryHidden n'existe pas...

C'est xlVeryHidden

[Buffalo1214]

Bonjour,

Le code à écrire est donc le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim oOnglet As Worksheet
Dim i As Long
 
    i = 1
    For Each oOnglet In ActiveWorkbook.Sheets
      If oOnglet.Name <> "Settings" And oOnglet.Name <> "Total" Then
        Sheets("feuil1").Range("A" & i) = oOnglet.Name
        oOnglet.Visible = xlSheetVeryHidden
      End If
      i = i + 1
    Next oOnglet

Dans les options, la case à cocher "Afficher les onglets est bien cochée", et les onglets sont bien invisibles.
Cela résoud mon problème en partie...
Merci
Bonne journée