case à cocher (ActiveX)

Pierrot93

XLDnaute Barbatruc

• 27 Janvier 2008

• #16

Re : case à cocher (ActiveX)

Re

essaye peut être cpmme ceci :

Code:

Private Sub Workbook_Open()
Sheets("nomdetafeuille").Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End Sub

nom de la feuille à adapter

 

Vote positif 0 Vote négatif

M

meldja

XLDnaute Impliqué

• 27 Janvier 2008

• #17

Re : case à cocher (ActiveX)

Ok, avec la déprotection des cellules liées ça marche nickel pour le dernier code que j'ai testé :
Private Sub Workbook_Open()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End SubPrivate Sub Workbook_Open()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End Sub
Merci, je vais quand même fermé le fichier et le réouvrir pour voir si ça marche toujours.

 

Vote positif 0 Vote négatif

M

meldja

XLDnaute Impliqué

• 27 Janvier 2008

• #18

Re : case à cocher (ActiveX)

Pour info,
le code de Dull marche nickel après que j'ai déprotégé les cellules où sont renvoyées les valeur. Voici son code si quelqu'un est intéressé :
Private Sub Worksheet_Activate()
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub
Fallait y penser : déprotéger les cellules destination...LaRaoullah koitlabillaï
Merci tout le monde

 

Vote positif 0 Vote négatif

M

meldja

XLDnaute Impliqué

• 27 Janvier 2008

• #19

Re : case à cocher (ActiveX)

Je tiens à rajouter que ce site m'a apporté énormément grâce à la compétence et au dévouement des participants. J'en remercie tout les membres actifs.

 

Vote positif 0 Vote négatif