[حل شده] کدی مشترک جهت false نمودن Enabled چند تکست باکس و کمبوباکس در یوزرفرم

[bahman_220]

با سلام و احترام خدمت دوستان اکسلی
کدی مشترک جهت false نمودن Enabled چندین تکست باکس و کمبوباکس بعد از ذخیره در یک یوزرفرم.
با تشکر

[amir_ts]

با سلام
با کد زیر تمامی کنترل ها به غیز از دو مورد غیر فعال میشوند...

[LEFT]

Private Sub cmd1_Click()
Dim ctrl As Control
For Each ctrl In UserForm1.Controls
If ctrl.Name <> "cmd1" And ctrl.Name <> "cmd2" Then
    ctrl.Enabled = False
    End If
Next
End Sub[/LEFT]

[bahman_220]

خیلی ممنون از لطف جنابعالی