Re : Protection de feuille
Merci à tous pour vos precision, j'ai reussi a faire ce que je souhaite a 50%.
J'arrive a faire dérouler mes feuilles sans message d'erreur. Lorsque je verifies si mes cellules sont protégées après la copie, ça marche
en revanche, des que je tape quelque valeur que se soit dans n'importe qu'elle cellule, ça déprotege automatiquement la feuille. (sans avoir a rentrer le mdp...ce que je trouve bizarre...)
Voila le code, peut être y a t'il quelque chose qui cloche dedans?
Je veux donc pouvoir inserer des données dans les cellules de la feuille sans que celle ci ne se déprotège :
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Menu Principal").Unprotect "toto"
If Not Target.Address = "$B$1" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Formulaire = CStr(Range("k1"))
Sheets(Formulaire).Range("b1:Z500").Copy
Range("b4").PasteSpecial xlPasteAll
Range("B1").Select
Application.CutCopyMode = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("Menu Principal").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
End Sub