Protection feuille

[Dan L]

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

 

[Fred]

Slt, modifie comme ca:

Private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
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

 

[Dan L]

J'ai changer le code mais c'est toujours la meme chose, je ne comprend vraiment pas!

 

[Fred]

oups, j'avais pa vu un truc essaye ca:

Private Sub Workbook_Open()
ActiveWorkbook.Unprotect Password:="Mypassword"
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
ActiveWorkbook.Protect Structure:=False, Windows:=True, Password:="Mypassword"
End Sub

juste avec ça, c'est bon

 

[Dan L]

Maintenant ca fonctionne,mais est apparu querlquechose de tres etrange!!!!!dans mon tableau Excel ne cacule plus le resultat de mes formules!Les cases rerstent blanches.....meme avec F9 (calcul manuel!