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 suppresion de colonnes

suppresion de colonnes

21 réponses
Avatar
JEAN
Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte utilisateurs
de fichiers excel de supprimer ou d'insérer des colonnes dans la feuil 1 du
fichier excel seulement

merci
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 3
Avatar
Dédé
Pris en fla grand déli de non lecture des messages qui te sont postés
!!!!!!!!!

Comme je te l'ai dis, tu peux dévérouiller les case que tu ne veux pas
vérouiller lors de la protection de ta feuille donc, ton message passe comme
nul et TOUTES les réponse à tes questions t'ont été donnée !!!!!

Lis-les simplement et tu verra que tout sera plus simple !

Dans l'espoir que tu lise les réponses qui te sont donnée avant de
redemander les même questions ....

Salutations
Dédé


"JEAN" a écrit dans le message de
news:
si je protege la feuille du coup je ne peux pas saisir de donnée ou
modifié

des données

"Dédé" wrote:

Dis moi Jean ...

Dernière tentative ... qu'est-ce que cela dérange si la feuille est
protégée


?????

Merci de ta prochaine réponse !!! et n'oublie pas de regarder TOUTES mes
réponse à tes demandes !!!

Salutations
Dédé
"JEAN" a écrit dans le message de
news:
moi je voudrai empecher toutes utilisateurs, a supprimer des colonnes
ou



supprimer des lignes ou inserer des colonnes ou des lignes, sans
proteger



la
feuille?

je vais chercherr dans des sites, mais si quelqu'un à une solution
merci




je te tiens au courant anonymous, si j'ai une solution

merci


Bonsoir,

La soluce de denis P est sympa pour l'insertion. Pour la
suppression, je




ne
crois pas entrevoir de solutions à ton problème en dehors de
proteger ta




feuille.

S'il y a autre chose, je suis preneur de l'info.


mais on peut supprimer des colonnes ou des lignes ou pas si je met
le





X?

peut t'on alors proteger la cellule ou j'ai X ?

merci
"denis P" wrote:

interdire d'insérer des colonnes
A testouiller Mettre X dans la cellule IV65535

;-)))
denis p.




"JEAN" a écrit dans le message
de






news:
Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte
utilisateurs





de fichiers excel de supprimer ou d'insérer des colonnes dans
la







feuil 1
du
fichier excel seulement

merci




















Avatar
michdenis
Bonjour Jean,

il n'y a pas autre chose a part l'histoire de macro,sinon
moi j'ai une version d'excel 97, comment verifier l'ID

**** à moins que quelqu'un ait une version 97 et qu'il la teste, tu devras le faire toi-même sur un ordinateur qui a une
version excel 97....et pour ce faire, tu n'as qu'à exécuter la macro et voir si effectivement les commandes sont
désactivées.


et avec le code que tu ma donnée, l'utilisateur ne peut ni supprimer ni
inserer des lignes et des colonnes

***** C'est exact et il ne peut pas les affichées aussi . Quelqu'un qui connaît bien excel, cette méthode n'est pas sans
faiblesses !


et que mon classeur est ouvert sur un autre poste qui possede 97 ou 2000 ou
2002, ne vas pas génerer d'erreur de macro$

***** L'exécution de la macro ne devrait pas causé de problème ... sauf si les ID ne sont pas les bons, ce ne sont pas
les bonnes commandes que tu désactiveras. Et si la chose t'inquiète, tu peux toujours insérer la ligne de commande :

on error resume next , comme première ligne de chacune des macros. !


Salutations!



C'est ces 2 macros que tu dois utiliser pour remplacer celle de mon premier message...En faisant du copier-coller, Il
y
a des erreurs qui se sont introduites .... !


'------------------------------------
Sub Pas_Supprimer_Insérer_Lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = False
'désactive commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled = False
'désactive commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled = False
'Désactive commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = False
'Désactive commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = False
End With

End Sub
'------------------------------------
Sub Activer_Commande_Supprimer_Inserer_lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = True
'active commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled = True
'active commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled = True
'active commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = True
'active commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = True
End With

End Sub
'------------------------------------


Salutations!




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

Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte utilisateurs
de fichiers excel de supprimer ou d'insérer des colonnes dans la feuil 1 du
fichier excel seulement

merci





