appliquer EnableSelection = xlUnlockedCells à tous les onglets

Le
Sunburn
Bonjour,
j'ai une macro pour protéger tous mes onglets. comment préciser, pour tous
les onglets "EnableSelection = xlUnlockedCells", et non pas pour l'onglet
actif ?
yann
-
' Protection automatique de toutes les feuilles d'un classeur
Sub PROTEGERFEUILLES()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
Worksheets(I).Protect , DrawingObjects:=True ', UserInterfaceOnly:=True
Active.Worksheets.EnableSelection = xlUnlockedCells
Next I
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17526821
bonjour Sunburn,

Sub PROTEGERFEUILLES()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
With Worksheets(I)
.Protect , DrawingObjects:=True ', UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
Next I
End Sub

isabelle

Sunburn a écrit :
Bonjour,
j'ai une macro pour protéger tous mes onglets. comment préciser, pour tous
les onglets "EnableSelection = xlUnlockedCells", et non pas pour l'onglet
actif ?
yann
-------
' Protection automatique de toutes les feuilles d'un classeur
Sub PROTEGERFEUILLES()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
Worksheets(I).Protect , DrawingObjects:=True ', UserInterfaceOnly:=True
Active.Worksheets.EnableSelection = xlUnlockedCells
Next I
End Sub
---------


Sunburn
Le #17526771
Merci isabelle, ça fonctionne.
Par contre, il n'y a qu'un .
Merci beaucoup.
YANN

"isabelle" a écrit :

bonjour Sunburn,

Sub PROTEGERFEUILLES()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For I = 1 To nombre
With Worksheets(I)
..Protect , DrawingObjects:=True ', UserInterfaceOnly:=True
..EnableSelection = xlUnlockedCells
End With
Next I
End Sub

isabelle

Sunburn a écrit :
> Bonjour,
> j'ai une macro pour protéger tous mes onglets. comment préciser, pour tous
> les onglets "EnableSelection = xlUnlockedCells", et non pas pour l'onglet
> actif ?
> yann
> -------
> ' Protection automatique de toutes les feuilles d'un classeur
> Sub PROTEGERFEUILLES()
> Dim nombre As Integer
> nombre = ActiveWorkbook.Sheets.Count
> Application.ScreenUpdating = False
> For I = 1 To nombre
> Worksheets(I).Protect , DrawingObjects:=True ', UserInterfaceOnly:=True
> Active.Worksheets.EnableSelection = xlUnlockedCells
> Next I
> End Sub
> ---------



Publicité
Poster une réponse
Anonyme