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

1 réponse

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
michdenis
Bonjour Jean,

Voici les 2 procédures complètes que tu devrais utiliser en lieu et place des 2 procédures proposées hier. Tu dois les
copier dans un module standard.

Ces commandes devraient être valide pour toutes les versions d'excel de 97 à 2003

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

On Error Resume Next
With Application.CommandBars

'COMMANDE DE LA BARRE DES MENUS FEUILLE DES CALCULS
'Pour rendre inactif la commande : Insertion_ligne
.Item(1).Controls("Insertion").Controls("Lignes").Enabled = False
'Pour rendre inactif la commande : Insertion_Colonnes
.Item(1).Controls("Insertion").Controls("Colonnes").Enabled = False
'Pour rendre inactif la commande : Edition-Supprimer
.Item(1).Controls("Edition").Controls("Supprimer...").Enabled = False
'Désactive commande barre de menu /format/lignes
.Item(1).Controls("Format").Controls("Ligne").Enabled = False
'Désactive commande barre de menu /format/colonnes
.Item(1).Controls("Format").Controls("Colonne").Enabled = False

'COMMANDE MENU CONTEXUTEL CELLULES FEUILLE DE CALCULS
'désactive commande Supprimer barre menu contextuelle cellule
.Item("Cell").Controls("Supprimer...").Enabled = False
'désactive commande Insérer barre menu contextuelle cellule
.Item("Cell").Controls("Insérer...").Enabled = False

'INSERTION
'Désactiver menu contextuel "Insertion Colonne" Id:297
.Item("Column").Controls("Insertion").Enabled = False
'Désactiver menu contextuel "Insertion Ligne" ID:296
.Item("row").Controls("Insertion").Enabled = False

'SUPPRIMER
'Désactive "Supprimer" une ligne ID:293
.Item("Row").Controls("Supprimer...").Enabled = False
'Désactive "Supprimer" une colonne ID:294
.Item("Column").Controls("Supprimer...").Enabled = False

'MASQUER
'Désactive "Masquer une colonne" Id:886
.Item("Column").Controls("Masquer").Enabled = False
'Désactive "Masquer une ligne" Id:883
.Item("Row").Controls("Masquer").Enabled = False

'AFFICHER
'Désactive "Afficher une ligne" ID:887
.Item("Row").Controls("Afficher").Enabled = False
'Désactive "Afficher une Colonne" ID:884
.Item("Column").Controls("Afficher").Enabled = False

End With

End Sub
'-----------------------------------------
Sub Activer_Commande_Supprimer_Inserer_lignes_Colonnes()
On Error Resume Next

With Application.CommandBars

'COMMANDE DE LA BARRE DES MENUS FEUILLE DES CALCULS

'Pour rendre actif la commande : Insertion_ligne
.Item(1).Controls("Insertion").Controls("Lignes").Enabled = True
'Pour rendre actif la commande : Insertion_Colonnes
.Item(1).Controls("Insertion").Controls("Colonnes").Enabled = True
'Pour rendre actif la commande : Edition-Supprimer
.Item(1).Controls("Edition").Controls("Supprimer...").Enabled = True
'active commande barre de menu /format/lignes
.Item(1).Controls("Format").Controls("Ligne").Enabled = True
'active commande barre de menu /format/colonnes
.Item(1).Controls("Format").Controls("Colonne").Enabled = True

'COMMANDE MENU CONTEXUTEL CELLULES FEUILLE DE CALCULS
'active commande Supprimer barre menu contextuelle cellule
.Item("Cell").Controls("Supprimer...").Enabled = True
'active commande Insérer barre menu contextuelle cellule
.Item("Cell").Controls("Insérer...").Enabled = True

'INSERTION
'activer menu contextuel "Insertion Colonne" Id:297
.Item("Column").Controls("Insertion").Enabled = True
'activer menu contextuel "Insertion Ligne" ID:296
.Item("row").Controls("Insertion").Enabled = True

'SUPPRIMER
'active "Supprimer" une ligne ID:293
.Item("Row").Controls("Supprimer...").Enabled = True
'active "Supprimer" une colonne ID:294
.Item("Column").Controls("Supprimer...").Enabled = True

'MASQUER
'active "Masquer une colonne" Id:886
.Item("Column").Controls("Masquer").Enabled = True
'active "Masquer une ligne" Id:883
.Item("Row").Controls("Masquer").Enabled = True

'AFFICHER
'active "Afficher une ligne" ID:887
.Item("Row").Controls("Afficher").Enabled = True
'active "Afficher une Colonne" ID:884
.Item("Column").Controls("Afficher").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