Désactiver cellule

[Ozons123]

Bonsoir le forum,

plus pour un aspect esthétique je souheterais à l'appel d'un userform désactiver les cellules de l'ensemble des feuilles.

J'ai essayé cela mais malheureusement il me génère une erreure que je n'arrive pas à corriger.

Sub Essai_macro()
With Worksheets(Array("feuil1", "feuil2")).select
.EnableSelection = xlUnlockedCells
.Protect
End With
Userform1.Show
End Sub

Maintenant si je fais :

Sub Essai_macro()
With sheets("feuil1")
.EnableSelection = xlUnlockedCells
.Protect
End With
Userform1.Show
End Sub

cela fonctionne. Ce qui veut dire que la commande
With Worksheets(Array("feuil1", "feuil2")).select n'est pas supportée.
Qu'elle est l'astuce ?

Seconde question pour réactiver les cellules je souheterais à partir de ce code lui demander que si la croix du userform est activée (donc fermeture du userfrom) alors tu passes la fonction xlUnlockedCells à xllockedCells


Merci pour tout . Bonne soirée

Ludovic

 

[JeanMarie]

Re : Désactiver cellule

Bonsoir

Je ne sais pas si il y a mieux ?

Sub Essai_macro()
Dim vFeuil As Worksheet
For Each vFeuil In Sheets(Array("feuil1", "feuil2"))
   With vFeuil
      .EnableSelection = xlUnlockedCells
      .Protect
   End With
Next vFeuil
UserForm1.Show
End Sub

@+Jean-Marie

 

[Ozons123]

Re : Désactiver cellule

Bonjour le forum,

merci pour ton aide Jean Marie, tout fonctionne.

Bonne journée Ludovic

 

[Ozons123]

Re : Désactiver cellule

Simplement pour ceux que cela intéresse voici le fichier

Bonne journée Ludovic