voilà le problème : sur une feuille Excel je verrouille toutes les cellules
sauf de B1 à B4 par exemple.
Je protège la feuille par un mot de passe. On peut écrire uniquement dans
les cellules B1 à B4.
Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le
contenu, rien de spécial.
En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se
verrouillent.
Donc je voudrais savoir comment soit laisser uniquement Edition Effacer
Contenu (en grisant les
autres options d'Edition Effacer) sans supprimer le Menu de base fourni par
Microsoft,
soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les
annuler et ne laisser
passer que le 4ème choix (Contenu).
D'avance merci à tous.
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
Benead
Salut Bernard
Fais ton choix, soit tu bloque Effacer du menu édition, l'utilisateur pourra toujours faire Suppr, soit tu laisses active uniquement "Effacer contenu" :
Sub BloquerEffacerTout() CommandBars(Barre).Controls("Edition").Controls("Effacer").Enabled = False End Sub
Sub BloquerEffacerSaufContenu() CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = False CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = False CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = False End Sub
Sub ActiverEffacer() CommandBars(Barre).Controls(2).Controls("E&ffacer").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = True End Sub ' ************************
A mettre dans un module standard. Tu peux utiliser le Workbook_Open avec BloquerEffacerSaufContenu et le Workbook_BeforeSave avec ActiverEffacer, si tu veux tout automatiser.
A+ Benead XL97
Bernard a écrit:
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules sauf de B1 à B4 par exemple. Je protège la feuille par un mot de passe. On peut écrire uniquement dans les cellules B1 à B4. Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le contenu, rien de spécial. En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se verrouillent. Donc je voudrais savoir comment soit laisser uniquement Edition Effacer Contenu (en grisant les autres options d'Edition Effacer) sans supprimer le Menu de base fourni par Microsoft, soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les annuler et ne laisser passer que le 4ème choix (Contenu). D'avance merci à tous.
Salut Bernard
Fais ton choix, soit tu bloque Effacer du menu édition, l'utilisateur pourra toujours faire Suppr, soit tu laisses
active uniquement "Effacer contenu" :
Sub BloquerEffacerTout()
CommandBars(Barre).Controls("Edition").Controls("Effacer").Enabled = False
End Sub
Sub BloquerEffacerSaufContenu()
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = False
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = False
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = False
End Sub
Sub ActiverEffacer()
CommandBars(Barre).Controls(2).Controls("E&ffacer").Enabled = True
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = True
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = True
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True
CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = True
End Sub
' ************************
A mettre dans un module standard. Tu peux utiliser le Workbook_Open avec BloquerEffacerSaufContenu et le
Workbook_BeforeSave avec ActiverEffacer, si tu veux tout automatiser.
A+
Benead
XL97
Bernard a écrit:
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules
sauf de B1 à B4 par exemple.
Je protège la feuille par un mot de passe. On peut écrire uniquement dans
les cellules B1 à B4.
Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le
contenu, rien de spécial.
En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se
verrouillent.
Donc je voudrais savoir comment soit laisser uniquement Edition Effacer
Contenu (en grisant les
autres options d'Edition Effacer) sans supprimer le Menu de base fourni par
Microsoft,
soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les
annuler et ne laisser
passer que le 4ème choix (Contenu).
D'avance merci à tous.
Fais ton choix, soit tu bloque Effacer du menu édition, l'utilisateur pourra toujours faire Suppr, soit tu laisses active uniquement "Effacer contenu" :
Sub BloquerEffacerTout() CommandBars(Barre).Controls("Edition").Controls("Effacer").Enabled = False End Sub
Sub BloquerEffacerSaufContenu() CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = False CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = False CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = False End Sub
Sub ActiverEffacer() CommandBars(Barre).Controls(2).Controls("E&ffacer").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Tout").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Formats").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Contenu").Enabled = True CommandBars(Barre).Controls("Edition").Controls("Effacer").Controls("Commentaires").Enabled = True End Sub ' ************************
A mettre dans un module standard. Tu peux utiliser le Workbook_Open avec BloquerEffacerSaufContenu et le Workbook_BeforeSave avec ActiverEffacer, si tu veux tout automatiser.
A+ Benead XL97
Bernard a écrit:
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules sauf de B1 à B4 par exemple. Je protège la feuille par un mot de passe. On peut écrire uniquement dans les cellules B1 à B4. Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le contenu, rien de spécial. En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se verrouillent. Donc je voudrais savoir comment soit laisser uniquement Edition Effacer Contenu (en grisant les autres options d'Edition Effacer) sans supprimer le Menu de base fourni par Microsoft, soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les annuler et ne laisser passer que le 4ème choix (Contenu). D'avance merci à tous.
michdenis
Bonjour Bernard,
C'est long à écrire mais c'est rapide à mettre en application ...!
Tu peux solutionner ta problématique sans macro en faisant ceci :
A ) Barre des menus / format / Style / Tu saisis "Denis" comme nom pour un nouveau Style B ) Tu décoche toutes les cases à cocher sauf "Protection" C ) À l'aide du bouton modifier de cette fenêtre, tu t'assures que le paramètre "Verrouiller" de l'onglet "Protection" est bien activé (coché) Un clic sur le bouton "Ajouter" pour créer définitivement ce Style. Donc le Style "Denis" devrait contenir seulement l'item "protection" avec la mention "Verrouillée" D ) Tu sélectionnes toutes les cellules de la feuille en utilisant le bouton à l'intersection de l'en-tête ligne et de l'en-tête (coin cellule A1)
E ) Tu affectes à toutes ces cellules le format "Denis" que tu viens de créer. Barre des menus / format / style / "Denis"
F ) Maintenant, tu va modifier le "Style Normal" barre des menus / format / Style / et dans la liste déroulante, tu choisis "normal" et à l'aide du bouton modifier, tu vas aller décocher le paramètre verrouillé de l'onglet "Protection"
G ) Il ne te reste plus qu'à affecter à la plage B1:B4 le style normal ... et le tour est joué. Les cellules B1:B4 vont demeuré non protégé si tu utilises les commandes du sous-menu "Effacer" lorsque ta feuille est verrouillée.
H ) La commande "Supprimer" me semble-t-il ne devrait pas être disponible si ta feuille est verrouillée.
I ) Ce qu'il faut retenir c'est lorsque l'on supprime tout le contenu et format d'une cellule, cette dernière affiche les caractéristiques du Style "normal" et comme nous avons modifié ce style ... il n'y a plus de raisons d'utiliser des macros !
Salutations!
"Bernard" a écrit dans le message de news:
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules sauf de B1 à B4 par exemple. Je protège la feuille par un mot de passe. On peut écrire uniquement dans les cellules B1 à B4. Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le contenu, rien de spécial. En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se verrouillent. Donc je voudrais savoir comment soit laisser uniquement Edition Effacer Contenu (en grisant les autres options d'Edition Effacer) sans supprimer le Menu de base fourni par Microsoft, soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les annuler et ne laisser passer que le 4ème choix (Contenu). D'avance merci à tous.
Bonjour Bernard,
C'est long à écrire mais c'est rapide à mettre en application ...!
Tu peux solutionner ta problématique sans macro en faisant ceci :
A ) Barre des menus / format / Style / Tu saisis "Denis" comme nom pour un nouveau Style
B ) Tu décoche toutes les cases à cocher sauf "Protection"
C ) À l'aide du bouton modifier de cette fenêtre, tu t'assures que le paramètre "Verrouiller" de l'onglet "Protection"
est bien activé (coché)
Un clic sur le bouton "Ajouter" pour créer définitivement ce Style.
Donc le Style "Denis" devrait contenir seulement l'item "protection" avec la mention "Verrouillée"
D ) Tu sélectionnes toutes les cellules de la feuille en utilisant le bouton à l'intersection de l'en-tête ligne et de
l'en-tête (coin cellule A1)
E ) Tu affectes à toutes ces cellules le format "Denis" que tu viens de créer. Barre des menus / format / style /
"Denis"
F ) Maintenant, tu va modifier le "Style Normal" barre des menus / format / Style / et dans la liste déroulante, tu
choisis "normal" et à l'aide du bouton modifier, tu vas aller décocher le paramètre verrouillé de l'onglet "Protection"
G ) Il ne te reste plus qu'à affecter à la plage B1:B4 le style normal ... et le tour est joué. Les cellules B1:B4 vont
demeuré non protégé si tu utilises les commandes du sous-menu "Effacer" lorsque ta feuille est verrouillée.
H ) La commande "Supprimer" me semble-t-il ne devrait pas être disponible si ta feuille est verrouillée.
I ) Ce qu'il faut retenir c'est lorsque l'on supprime tout le contenu et format d'une cellule, cette dernière affiche
les caractéristiques du Style "normal" et comme nous avons modifié ce style ... il n'y a plus de raisons d'utiliser des
macros !
Salutations!
"Bernard" <Bernard@discussions.microsoft.com> a écrit dans le message de news:
D8C13EFF-784A-4C7D-A7A3-D5E1851D8E0D@microsoft.com...
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules
sauf de B1 à B4 par exemple.
Je protège la feuille par un mot de passe. On peut écrire uniquement dans
les cellules B1 à B4.
Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le
contenu, rien de spécial.
En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se
verrouillent.
Donc je voudrais savoir comment soit laisser uniquement Edition Effacer
Contenu (en grisant les
autres options d'Edition Effacer) sans supprimer le Menu de base fourni par
Microsoft,
soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les
annuler et ne laisser
passer que le 4ème choix (Contenu).
D'avance merci à tous.
C'est long à écrire mais c'est rapide à mettre en application ...!
Tu peux solutionner ta problématique sans macro en faisant ceci :
A ) Barre des menus / format / Style / Tu saisis "Denis" comme nom pour un nouveau Style B ) Tu décoche toutes les cases à cocher sauf "Protection" C ) À l'aide du bouton modifier de cette fenêtre, tu t'assures que le paramètre "Verrouiller" de l'onglet "Protection" est bien activé (coché) Un clic sur le bouton "Ajouter" pour créer définitivement ce Style. Donc le Style "Denis" devrait contenir seulement l'item "protection" avec la mention "Verrouillée" D ) Tu sélectionnes toutes les cellules de la feuille en utilisant le bouton à l'intersection de l'en-tête ligne et de l'en-tête (coin cellule A1)
E ) Tu affectes à toutes ces cellules le format "Denis" que tu viens de créer. Barre des menus / format / style / "Denis"
F ) Maintenant, tu va modifier le "Style Normal" barre des menus / format / Style / et dans la liste déroulante, tu choisis "normal" et à l'aide du bouton modifier, tu vas aller décocher le paramètre verrouillé de l'onglet "Protection"
G ) Il ne te reste plus qu'à affecter à la plage B1:B4 le style normal ... et le tour est joué. Les cellules B1:B4 vont demeuré non protégé si tu utilises les commandes du sous-menu "Effacer" lorsque ta feuille est verrouillée.
H ) La commande "Supprimer" me semble-t-il ne devrait pas être disponible si ta feuille est verrouillée.
I ) Ce qu'il faut retenir c'est lorsque l'on supprime tout le contenu et format d'une cellule, cette dernière affiche les caractéristiques du Style "normal" et comme nous avons modifié ce style ... il n'y a plus de raisons d'utiliser des macros !
Salutations!
"Bernard" a écrit dans le message de news:
Bonjour,
voilà le problème : sur une feuille Excel je verrouille toutes les cellules sauf de B1 à B4 par exemple. Je protège la feuille par un mot de passe. On peut écrire uniquement dans les cellules B1 à B4. Rien de plus normal. Je peux aussi, par la touche Suppr en effacer le contenu, rien de spécial. En revanche si je passe par le menu Edition Effacer Tout là, B1 à B4 se verrouillent. Donc je voudrais savoir comment soit laisser uniquement Edition Effacer Contenu (en grisant les autres options d'Edition Effacer) sans supprimer le Menu de base fourni par Microsoft, soit intercepter les 3 choix (Tout, Formats et Commentaires) afin de les annuler et ne laisser passer que le 4ème choix (Contenu). D'avance merci à tous.
Daniel.M
Salut Denis,
Ah! Un bel usage des styles : la grande classe quoi! :-)
Salutations,
Daniel M.
"michdenis" wrote in message news:
Bonjour Bernard,
C'est long à écrire mais c'est rapide à mettre en application ...!
Tu peux solutionner ta problématique sans macro en faisant ceci :
...
I ) Ce qu'il faut retenir c'est lorsque l'on supprime tout le contenu et format d'une cellule, cette dernière affiche
les caractéristiques du Style "normal" et comme nous avons modifié ce style ... il n'y a plus de raisons d'utiliser des
macros !
Salutations!
Salut Denis,
Ah! Un bel usage des styles : la grande classe quoi! :-)
Salutations,
Daniel M.
"michdenis" <michdenis@hotmail.com> wrote in message
news:ubR4Hyy3EHA.2316@TK2MSFTNGP15.phx.gbl...
Bonjour Bernard,
C'est long à écrire mais c'est rapide à mettre en application ...!
Tu peux solutionner ta problématique sans macro en faisant ceci :
...
I ) Ce qu'il faut retenir c'est lorsque l'on supprime tout le contenu et
format d'une cellule, cette dernière affiche
les caractéristiques du Style "normal" et comme nous avons modifié ce style
... il n'y a plus de raisons d'utiliser des
