Protection feuille dans ThisWorkbook

[Sorsha]

Bonjour à tous 🙂

J ai un souci de protection que je ne m'explique pas alors je viens soumettre aux experts 🙂

Dans le fichier joint, j'ai une ligne dont l'objectif est de proteger la feuille de saisies directes

ActiveSheet.Protect Password:="catalpa3006", UserInterfaceOnly:=True

Au premier enregistrement, pas de souci, tout passe, au second, plus moyen de valider la saisie pour cause de feuille protegée

ca doit etre tout simple mais je suis nullissime en VBA..

Merci à ceux qui prendont le temps de me rendre moins nulle !

 

[Staple1600]

Re : Protection feuille dans ThisWorkbook

Bonsoir à tous

sorsha
Fais ce test dans nouveau un classeur

Sub test()
ActiveSheet.Range("A1").Locked = False
ActiveSheet.Protect Password:="a", UserInterfaceOnly:=True
End Sub

1) Lances la macro ci-dessus
2) Ensuite essaie de saisir une valeur en B1 puis en A1.
Pourquoi cela marche en A1?

Je te laisse répondre à la question 😉

 

[Sorsha]

Re : Protection feuille dans ThisWorkbook

aucune idée

 

[Sorsha]

Re : Protection feuille dans ThisWorkbook

J ai essayé, en passant via les propriétés des cellules de decocher Verrouiller
si on active la protection de la feuille dans VBA, on peut quand meme modifier les cellules
J ai essayé de la recocher, et VBA replante à la deuxieme ligne

C'est bizzare parce que je me sers de la meme ligne sur un autre classeur et ca marche parfaitement... Et les cellules sont cochées verrouillees...

Snif...

 

[Sorsha]

Re : Protection feuille dans ThisWorkbook

Bonjour à Tous 🙂

Après avoir cherché moults solution, je me suis resolue à inserer dans ThisWorkBook
Worksheets("Feuille1").Protect Password:="moi"

puis dans chaque action une ligne
Worksheets("Feuille1").Unprotect Password:="moi"
avant toute autre ligne de commande

et une ligne
Worksheets("Feuille1").protect Password:="moi"
juste avant le end sub

Ca fonctionne mais j'aurai bien voulu savoir pourquoi ma première manip ne fonctionnait pas ...

Bonne journée 🙂