Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End Sub
Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests... sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" a écrit dans le message de news:
4213c8c3$0$2193$bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sontprotégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests... sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4213c8c3$0$2193$8fcfb975@news.wanadoo.fr...
bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End Sub
Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests... sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" a écrit dans le message de news:
4213c8c3$0$2193$bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sontprotégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" a écrit dans le message de news:
421476dd$0$19407$
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
421476dd$0$19407$8fcfb975@news.wanadoo.fr...
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" a écrit dans le message de news:
421476dd$0$19407$
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests...
sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot
de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur
sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille
n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" a écrit dans le message de news:
4213c8c3$0$2193$bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sontprotégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests...
sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot
de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur
sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille
n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4213c8c3$0$2193$8fcfb975@news.wanadoo.fr...
bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End Sub
Allo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection
(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sont
protégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+Re-bonjour,
Merci pour ton aide.
J'ai insérer la procédure et tout se passe bien lors de mes tests...
sauf
que lorsque la fenêtre de Protéger la feuille (où je dois entrer le mot
de
passe) est ouverte, il y a l'option OK ou Annuler. Si j'entre le mot de
passe et que je fais OK, tout va bien. Sauf que j'ai appuyé par erreur
sur
Annuler et surprise : le classeur se ferme, Excel aussi et la feuille
n'est
pas protégé. Qu'est-ce que je peux faire ?
merci.
"anonymousA" a écrit dans le message de news:
4213c8c3$0$2193$bonjour,
Insertion au passage de l'obligation de proteger le classeur.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Unprotect ""
Do While ThisWorkbook.ProtectStructure = False
MsgBox "Vous devez proteger ce classeur avant fermeture"
Application.CommandBars.FindControl(ID:4).Execute
ThisWorkbook.Unprotect ""
Loop
Err.Clear
For I = 1 To Sheets.Count
If Sheets(I).ProtectContents = False Then
Sheets(I).Activate
Application.CommandBars.FindControl(ID:3).Execute
End If
Next
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
End SubAllo à tout le monde !
Voici ma question :
Dans un classeur à plusieurs feuilles, chaque feuille ayant une
protection(protéger la feuille) avec mot de passe, peut-on à l'aide d'une macro
vérifier à la fermeture du fichier si toutes les feuilles du classeur
sontprotégées ? Si une ou l'autre ne l'est pas, "forcer" l'utilisateur à
ré-appliquer le mot de passe à chaque feuille.
Merci à l'avance pour votre aide.
Caroline
Bonjour Alain,
j'ai ajouté la ligne manquante et voilà, tout est résolu : il est maintenant
impossible de sortir du classeur dans protéger toutes les feuilles.
Mais dit-moi donc pour que je comprenne : qu'est-ce que la ligne suivante
fait : Err.Clear
Gros merci à toi de ta collaboration.
Bonne journée.
"Alain CROS" a écrit dans le message de news:Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" a écrit dans le message de news:
421476dd$0$19407$re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Bonjour Alain,
j'ai ajouté la ligne manquante et voilà, tout est résolu : il est maintenant
impossible de sortir du classeur dans protéger toutes les feuilles.
Mais dit-moi donc pour que je comprenne : qu'est-ce que la ligne suivante
fait : Err.Clear
Gros merci à toi de ta collaboration.
Bonne journée.
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
O3LrEjPFFHA.3908@TK2MSFTNGP12.phx.gbl...
Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
421476dd$0$19407$8fcfb975@news.wanadoo.fr...
re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+
Bonjour Alain,
j'ai ajouté la ligne manquante et voilà, tout est résolu : il est maintenant
impossible de sortir du classeur dans protéger toutes les feuilles.
Mais dit-moi donc pour que je comprenne : qu'est-ce que la ligne suivante
fait : Err.Clear
Gros merci à toi de ta collaboration.
Bonne journée.
"Alain CROS" a écrit dans le message de news:Bonjour.
Il manque une ligne.
For I = 1 To Sheets.Count
Err.Clear
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"Cancel = True
Exit Sub
End If
Next
Alain CROS
"anonymousA" a écrit dans le message de news:
421476dd$0$19407$re,
ne vois pas où est ton problème . Je refais la manip que tu m'annonces
et le fichier ne se ferme pas et le programme t'envoie eun message pour
te dire qu'une feuille au moins n'est pas protégée. C'est d'ailleurs
tout l'objet des instructions
For I = 1 To Sheets.Count
Sheets(I).Activate
ActiveSheet.Unprotect ""
If Err.Number = 0 Then
MsgBox "Vous devez proteger les feuilles. Au moins l'une d'entre
elles pose un problème"
Cancel = True
Exit Sub
End If
Next
Donne plus de détails
A+