Verrouiller tous les textbox

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

Bonjour,
voici un exemple :

Code:

---

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.

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 :ccool: