cacher une colonne + protection

[bibou1212]

Bonjour le forum

j'ai un gros problème; j'ai une macro qui me cache des cellules à certaines conditions avec ce code là:

Select Case Sheets("Presentation").Range("G35")
Case 1
Sheets("Production").Columns("D:E").Hidden = True
Case 2
Sheets("Production").Columns("E").Hidden = True
Sheets("Production").Columns("D").Hidden = False
Case 3
Sheets("Production").Columns("E").Hidden = False
Sheets("Production").Columns("D").Hidden = True
Case 4
Sheets("Production").Columns("D:E").Hidden = False
End Select

Mais c'est une feuille que je doit protéger et lorsque je protège la feuille la macro ne marche plus elle ne veut plus masquer ces collones et ça plante le programme.

 

[pierrejean]

Re : cacher une colonne + protection

bonjour bibou1212

apres avoir adapté (le password) teste

Sheets("Production").Unprotect Password := "drowssap"
Select Case Sheets("Presentation").Range("G35")
Case 1
Sheets("Production").Columns("D:E").Hidden = True
Case 2
Sheets("Production").Columns("E").Hidden = True
Sheets("Production").Columns("D").Hidden = False
Case 3
Sheets("Production").Columns("E").Hidden = False
Sheets("Production").Columns("D").Hidden = True
Case 4
Sheets("Production").Columns("D:E").Hidden = False
End Select
Sheets("Production").Protect Password := "drowssap"

 

[bibou1212]

Re : cacher une colonne + protection

Merci encore une fois Pierre Jean

ça marche super bien

Merci