Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Empecher l'affichage des barres d'outils

Empecher l'affichage des barres d'outils

2 réponses
Avatar
BlackStorm
Bonsoir,

Comment faire pour que l'utilisateur ne puisse afficher les barre d'outils ?

merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
En désactivant les contrôles correspondants :
Sub DesactiverLeCtrlBO()
Application.CommandBars(1).FindControl(ID:0045, recursive:=True).Enabled =
False
Application.CommandBars("Toolbar list").Enabled = False
End Sub
Sub ReactiverLeCtrlBO()
Application.CommandBars(1).FindControl(ID:0045, recursive:=True).Enabled =
True
Application.CommandBars("Toolbar list").Enabled = True
End Sub

Cordialement
Pascal

"BlackStorm" a écrit dans le message de news:
%
Bonsoir,

Comment faire pour que l'utilisateur ne puisse afficher les barre d'outils
?

merci d'avance




Avatar
BlackStorm
merci , super !!
Je vais essayer tout ca !

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
En désactivant les contrôles correspondants :
Sub DesactiverLeCtrlBO()
Application.CommandBars(1).FindControl(ID:0045, recursive:=True).Enabled
False
Application.CommandBars("Toolbar list").Enabled = False
End Sub
Sub ReactiverLeCtrlBO()
Application.CommandBars(1).FindControl(ID:0045, recursive:=True).Enabled
True
Application.CommandBars("Toolbar list").Enabled = True
End Sub

Cordialement
Pascal

"BlackStorm" a écrit dans le message de news:
%
Bonsoir,

Comment faire pour que l'utilisateur ne puisse afficher les barre
d'outils


?

merci d'avance