protection feuille

[Isabelle]

Salut, j'ai laissé un message sur ce forum à propos de la protection de feuilles excel il y a pas longtemps.

j'ai eu comme réponse qu'il fallait enlever la protection en début d'instruction et la remettre à la fin pour pouvoir appliquer des macros propres à la feuille:
Voici mon code inséré dans la feuil1:

Private Sub TextBox11_LostFocus()
'Application.ScreenUpdating = False
'Worksheets("feuil1").Unprotect password:="hello"
Sheets("feuil1").Range("B18") = Sheets("feuil2").TextBox11.Value
'Worksheets("feuil1").Protect password:="hello"
End Sub

Le problème c'est qu'excel n'arrête pas de planter à chaque fois que je vais de textbox en textbox car en effet j'ai plusieurs fois ce code pour une quinzaine de textbox.Peut-être que c'est trop lourd????

Savez vous comment résoudre ce problème?

 

[Isabelle]

J'ai eu ma réponse:

Voilà le code possible à utiliser:

Private Sub Workbook_Open()

'pour tous les feuilles de calcul du classeur:
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect Contents:=True, UserInterfaceOnly:=True
'Avec Mot de passe
'Sh.Protect password:="toto", Contents:=True, UserInterfaceOnly:=True
Next
Set Sh = Nothing

'Si c'est seulement pour une feuille :
'Worksheets("NomDeLaFeuille").Protect Contents:=True, UserInterfaceOnly:=True

End Sub