VBA : Verouillage-deverouillage

lixil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
scinarf Messages postés 1119 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Comment faire pour avoir ma feuille verrouiller lorsque CheckBox1 est true et qu'elle soit déverrouillée lorsque CheckBox1 est false?

j'ai fait :
If Sheets("feuil1").CheckBox1 = true Then
sheets("feuil1").protect
else
sheets("feuil1").unprotect
end if

Sa ne marche pas car une fois que j'ai coché le checkbox1 la feuille se verrouille et quand je décoche la feuille reste verrouiller...

Merci bien.

1 réponse

scinarf Messages postés 1119 Date d'inscription   Statut Membre Dernière intervention   252
 
pour une checkbox situee sur une userfom c est :
if userform1.checkbox1.value = true then
sheets("feuil1").protect "mot de passe" true,true,true
else
sheets("feuil1").unprotect "mot de passe"
end if

il faut mettre le code dans

Private Sub CheckBox1_Change()

End Sub

voila
0