Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Empêcher de masquer des lignes

Empêcher de masquer des lignes

15 réponses
Avatar
Marco38
Bonsoir,

Comment obliger un utilisateur =E0 utiliser uniquement les=20
boutons "Grouper" et dissocier", car je ne veux pas que=20
la personne utilise le "masquer" des lignes avec le=20
bouton droit de la souris ou bien le=20
Menu "Format" "Ligne" "Masquer".

Merci
Marc
Signaler un problème avec ce contenu

10 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
1 2
Avatar
jps
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls("&Masquer").Enabled = False

pour remettre l'utilisation du bouton, tu remplaces False par True
jps

"Marco38" a écrit dans le message de
news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc
Avatar
Marco38
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



Avatar
jps
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur mais n'oublie pas de
les remettre à True à la fermeture du classeur en question
jps

"Marco38" a écrit dans le message de
news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



Avatar
jps
euh...juste encore un mot, marco :
pense aussi qu'il y a un bouton qui n'est pas dans la barre d'outils native
d'excel mais qui peut y être installé via Outils/Personnaliser et ce bouton,
il permet aussi de maquer une ou plusieurs colonnes
jps

"jps" a écrit dans le message de
news:
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur mais n'oublie pas
de

les remettre à True à la fermeture du classeur en question
jps

"Marco38" a écrit dans le message de
news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.






Avatar
Marco38
Re-bonsoir jps

j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub

Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub

Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?

Marc

-----Message d'origine-----
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de

les remettre à True à la fermeture du classeur en
question

jps

"Marco38" a écrit
dans le message de

news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



.




Avatar
jps
en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps

"Marco38" a écrit dans le message de
news:1df101c54464$5eafe010$
Re-bonsoir jps

j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub

Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub

Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?

Marc

-----Message d'origine-----
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de

les remettre à True à la fermeture du classeur en
question

jps

"Marco38" a écrit
dans le message de

news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



.




Avatar
ChrisV
je pensais que ça allait marcher...


Regarde bien le contrôle que tu inhibes JP...

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With



et regardes bien l'objet du post...
ça y est ? ;-)


ChrisV


"jps" a écrit dans le message de news:

en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro dans
un module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps

"Marco38" a écrit dans le message de
news:1df101c54464$5eafe010$
Re-bonsoir jps

j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub

Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub

Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?

Marc

-----Message d'origine-----
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de

les remettre à True à la fermeture du classeur en
question

jps

"Marco38" a écrit
dans le message de

news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



.







Avatar
ChrisV
Bonjour Marco38,

il faut que je met cette procédure à l'ouverture de mon
classeur ou bien uniquement dans une feuille.


A toi de voir... si les contrôles doivent êtres désactivés pour l'ensemble
des onglets du classeur ou pour un seul...

Pour un seul, tu pourras choisir, dans la feuille de code de l'onglet
concerné, l'évènement
Private Sub Worksheet_Activate()
pour désactiver les commandes Afficher/Masquer
et
Private Sub Worksheet_Deactivate()
pour réactiver les commandes Afficher/Masquer

S'il s'agit d'interférer pour l'ensemble des onglets du classeur:
(dans la feuille de code de ThisWorkbook)

Private Sub Workbook_Activate()
On Error Resume Next
With Application.CommandBars(1).Controls(5).Controls(2)
.Controls(3).Enabled = False
.Controls(4).Enabled = False
End With
For Each cbar In Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Controls("Masquer").Enabled = False
cbar.Controls("Afficher").Enabled = False
End If
Next cbar
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
With Application.CommandBars(1).Controls(5).Controls(2)
.Controls(3).Enabled = True
.Controls(4).Enabled = True
End With
For Each cbar In Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Controls("Masquer").Enabled = True
cbar.Controls("Afficher").Enabled = True
End If
Next cbar
End Sub


ChrisV


"Marco38" a écrit dans le message de
news: 01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



Avatar
jps
mouais, ça y est, chris, et merci pour ta perspicacité qui a fait ta
réputation dans le monde entier et même au-delà, je veux dire dans les
Grandes Plaines de Wakan Tanka...
mais il n'empêche que je ne comprends toujours pas pourquoi cette proc ne
fonctionne pas dans le Workbook Open alors que, au vu de ta réponse à marco
dans le post suivant, elle marche avec l'évènement Activate; pourtant,
exécutée depuis VBE, elle gazouille comme une mésange dans le brouillard qui
vient d'envahir le beaujolais ...
tu m'expliqueras quand je serai grand, steplé, chris?
jps

"ChrisV" a écrit dans le message de
news:
je pensais que ça allait marcher...


Regarde bien le contrôle que tu inhibes JP...

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With



et regardes bien l'objet du post...
ça y est ? ;-)


ChrisV


"jps" a écrit dans le message de news:

en effet marco et j'en suis tout marri...
je pensais que ça allait marcher ainsi mais même si on écrit la macro
dans


un module et qu'on l'appelle (la macro) dans le Workbook Open, ça ne
gazouille pas non plus...
je croyais avoir fait le plus dur mais là, il nous faut faire appel aux
cracks qui ont l'air tous en goguette ce soir...
jps

"Marco38" a écrit dans le message
de


news:1df101c54464$5eafe010$
Re-bonsoir jps

j'ai coller le code suivant dans thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = True
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = True
End Sub

Private Sub Workbook_Open()
With Application.CommandBars(1).Controls(5)
.Controls("Colonne").Controls("Masquer").Enabled = False
End With

Application.CommandBars("column").Controls
("&Masquer").Enabled = False
End Sub

Cela ne fonctionne pas j'ai toujours la possiblité de
masquer les lignes avec la souris ou dans le menu format
lignes masquer?

Marc

-----Message d'origine-----
rebonjour marco,
pour l autre bouton :

With Application.CommandBars(1).Controls(5)
..Controls("Colonne").Controls("Masquer").Enabled = False
End With

tu peux mettre ces procédures à l'ouverture du classeur
mais n'oublie pas de

les remettre à True à la fermeture du classeur en
question

jps

"Marco38" a écrit
dans le message de

news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



.











Avatar
jps
bonjour marco
suite à la perspicace intervention de chrisV, il faut donc remplacer
"column" par "row" puisque ce sont les lignes que tu veux masquer et non
les colonnes
et puis tu as vu que chrisV, encore sur les sentiers de la guerre en pleine
nuit, a donné les procs qui vont bien
jps

"Marco38" a écrit dans le message de
news:01b801c54460$ecc6fc20$
Bonsoir,

Merci jps pour ta réponse, il faut que je met cette
procédure à l'ouverture de mon classeur ou bien
uniquement dans une feuille.

Marc
-----Message d'origine-----
bonsoir marc
pour le bouton droit de la souris


Application.CommandBars("column").Controls
("&Masquer").Enabled = False


pour remettre l'utilisation du bouton, tu remplaces
False par True

jps

"Marco38" a écrit
dans le message de

news:06b101c5445b$20829a70$
Bonsoir,

Comment obliger un utilisateur à utiliser uniquement les
boutons "Grouper" et dissocier", car je ne veux pas que
la personne utilise le "masquer" des lignes avec le
bouton droit de la souris ou bien le
Menu "Format" "Ligne" "Masquer".

Merci
Marc

.



1 2