1. j'ai un fichier qui comporte plus de 15 feuilles et je=20
voudrais bien les prot=E9ger.
Seulement lorsque je s=E9lectionne toutes les onglets, ils=20
me bloquent l'option de protection.
Existe-il un moyen rapide? une macro ou qqch du genre?
2. Sinon je cherche aussi un moyen de d=E9prot=E9ger un=20
fichier au moment de l'ex=E9cution d'une macro et de=20
remettre la protection =E0 la fin de cette ex=E9cution.
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
papou
Bonjour 1. Sub protegelesfeuilles() Dim F As Worksheet For Each F In ThisWorkbook.Worksheets F.Protect 'voir les options éventuelles Next F End Sub 2. Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Tester.xls", Password:="Lemotdepasse"
Cordialement Pascal
"seb" a écrit dans le message de news:68e501c493e7$33b9a770$ hello,
1. j'ai un fichier qui comporte plus de 15 feuilles et je voudrais bien les protéger.
Seulement lorsque je sélectionne toutes les onglets, ils me bloquent l'option de protection.
Existe-il un moyen rapide? une macro ou qqch du genre?
2. Sinon je cherche aussi un moyen de déprotéger un fichier au moment de l'exécution d'une macro et de remettre la protection à la fin de cette exécution.
merci pour votre aide,
Sébastien
PS: xl2k
Bonjour
1.
Sub protegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Protect 'voir les options éventuelles
Next F
End Sub
2.
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator &
"Tester.xls", Password:="Lemotdepasse"
Cordialement
Pascal
"seb" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:68e501c493e7$33b9a770$a501280a@phx.gbl...
hello,
1. j'ai un fichier qui comporte plus de 15 feuilles et je
voudrais bien les protéger.
Seulement lorsque je sélectionne toutes les onglets, ils
me bloquent l'option de protection.
Existe-il un moyen rapide? une macro ou qqch du genre?
2. Sinon je cherche aussi un moyen de déprotéger un
fichier au moment de l'exécution d'une macro et de
remettre la protection à la fin de cette exécution.
Bonjour 1. Sub protegelesfeuilles() Dim F As Worksheet For Each F In ThisWorkbook.Worksheets F.Protect 'voir les options éventuelles Next F End Sub 2. Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Tester.xls", Password:="Lemotdepasse"
Cordialement Pascal
"seb" a écrit dans le message de news:68e501c493e7$33b9a770$ hello,
1. j'ai un fichier qui comporte plus de 15 feuilles et je voudrais bien les protéger.
Seulement lorsque je sélectionne toutes les onglets, ils me bloquent l'option de protection.
Existe-il un moyen rapide? une macro ou qqch du genre?
2. Sinon je cherche aussi un moyen de déprotéger un fichier au moment de l'exécution d'une macro et de remettre la protection à la fin de cette exécution.
