Protéger une feuille automatiquement

Bonjour à tous.

Je bute sur un problème qui, je pense, n'est pas si compliqué. Mais voila, la solution m'échappe!

j'aimerai: -protéger un feuille avec un mot de passe

-que ce mot de passe soit demandé quand on essaye de modifier les cellules de la feuille

-et qu'il soit automatiquement remit à la fermeture du fichier

La fonction de protection (outils/protection) m'irait mais il faut remettre le mot de passe à chaque fermeture. J'aimerai que cela soit automatique.

Merci d'avance

Salut le forum

Code à mettre dans ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Byte
  For Sh = 1 To Worksheets.Count
    Worksheets(Sh).Protect "Mot de passe"
  Next Sh
End Sub

Mytå

Super, ça fonctionne à merveille!

Merci beaucoup!!!!!!!!!!!