Bonjour tout le monde!
Je profite déjà de remercier tout le forum et les milliers de réponses que j'y ai trouvé et qui m'ont fait progresser en VBA.
Mais voilà, aujourd'hui je ne trouve pas la solution par moi-même.
Mon problème est le suivant.
Je veux, dans une procédure qui se situe dans une macro, faire en sorte que lorsque la macro s'active et que la feuille est protégée, la macro déprotège la feuille, fasse ces petits bidouillages, et re-protège la feuille après.
S'il n'y avait que ça, ça irait, mais:
Il faudrait que la macro, si la feuille n'est pas protégée, ne re-protège pas la feuille.
Donc ma question est la suivante:
Je dois dire au début de la macro un truc du genre:
dim protection as boolean
protection = false
If Worksheets("feuil1").protection = True Then ActiveSheet.Unprotect
protection1 = True
End If
Et à la fin un truc comme:
If protection1 = True Then Worksheets("feuil1").Protect
J'ai mis en jaune ce qui, vous vous en doutez bien, me reviens comme message d'erreur. Je ne sais pas comment écrire ce critère et s'il existe!
L'aide (F1) me renvoie des AllowInsertingColumns etc. alors que ce que je veux savoir c'est juste si la feuille est protégée ou pas.
Merci d'avance
Je profite déjà de remercier tout le forum et les milliers de réponses que j'y ai trouvé et qui m'ont fait progresser en VBA.
Mais voilà, aujourd'hui je ne trouve pas la solution par moi-même.
Mon problème est le suivant.
Je veux, dans une procédure qui se situe dans une macro, faire en sorte que lorsque la macro s'active et que la feuille est protégée, la macro déprotège la feuille, fasse ces petits bidouillages, et re-protège la feuille après.
S'il n'y avait que ça, ça irait, mais:
Il faudrait que la macro, si la feuille n'est pas protégée, ne re-protège pas la feuille.
Donc ma question est la suivante:
Je dois dire au début de la macro un truc du genre:
dim protection as boolean
protection = false
If Worksheets("feuil1").protection = True Then ActiveSheet.Unprotect
protection1 = True
End If
Et à la fin un truc comme:
If protection1 = True Then Worksheets("feuil1").Protect
J'ai mis en jaune ce qui, vous vous en doutez bien, me reviens comme message d'erreur. Je ne sais pas comment écrire ce critère et s'il existe!
L'aide (F1) me renvoie des AllowInsertingColumns etc. alors que ce que je veux savoir c'est juste si la feuille est protégée ou pas.
Merci d'avance