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 la suppression d'une forme automatique

empecher la suppression d'une forme automatique

7 réponses
Avatar
legege
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege
Signaler un problème avec ce contenu

7 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
JB
Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être suppri mées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege


Avatar
legege
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes restent
accessibles pour pouvoir être bougées par les boutons prévus à cet effet.
si quelqu'un a une autre idée, je prends !

à plus
legege


Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege







Avatar
JB
Bonjour,

Ces boutons doivent activer des macros. Il faut désactiver la
protection en début de macro et la réactiver en fin de macro.

Sheets(1).Unprotect Password:="xxx"
....
Sheets(1).Protect Password:="xxx"

JB

On 31 mai, 08:54, legege wrote:
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes rest ent
accessibles pour pouvoir être bougées par les boutons prévus à ce t effet.
si quelqu'un a une autre idée, je prends !

à plus
legege




Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de bouto ns
programmés, mais le problème est que ces formes peuvent être su pprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
legege
Re,

désolé, mais ce n'est pas la solution !
je vais essayer d'être plus clair : j'ai des formes que je dois pouvoir
sélectionner, puis je clique sur un bouton pour pouvoir faire bouger cette
forme dans une direction prévue par ce bouton.
de ce fait je ne peux pas protéger la feuille sinon la forme devient
inaccessible.

à plus pour une autre idée !


Bonjour,

Ces boutons doivent activer des macros. Il faut désactiver la
protection en début de macro et la réactiver en fin de macro.

Sheets(1).Unprotect Password:="xxx"
.....
Sheets(1).Protect Password:="xxx"

JB

On 31 mai, 08:54, legege wrote:
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes restent
accessibles pour pouvoir être bougées par les boutons prévus à cet effet.
si quelqu'un a une autre idée, je prends !

à plus
legege




Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
MichDenis
Tu protèges la feuille de cette façon, seules les objets
dans la feuille sont inaccessibles.

Mot de passe : "toto"
Worksheets("Feuil1").Protect "toto", True

Quand tu veux déplacer ces formes à l'aide de tes macros
actionnées par tes boutons sur la feuille, tu insères au début
de la macro :

Worksheets("Feuil1").UnProtect "toto"

et à la fin de la macro ceci pour que tes objets
de la feuille demeure protéger.

Worksheets("Feuil1").Protect "toto", True



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

Re,

désolé, mais ce n'est pas la solution !
je vais essayer d'être plus clair : j'ai des formes que je dois pouvoir
sélectionner, puis je clique sur un bouton pour pouvoir faire bouger cette
forme dans une direction prévue par ce bouton.
de ce fait je ne peux pas protéger la feuille sinon la forme devient
inaccessible.

à plus pour une autre idée !


Bonjour,

Ces boutons doivent activer des macros. Il faut désactiver la
protection en début de macro et la réactiver en fin de macro.

Sheets(1).Unprotect Password:="xxx"
.....
Sheets(1).Protect Password:="xxx"

JB

On 31 mai, 08:54, legege wrote:
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes restent
accessibles pour pouvoir être bougées par les boutons prévus à cet effet.
si quelqu'un a une autre idée, je prends !

à plus
legege




Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
JB
Désactivation de la touche Sup. On peut aussi désactiver Edition/
Effacer,Clic-droit,...

Sub auto_open()
Application.OnKey "{del}", "maproc"
End Sub

Sub maproc()
If TypeName(Selection) = "Rectangle" Then
MsgBox "Interdit"
End If
If TypeName(Selection) = "Range" Then
Selection.ClearContents
End If
End Sub

Sub auto_close()
Application.OnKey "{del}", ""
End Sub

http://cjoint.com/?fFsFHeaU1A

JB


On 31 mai, 16:51, legege wrote:
Re,

désolé, mais ce n'est pas la solution !
je vais essayer d'être plus clair : j'ai des formes que je dois pouvoir
sélectionner, puis je clique sur un bouton pour pouvoir faire bouger ce tte
forme dans une direction prévue par ce bouton.
de ce fait je ne peux pas protéger la feuille sinon la forme devient
inaccessible.

à plus pour une autre idée !




Bonjour,

Ces boutons doivent activer des macros. Il faut désactiver la
protection en début de macro et la réactiver en fin de macro.

Sheets(1).Unprotect Password:="xxx"
.....
Sheets(1).Protect Password:="xxx"

JB

On 31 mai, 08:54, legege wrote:
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes restent
accessibles pour pouvoir être bougées par les boutons prévus à cet effet.
si quelqu'un a une autre idée, je prends !

à plus
legege




Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de b outons
programmés, mais le problème est que ces formes peuvent êtr e supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilit é de
suppression ?
d'avance merci

legege- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -






Avatar
legege
Bonjour,

merci JB, c'est parfait, c'est ce que je voulais !!

legege


Désactivation de la touche Sup. On peut aussi désactiver Edition/
Effacer,Clic-droit,...

Sub auto_open()
Application.OnKey "{del}", "maproc"
End Sub

Sub maproc()
If TypeName(Selection) = "Rectangle" Then
MsgBox "Interdit"
End If
If TypeName(Selection) = "Range" Then
Selection.ClearContents
End If
End Sub

Sub auto_close()
Application.OnKey "{del}", ""
End Sub

http://cjoint.com/?fFsFHeaU1A

JB


On 31 mai, 16:51, legege wrote:
Re,

désolé, mais ce n'est pas la solution !
je vais essayer d'être plus clair : j'ai des formes que je dois pouvoir
sélectionner, puis je clique sur un bouton pour pouvoir faire bouger cette
forme dans une direction prévue par ce bouton.
de ce fait je ne peux pas protéger la feuille sinon la forme devient
inaccessible.

à plus pour une autre idée !




Bonjour,

Ces boutons doivent activer des macros. Il faut désactiver la
protection en début de macro et la réactiver en fin de macro.

Sheets(1).Unprotect Password:="xxx"
.....
Sheets(1).Protect Password:="xxx"

JB

On 31 mai, 08:54, legege wrote:
Bonjour,

malheureusement ce n'est pas la solution, car il faut que ces formes restent
accessibles pour pouvoir être bougées par les boutons prévus à cet effet.
si quelqu'un a une autre idée, je prends !

à plus
legege




Bonjour,

Outils/Protection/Protéger la feuille.

JB

On 30 mai, 16:57, legege wrote:
Bonjour à tous et à toutes !

j'ai des formes automatiques que je peux deplacer à l'aide de boutons
programmés, mais le problème est que ces formes peuvent être supprimées : ce
que je ne veux pas. comment faire pour empecher cette possibilité de
suppression ?
d'avance merci

legege- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -