Protéger plusieurs feuilles en même temps
Résolu
Linda
-
Linda -
Linda -
Bonjour,
Je fais une macro pour protéger plusieurs feuilles d'un classeur en même temps. Je l'ai faite en faisant du copier-coller pour les feuilles suivantes. Il y a d'autres feuilles dans ce classeur qui ne doivent pas être protégée.
Ma macro est la suivante:
Sub Macro1protéger6()
'
' Macro1protéger6 Macro
' Protéger certaines feuilles
'
'
Sheets("(1-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(2-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(3-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(4-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(5-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(6-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(7-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(8-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(9-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(10-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
J'aimerais une façon plus simple de l'écrire, mais je ne trouve pas sur le forum. Je n'ai pas besoin de mettre un mot de passe.
Merci.
Je fais une macro pour protéger plusieurs feuilles d'un classeur en même temps. Je l'ai faite en faisant du copier-coller pour les feuilles suivantes. Il y a d'autres feuilles dans ce classeur qui ne doivent pas être protégée.
Ma macro est la suivante:
Sub Macro1protéger6()
'
' Macro1protéger6 Macro
' Protéger certaines feuilles
'
'
Sheets("(1-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(2-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(3-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(4-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(5-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(6-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(7-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(8-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(9-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(10-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
J'aimerais une façon plus simple de l'écrire, mais je ne trouve pas sur le forum. Je n'ai pas besoin de mettre un mot de passe.
Merci.
A voir également:
- Comment protéger plusieurs feuilles excel en même temps
- Renommer plusieurs fichiers en même temps - Guide
- Excel trier plusieurs colonnes en même temps - Guide
- Proteger cellule excel - Guide
- Liste déroulante excel - Guide
- Comment faire un livret avec des feuilles a4 - Guide
7 réponses
Re,
comme tu veux, sinon tu pouvais écrire le code comme cela (tu protèges toutes les feuilles et tu déprotèges que trois feuilles nommées Feuil1, Feuil3 et Feuil5
ou tu pouvais faire l'inverse tu déprotégeais tous le classeur et reprotégeais les trois ou plus
Sub deprotrec()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect
Next
Sheets("Feuil1").Unprotect
Sheets("Feuil3").Unprotect
Sheets("Feuil5").Unprotect
End Sub
comme tu veux, sinon tu pouvais écrire le code comme cela (tu protèges toutes les feuilles et tu déprotèges que trois feuilles nommées Feuil1, Feuil3 et Feuil5
ou tu pouvais faire l'inverse tu déprotégeais tous le classeur et reprotégeais les trois ou plus
Sub deprotrec()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect
Next
Sheets("Feuil1").Unprotect
Sheets("Feuil3").Unprotect
Sheets("Feuil5").Unprotect
End Sub
Je suis très contente de l'aide reçue.
Merci encore,
Linda