D
Dan L
Guest
Afin de proteger une feuille et empecher sa fermeture avec la croix en haut a droite, j'ai insere le code suivant dans ThisWorkBook. Seulement, a chaque ouverture de la feuille, celle ci s'ouvre en fenetre reduite et je ne peux donc pas l'ouvrir completement sans deproteger la feuille.Quid????
Private Sub Workbook_Open()
ActiveWorkbook.Protect Structure:=False, Windows:=True, Password:="Mypassword"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Protect Structure:=False, Windows:=False, Password:="MyPassword"
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.Protect Structure:=False, Windows:=True, Password:="Mypassword"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Protect Structure:=False, Windows:=False, Password:="MyPassword"
End Sub