Discussion :

[PPN83]

Bonjour,

Je souhaite verrouiller (protéger) tous les textbox de toutes les feuilles de mon classeur sachant que les textbox ont des noms différents dans les différentes feuilles.

Merci d'avance de votre aide

[rvtoulon]

Bonjour,
voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim ws As Object, obj As OLEObject
'pour chaque feuille du classeur
For Each ws In Worksheets
'Si textbox control active x de formulaire
 'boucle sur chaque objet de la feuille
 For Each obj In ws.OLEObjects
 'si l'objet est un Textbox alors
  If TypeOf obj.Object Is MSForms.TextBox Then obj.Object.Enabled = False
 Next obj
Next ws

Attention, ce code fonctionne si tes textboxs sont des contrôles ActiveX de Formulaire.

[PPN83]

Bonsoir,

Désolé pour le retard !

Ok ça marche avec les TextBox et j'ai repris le même code pour les Combobox c'est parfait.

Merci de ton aide