Avatar
jps
dis, dédé, t'es c... ou quoi?
jps

"JEAN" a écrit dans le message de
news:
si je protege la feuille du coup je ne peux pas saisir de donnée ou
modifié

des données

"Dédé" wrote:

Dis moi Jean ...

Dernière tentative ... qu'est-ce que cela dérange si la feuille est
protégée


?????

Merci de ta prochaine réponse !!! et n'oublie pas de regarder TOUTES mes
réponse à tes demandes !!!

Salutations
Dédé
"JEAN" a écrit dans le message de
news:
moi je voudrai empecher toutes utilisateurs, a supprimer des colonnes
ou



supprimer des lignes ou inserer des colonnes ou des lignes, sans
proteger



la
feuille?

je vais chercherr dans des sites, mais si quelqu'un à une solution
merci




je te tiens au courant anonymous, si j'ai une solution

merci


Bonsoir,

La soluce de denis P est sympa pour l'insertion. Pour la
suppression, je




ne
crois pas entrevoir de solutions à ton problème en dehors de
proteger ta




feuille.

S'il y a autre chose, je suis preneur de l'info.


mais on peut supprimer des colonnes ou des lignes ou pas si je met
le





X?

peut t'on alors proteger la cellule ou j'ai X ?

merci
"denis P" wrote:

interdire d'insérer des colonnes
A testouiller Mettre X dans la cellule IV65535

;-)))
denis p.




"JEAN" a écrit dans le message
de






news:
Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte
utilisateurs





de fichiers excel de supprimer ou d'insérer des colonnes dans
la







feuil 1
du
fichier excel seulement

merci




















Avatar
Dédé
Je pense pas ... mais comme me l'a dit Clément, Jean ne lit pas ses messages
avant de reposer une question, du coup, ben c'est toujours navrant de voir
que ses solutions ne sont pas lues et appliquée ne serait-ce qu'en faisant
un tit test ...

Mais peut-être que je me trompe ...

Sur ce, j'espère pas t'avoir trop choqué ;-) et si c'est le cas, ben désolé
car nul n'était mon intention !

Sans rancune ;-)

Dédé

"jps" a écrit dans le message de
news:%238$
dis, dédé, t'es c... ou quoi?
jps

"JEAN" a écrit dans le message de
news:
si je protege la feuille du coup je ne peux pas saisir de donnée ou
modifié

des données

"Dédé" wrote:

Dis moi Jean ...

Dernière tentative ... qu'est-ce que cela dérange si la feuille est
protégée


?????

Merci de ta prochaine réponse !!! et n'oublie pas de regarder TOUTES
mes



réponse à tes demandes !!!

Salutations
Dédé
"JEAN" a écrit dans le message de
news:
moi je voudrai empecher toutes utilisateurs, a supprimer des
colonnes




ou
supprimer des lignes ou inserer des colonnes ou des lignes, sans
proteger



la
feuille?

je vais chercherr dans des sites, mais si quelqu'un à une solution
merci




je te tiens au courant anonymous, si j'ai une solution

merci


Bonsoir,

La soluce de denis P est sympa pour l'insertion. Pour la
suppression, je




ne
crois pas entrevoir de solutions à ton problème en dehors de
proteger ta




feuille.

S'il y a autre chose, je suis preneur de l'info.


mais on peut supprimer des colonnes ou des lignes ou pas si je
met






le
X?

peut t'on alors proteger la cellule ou j'ai X ?

merci
"denis P" wrote:

interdire d'insérer des colonnes
A testouiller Mettre X dans la cellule IV65535

;-)))
denis p.




"JEAN" a écrit dans le
message







de
news:
Bjr,
quelqu'un connait autre qqu'une macro pour interdire a
toutte








utilisateurs
de fichiers excel de supprimer ou d'insérer des colonnes
dans








la
feuil 1
du
fichier excel seulement

merci























Avatar
JEAN
j'ai essayé tes deux macros dans excel 2000
j'arrive a supprimer des colonnes.quand meme

tu sait comment trouver les bons ID?

merci



Bonjour Jean,

il n'y a pas autre chose a part l'histoire de macro,sinon
moi j'ai une version d'excel 97, comment verifier l'ID

