Bloquer options dans exel

JCGL

XLDnaute Barbatruc

• 14 Septembre 2014

• #2

Re : Bloquer options dans exel

Bonjour à tous,

Tu aurais eu une réponse plus rapide sur le Forum Excel.

Voir les noms définis et le bout de code dans le ThisWorkBook.
Utilise une fonction XL4
Activation des macros indispensable.

A+ à tous

 

Pièces jointes

• JC Onglets Non Visibles.xlsm

  23.8 KB · Affichages: 34

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 15 Septembre 2014

• #3

Re : Bloquer options dans exel

Merci JCGL
A vrai dire je ne savais pas trop car je ne voyais pas si c'était possible sans le VBA.
J'ai ouvert la pièce jointe que tu m'a mise.
Pour moi, comme j'ai mis dans ma page d'accueil des boutons qui renvoie par la page onglet 1, puis la 2 etc... avec un bouton retour en page d'accueil.
La formule que tu m'as mise est-ce que elle fonctionne avec exel 2003.
Et dans mon cas ca doit changer puisque ce sont des boutons avec lien.
Merci de m'occuper de ma requête, à bientôt.
Cordialement.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Septembre 2014

• #4

Re : Bloquer options dans exel

Bonjour

Fil déplacé sur le forum Excel

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Septembre 2014

• #5

Re : Bloquer options dans exel

Bonjour à tous,

Merci Pascal 🙂

Roro : Et si tu joignais ton fichier anonymisé.

A+ à tous

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Septembre 2014

• #6

Re : Bloquer options dans exel

Bonjour à tous

Un autre exemple de ce qu'on peut faire 🙂.

 

Pièces jointes

• MasqueNonOnglets.xls

  39.5 KB · Affichages: 24

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Septembre 2014

• #7

Re : Bloquer options dans exel

Bonjour à tous,
Salut MJ,

Pour ne pas avoir à copier le bout de code dans tous les modules de feuilles.
Ceci dans le ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 18 Septembre 2014

• #8

Re : Bloquer options dans exel

Bonjour à tous

Merci d'avoir répondu à ma question mais ceci ne fonctionne pas sur ma page.
Certainement je ne m'explique pas bien.
Ce que je cherche en réalité c'est empêcher dans la barre de menu Exel puis outils
et Affichage, la possibilité de ne pas pouvoir cocher la case (Onglets de Classeur)
Ou alors faire comme un logiciel empêcher d'utiliser la barre de menu Outils du haut.

Vous remerciant par avance de chercher à m'aider.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Septembre 2014

• #9

Re : Bloquer options dans exel

Re

Tu peux jouer sur la disparition d'un élément du menu sur XL2003. Mais attention à bien faire un Reset des menus en quittant l'application.

Code VBA:
Sub MenuItem_Option_Delete()
Dim myCmd As Object
'For i = 19 To 1 Step -1
Set myCmd = CommandBars("Worksheet menu bar").Controls("&Outils")
myCmd.Controls.Item(19).Delete
'Next
End Sub
Sub menuItem_Restore()
Dim myCmd As Object
'Set myCmd = CommandBars("Worksheet menu bar").Reset
CommandBars("Worksheet menu bar").Reset
End Sub

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 18 Septembre 2014

• #10

Re : Bloquer options dans exel

Merci MJ13

Quand tu dis reset des menus en quittant l'application tu veux dire quoi exactement?
Car pour les personnes qui ouvriraient le fichier devrait faire une manip en quittant ?
Je vais essayer de mettre ce que tu vient de mettre ici.
Merci encore

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 18 Septembre 2014

• #11

Re : Bloquer options dans exel

Re moi,
J'ai mis le code VBA, toujours pareil peut-être je ne le mets pas au bon endroit?

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Septembre 2014

• #12

Re : Bloquer options dans exel

Re

Essaye ce code (pas toujours simple de trouver le bon numéro d'item):

Code:

Sub MenuItem_Option_Delete()
Dim myCmd As Object
'For i = 19 To 1 Step -1
Set myCmd = CommandBars("Worksheet menu bar").Controls("&Outils")
myCmd.Controls.Item(18).Delete
myCmd.Controls.Item(18).Delete
'Next
End Sub

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 20 Septembre 2014

• #13

Re : Bloquer options dans exel

Bonjour MJ13

Toujours pareil, a mon avis peut-être que la solution serait de bloquer la barre de commande, empêcher celle-ci de s'afficher.

C'est à dire qu'il faudrait avoir le mot de passe pour pouvoir l'afficher de nouveau en retirant un code dans le VBA peut-être.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Septembre 2014

• #14

Re : Bloquer options dans exel

Bonjour à tous


Le gris peut-être une solution 😉

Code:

Sub OptionsZERO()
CommandBars(1).Controls("&Outils").Controls.Item(19).Enabled = False
End Sub

PS:Test OK sur un Excel 2003
Pour rétablir, changer le False en True dans la ligne de code.

NB: Il suffit d'ouvrir le classeur sans activer les macros et de commenter cette ligne pour rendre tout cela caduque ... 😉

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 22 Septembre 2014

• #15

Re : Bloquer options dans exel

Bon je ne suis pas vraiment doué,

pourrais tu me mettre le code complet STP que je fasse un copier coller.

Ensuite je le colle dans Worksheet c'est ça je crois non

 

Vote positif 0 Vote négatif