-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." <marc.barruel@alacatel.fr> a écrit dans le
message de news:10b701c393e6$3078f360$a101280a@phx.gbl...
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." <marc.barruel@alacatel.fr> a écrit dans le
message de news:10b701c393e6$3078f360$a101280a@phx.gbl...
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." a
écrit dans le message de
news:0b1501c3994b$dce52eb0$
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autreque celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." <anonymous@discussions.microsoft.com> a
écrit dans le message de
news:0b1501c3994b$dce52eb0$a101280a@phx.gbl...
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autre
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." <marc.barruel@alacatel.fr> a écrit dans le
message de news:10b701c393e6$3078f360$a101280a@phx.gbl...
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." a
écrit dans le message de
news:0b1501c3994b$dce52eb0$
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autreque celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." a
écrit dans le message de
news:0b1501c3994b$dce52eb0$
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autreque celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." <anonymous@discussions.microsoft.com> a
écrit dans le message de
news:0b1501c3994b$dce52eb0$a101280a@phx.gbl...
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc
-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autre
que celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.
Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." <marc.barruel@alacatel.fr> a écrit dans le
message de news:10b701c393e6$3078f360$a101280a@phx.gbl...
Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.
-----Message d'origine-----
Bonjour Marc,
DAns le module feuille où l'action se déroule, copie
ceci :
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "Toto"
End If
End Sub
'-------------------------
Salutations!
"Marc de N." a
écrit dans le message de
news:0b1501c3994b$dce52eb0$
Bonjour Denis
Le fonctionnement de la protection Unprotec et Protect le
mot de passe entre " " cela fonctionne.
Mon Pb reste comment déprotéger la feuille après un retour
d'affichage dans mon programme en ayant la feuille
déprotéger
------------
Private Sub CommandButton3_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
.Unprotect "Toto" ' ôter la protection
Application.DisplayAlerts = False
SendKeys "%DG"
.Protect "Toto" 'Mettre la protection
Application.DisplayAlerts = False
End With
ActiveWorkbook.Unprotect "Toto" ' pour déprotéger le
feuille pour la suite du programme, cela ne fonctionne
pas.
End Sub
-------------------
L'aide pour « feuillecellules, les objets, scénario » sur
Excel 98 je ne l'ai pas trouvé !
Merci de ton aide à plus
Slts
Marc-----Message d'origine-----
Bonjour Marc,
".Unprotect Toto "
Le mot de passe "Toto" doit être saisi obligatoirement
ente guillemets... c'est du texte.
Il en va de soi, lorsque tu utilises la méthode
Protect .... le mot de passe doit être saisi entre
guillemets.
Si la méthode "Unprotect" ne fonctionne pas... c'est
probablement que ta feuille est protégée par un mot de
passe autreque celui définit dans la procédure. As-tu essayé de
déprotéger ta feuille manuellement ? Est-ce que cela
fonctionne ?
Concernant la méthode "Protect" , regarde dans l'aide,
les éléments de la feuille que tu veux protéger.Le contenu de la feuille(cellules), les objets,
scénario.... l'aide d'excel te donne des exemples sur le
sujet...
Salutations!
"Marc dd N." a écrit dans le
message de news:10b701c393e6$3078f360$Bonjour à Toutes et à Tous
Denis m'a indiqué cela
-------------------------------
Private Sub CommandButton2_Click
With WorksheetsNomDeLaFeuille
.Activate
.Unprotect Toto ' oter la protection
..[A1].Select
Application.DisplayAlerts = False
SendKeys %DG
Application.DisplayAlerts = False
.Protect 'Toto mettre la protection
End With
End Sub
-----------------------------------
Cela affiche bien la grille lors de la première commande.
Lorsque je ferme la grille, la feuille reste protégée.
Lorsque je fais une nouvelle commande le message apparaît
"La méthode Unprotect de la classe Worksheets a échoué"
La ligne .Unprotect . . . je n'ai pas l'impression quelle
fonctionne !
Je suis en Excel 97. J'ai modifié suivant
----------------------------
Private Sub CommandButton2_Click()
Cells.Select
ActiveSheet.Unprotect
With Worksheets("NomDeLaFeuille")
.Activate
' .Unprotect 'Toto ' oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto ' mettre la protection
End With
End Sub
---------------------------------
Là cela fonctionne
Comment dois-je procéder pour quitter la grille et
déprotéger la feuille dans la même opération.
Cela est un impératif pour la suite des avènements.
Merci de votre aide
Slts
Marc
.
.