**** à moins que quelqu'un ait une version 97 et qu'il la teste, tu devras le faire toi-même sur un ordinateur qui a une
version excel 97....et pour ce faire, tu n'as qu'à exécuter la macro et voir si effectivement les commandes sont
désactivées.


et avec le code que tu ma donnée, l'utilisateur ne peut ni supprimer ni
inserer des lignes et des colonnes

***** C'est exact et il ne peut pas les affichées aussi . Quelqu'un qui connaît bien excel, cette méthode n'est pas sans
faiblesses !


et que mon classeur est ouvert sur un autre poste qui possede 97 ou 2000 ou
2002, ne vas pas génerer d'erreur de macro$

***** L'exécution de la macro ne devrait pas causé de problème ... sauf si les ID ne sont pas les bons, ce ne sont pas
les bonnes commandes que tu désactiveras. Et si la chose t'inquiète, tu peux toujours insérer la ligne de commande :

on error resume next , comme première ligne de chacune des macros. !


Salutations!



C'est ces 2 macros que tu dois utiliser pour remplacer celle de mon premier message...En faisant du copier-coller, Il
y
a des erreurs qui se sont introduites .... !


'------------------------------------
Sub Pas_Supprimer_Insérer_Lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = False
'désactive commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled = False
'désactive commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled = False
'Désactive commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = False
'Désactive commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = False
End With

End Sub
'------------------------------------
Sub Activer_Commande_Supprimer_Inserer_lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = True
'active commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled = True
'active commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled = True
'active commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = True
'active commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = True
End With

End Sub
'------------------------------------


Salutations!




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

Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte utilisateurs
de fichiers excel de supprimer ou d'insérer des colonnes dans la feuil 1 du
fichier excel seulement

merci










Avatar
jps
je blaguais, dédé...
sans rancune aussi, bien sûr
jps

"Dédé" a écrit dans le message de
news:
Sur ce, j'espère pas t'avoir trop choqué ;-) et si c'est le cas, ben
désolé

car nul n'était mon intention !

Sans rancune ;-)


Avatar
Dédé
C'est malin, j'ai presque marché ....

Mais comme tu peux le constater, jean n'a pas encore atteint les limites de
ma patience et ma pertinence ;-)

Mais j'attends qu'un effort de sa part ... plus que mon dernier post, je ne
puis rien faire ;-)

Mais, peut-être que tu a raison de penser que certaines personne me trouve
un peu c... d'insister à ce point ... mais bon, défaut ou qualité ...?? je
pense qu'a utilisation modérée cela ne puisse être qu'une qualité ;-)

Sur ce, je te souhaite une bonne soirée et à +

Dédé
ÊR(111)&CAR(100)&CAR(101)&CAR(109)&CAR(111)&CAR(110)&CAR(116)&CAR(64)&CAR(
118)&CAR(116)&CAR(120)&CAR(110)&CAR(101)&CAR(116)&CAR(46)&CAR(99)&CAR(104)




"jps" a écrit dans le message de
news:
je blaguais, dédé...
sans rancune aussi, bien sûr
jps

"Dédé" a écrit dans le message de
news:
Sur ce, j'espère pas t'avoir trop choqué ;-) et si c'est le cas, ben
désolé

car nul n'était mon intention !

Sans rancune ;-)





Avatar
jps
très astucieuse cette façon d'écrire son adresse email, dédé mais gare le
bonjour où les robots auront trouvé le décodeur
jps (grand décodeur avec deux "n" à ses heures)

"Dédé" a écrit dans le message de
news:

ÊR(111)&CAR(100)&CAR(101)&CAR(109)&CAR(111)&CAR(110)&CAR(116)&CAR(64)&CAR(

118)&CAR(116)&CAR(120)&CAR(110)&CAR(101)&CAR(116)&CAR(46)&CAR(99)&CAR(104)


Avatar
YannX
"Dédé" a écrit dans le message de
news:
Pris en fla grand déli de non lecture des messages qui te sont postés
Lis-les simplement et tu verra que tout sera plus simple !

Dans l'espoir que tu lise les réponses qui te sont donnée avant de
redemander les même questions ....
"JEAN" a écrit dans le message de
"Dédé" wrote:
Dis moi Jean ...

Dernière tentative ... qu'est-ce que cela dérange si la feuille est
protégée


