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 Protéger la feuille sauf un palge

Protéger la feuille sauf un palge

17 réponses
Avatar
Guy72
Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en laissant une
plage libre ?
Cordialement
Guy
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
1 2
Avatar
JB
Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format (X /
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en lais sant
une
plage libre ?
Cordialement
Guy








Avatar
Guy72
Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy








Avatar
JB
1/Il faut enlever le verrouillage sur les cellules bleues:
Format/Cellules/Protection

2/En faisant Outils/Protection/protéger la feuille, il faut cocher
l'option :Modifier les objets.

JB

Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Form at(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy










Avatar
JB
Autre solution:

Sheets("sudoku1").Unprotect Password:=""
Sheets("Sudoku1").Shapes("MonChrono").TextFrame.Characters.Text =
Format(X / 24, "hh:mm:ss")
Sheets("sudoku1").Protect Password:=""

JB


Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text = Form at(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy










Avatar
Guy72
Je fais ça depuis des heures et j'ai toujours le même résultat.
Je déverrouille les cellules C3:AU47
Dès que je fais : Outils/Protection/protéger la feuille, je coche
l'option :Modifier les objets et je d'écoche les deux autres et après j'ai
le message suivant :
"Impossible de définir la propriété Text de la classe Characters"
Et ça met en jaune la ligne:
Sheets("Sudoku1").Shapes("MonChrono").TextFrame.Characters.Text = Format(X /
24, "hh:mm:ss")
Cordialement
Guy

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

1/Il faut enlever le verrouillage sur les cellules bleues:
Format/Cellules/Protection

2/En faisant Outils/Protection/protéger la feuille, il faut cocher
l'option :Modifier les objets.

JB

Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text =
Format(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy










Avatar
Guy72
Merci de ton aide, apparemment ça a l'air d'aller mieux mais je n'arrive
plus à faire fonctionner la macro RAZ.
Je vais regarder demain matin.
Encore merci et à demain.
Cordialement
Guy

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

Autre solution:

Sheets("sudoku1").Unprotect Password:=""
Sheets("Sudoku1").Shapes("MonChrono").TextFrame.Characters.Text Format(X / 24, "hh:mm:ss")
Sheets("sudoku1").Protect Password:=""

JB


Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text =
Format(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy










Avatar
Guy72
Bonjour JB
Avec cette solution, je peux inscrire les chiffres dans les cases bleues et
grises.
Par contre je ne peux pas faire un copier/coller (exemple : les cellules
BC34 à BK34 et BC36 BK36).
Et aussi quand je fais "Effacement" (ce qui correspond à la macro "RAZ") le
chronomètre ne ce met pas à 0.
Cordialement
Guy


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

Autre solution:

Sheets("sudoku1").Unprotect Password:=""
Sheets("Sudoku1").Shapes("MonChrono").TextFrame.Characters.Text Format(X / 24, "hh:mm:ss")
Sheets("sudoku1").Protect Password:=""

JB


Je t'ai envoyé mon fichier à l'adresse ci-dessous.
Cordialement
Guy

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

Bonsoir,

Supprime le Shape et remplace l'instruction par:

Sheets("Chrono").[C1] = Format(temp / 24, "hh:mm:ss")

http://cjoint.com/?llty4DtuWJ

OU

Met ton fichier en PJ dans ma BL si tu as un pb..

JB

Bonsoir JB
J'ai mis le texte.
Mais j'ai le même problème, pas sur ton fichier mais sur le mien.
"Impossible de définir la propriété Text de la classe Characters"
Sheets("Feuil1").Shapes("MonChrono").TextFrame.Characters.Text =
Format(X
/
24, "hh:mm:ss").
Cordialement
Guy

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

Bonsoir,

Attention, il y a les cellules modifiées par VbA qu'il faut
déverrouiller.

ou protéger la feuille avec :

Sub auto_open() ' ou workbook_open
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="xxxx"
End Sub

http://cjoint.com/?lkuGgcODJE

JB



bonjour Guy,

oui,
sélectionne toutes les cellules, mettre au format vérouillé
sélectionner la plage, mettre au format déverrouillé
protéger la feuille.

isabelle


Bonjour à tous
Est-il possible de protéger un classeur ou une feuille tout en
laissant
une
plage libre ?
Cordialement
Guy










1 2