Bloquer options dans exel

[roro36]

Bonjour,


Voila, j'aimerais savoir si il était possible de bloquer dans outil sur Exel 2003 la fonction afficher les onglets ?

Ou existe t'il une macro pour cela et où mettre le code si ça existe.

J'aimerais que ceux qui ouvriront la page d'accueil d'un fichier avec plusieurs onglets ne puissent pas
cocher la case, il faudrait que les onglets ne se voient pas.

Merci d'avance pour vos réponses

 

[JCGL]

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

 

[roro36]

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.

 

[PascalXLD]

Re : Bloquer options dans exel

Bonjour

Fil déplacé sur le forum Excel

 

[JCGL]

Re : Bloquer options dans exel

Bonjour à tous,

Merci Pascal 🙂

Roro : Et si tu joignais ton fichier anonymisé.

A+ à tous

 

[MJ13]

Re : Bloquer options dans exel

Bonjour à tous

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

 

[JCGL]

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

A+ à tous

 

[roro36]

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.

 

[MJ13]

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

 

[roro36]

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

 

[roro36]

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?

 

[MJ13]

Re : Bloquer options dans exel

Re

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

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

 

[roro36]

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.

 

[Staple1600]

Re : Bloquer options dans exel

Bonjour à tous


Le gris peut-être une solution 😉

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 ... 😉

 

[roro36]

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