Merci de ta prochaine réponse !!! et n'oublie pas de regarder TOUTES
mes



réponse à tes demandes !!!
Dédé
"JEAN" a écrit dans le message de
merci
"denis P" wrote:

interdire d'insérer des colonnes
A testouiller Mettre X dans la cellule IV65535
denis p.
"JEAN" a écrit dans le
message








Tout le monde a compris ou je TESTOU aussi !







Avatar
denis P
Bonjour TestJean
Macro de LL
cette macro fait la liste de tout les menu avec leur ID.
Place le code qui suit dans un module standard.
exécute la macro "ListeIDS()"
le résultat est placer sur la feuille active.
denis p.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''
'L Longre
Dim I As Integer, J As Integer

Sub ListeIDS()
Dim CmdB As CommandBar
I = 1: J = 0
Cells.Clear
Application.ScreenUpdating = False
For Each CmdB In Application.CommandBars
Récurse CmdB
Next CmdB
With Range("A1").CurrentRegion
.Font.Size = 8
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub

Private Sub Récurse(CmdB As Object)
Dim Ctrl As CommandBarControl
J = J + 1
For Each Ctrl In CmdB.Controls
With Cells(I, J)
.Value = Ctrl.Caption & IIf(Ctrl.BuiltIn, " = " & Ctrl.ID, "")
If J = 1 Then .Font.Bold = True
End With
If Ctrl.Type = msoControlPopup Then Récurse Ctrl Else I = I + 1
Next Ctrl
J = J - 1
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''

"JEAN" a écrit dans le message de
news:
j'ai essayé tes deux macros dans excel 2000
j'arrive a supprimer des colonnes.quand meme

tu sait comment trouver les bons ID?

merci



Bonjour Jean,

il n'y a pas autre chose a part l'histoire de macro,sinon
moi j'ai une version d'excel 97, comment verifier l'ID

**** à moins que quelqu'un ait une version 97 et qu'il la teste, tu
devras le faire toi-même sur un ordinateur qui a une


version excel 97....et pour ce faire, tu n'as qu'à exécuter la macro et
voir si effectivement les commandes sont


désactivées.


et avec le code que tu ma donnée, l'utilisateur ne peut ni supprimer ni
inserer des lignes et des colonnes

***** C'est exact et il ne peut pas les affichées aussi . Quelqu'un qui
connaît bien excel, cette méthode n'est pas sans


faiblesses !


et que mon classeur est ouvert sur un autre poste qui possede 97 ou 2000
ou


2002, ne vas pas génerer d'erreur de macro$

***** L'exécution de la macro ne devrait pas causé de problème ... sauf
si les ID ne sont pas les bons, ce ne sont pas


les bonnes commandes que tu désactiveras. Et si la chose t'inquiète, tu
peux toujours insérer la ligne de commande :



on error resume next , comme première ligne de chacune des macros. !


Salutations!



C'est ces 2 macros que tu dois utiliser pour remplacer celle de mon
premier message...En faisant du copier-coller, Il



y
a des erreurs qui se sont introduites .... !


'------------------------------------
Sub Pas_Supprimer_Insérer_Lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = False
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = False
'désactive commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled False
'désactive commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled False
'Désactive commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = False
'Désactive commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = False
End With

End Sub
'------------------------------------
Sub Activer_Commande_Supprimer_Inserer_lignes_Colonnes()

With Application.CommandBars
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).FindControl(ID:)6, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).FindControl(ID:)7, Recursive:=True).Enabled = True
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).FindControl(ID:G8, Recursive:=True).Enabled = True
'active commande Supprimer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:)2, Recursive:=True).Enabled = True
'active commande Insérer barre menu contextuelle cellule
.Item("Cell").FindControl(ID:181, Recursive:=True).Enabled True
'active commande barre de menu /format/lignes
.Item(1).FindControl(ID:0024, Recursive:=True).Enabled = True
'active commande barre de menu /format/colonnes
.Item(1).FindControl(ID:0025, Recursive:=True).Enabled = True
End With

End Sub
'------------------------------------


Salutations!




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




Bjr,
quelqu'un connait autre qqu'une macro pour interdire a toutte
utilisateurs



de fichiers excel de supprimer ou d'insérer des colonnes dans la feuil
1 du



fichier excel seulement

merci












1 2 3