probleme macro et protection feuille

[manfredi973]

Bonjour à tous,
je vous sollicite une nouvelle fois pour un soucis de protection de feuilles et utilisation des macros
j'ai protégé la feuille "Sal + Hrs supp.2014" sauf les cellules B14: B22 , mais je ne peux plus utiliser
les macros

j'ai mis dans workbook

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Dim sh As Worksheet
For Each Wk In Worksheets(Array("BASE"))
Wk.Activate
Wk.Protect Password:="motdepasse", UserInterfaceOnly:=True
Next Wk
Sheets("Sal + Hrs supp.2014").Select
Application.ScreenUpdating = True

End Sub

mais ca ne fonctionne pas
si quelqu'un pouvais me donner un coup de main , ce serait sympa
merci a tous et bonne journée
manfredi

 

[camarchepas]

Re : probleme macro et protection feuille

Bonjour ,

Voici une petite modification à apporter et ça va mieux

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Dim sh As Worksheet
For Each Wk In Worksheets(Array("BASE", "Sal + Hrs supp.2014"))
    Wk.Activate
    Wk.Protect Password:="motdepasse", UserInterfaceOnly:=True
Next Wk
Sheets("Sal + Hrs supp.2014").Select
Application.ScreenUpdating = True

End Sub

 

[manfredi973]

Re : probleme macro et protection feuille

Bonjour ,

Voici une petite modification à apporter et ça va mieux

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Dim sh As Worksheet
For Each Wk In Worksheets(Array("BASE", "Sal + Hrs supp.2014"))
    Wk.Activate
    Wk.Protect Password:="motdepasse", UserInterfaceOnly:=True
Next Wk
Sheets("Sal + Hrs supp.2014").Select
Application.ScreenUpdating = True

End Sub

bonjour à toi camarchepas,
en effet apres modif camarchemieux.
je te remercie pour toute l'aide que tu m'as apporté , ce qui m'a permis de comprendre un peu le vba

bonne journée a toi
manfredi