feuille proteger

[Dennnisss]

Bonsoir a tous

Dans mon probleme j'ai 18 feuille a l'ouverture avant de commencer le trie de ces feuilles , ces feuilles sont tous proteger pour ne pas detruire les formules quelles contient alors j'ai une macro d'ouverture avec Array et dans ma macro sur le next i je lui propose de debarrer cette feuille avec ce que j,ai ecrit il ne le fait pas alors j'aurais besoin de vous svp. Dans la boucle For i

merci de votre aide et attend votre suggestion , encore une fois merci

dennnisss 🙂 🙂

'***********Ouverture des feuilles cachees***************

Feuille = Array("Verificateur Patterson", "Classement Reg Temp", "Deux pour un", _
"Maître", "Classement Reg", "Calendrier", "Triage", "1 à 120", "Homme Reg Temp", _
"Verificateur Regulier", "Homme Reg", "Femme Reg Temp", "Femme Reg", "Homme Sub Temp", "Homme Sub", _
"Femme Sub Temp", "Femme Sub", "Battre Moyenne Gelee", "Battre Moyenne Semaine")

For i = 0 To 18
Sheets(Feuille(i)).Visible = True
ActiveSheet.Select
ActiveSheet.Unprotect Password:="dennnisss"
Next i

 

[Greiche]

Re : feuille proteger

Bonjour le forum

Regarde du côté de UserInterfaceOnly

 

[Luki]

Re : feuille proteger

Bonjour Denisss, Greiche

Sheets(Feuille(i)).Visible = True : ce code affiche une feuille masquée mais ne l'active pas pour autant. Dans ta boucle, tu déprotèges en fait toujours la même feuille.

Si tu veux agir sur la feuille active, dans ta boucle il faudrait écrire :
Sheets(Feuille(i)).Activate
ActiveSheet.Unprotect 'Password:="dennnisss"

Mais je ne vois guère l'intérêt de ralentir le code avec un activate alors que ceci suffirait :
Sheets(Feuille(i)).Unprotect Password:="dennnisss"

bonne journée

 

[Dennnisss]

Re : feuille proteger

merci a Greiche et Luki

J,ai bien prit note de vos suggestion et je suis presentement a essayer vos code

alors passer une bonne journee et merci beaucoup de votre aide , elle est tres apprecie

bonne journee dennnisss 🙂🙂