[أسامة السالمي]

اذا كنت تريد استثناء أداة واحدة يمكنك استخدام هذا الكود :

PHP كود :

Dim a As Control
        For Each a In Me.Controls
            If a.Name <> "اسم الأداة" Then
                a.Enabled = False
            Else
                a.Enabled = True
            End If
        Next 


 
أما إذا كنت تريد استثناء أكثر من أداة فيمكنك زيادة الشروط بهذه الطريقة :

PHP كود :

Dim a As Control
        For Each a In Me.Controls
            If a.Name <> "اسم الأداة 1" And a.Name <> "اسم الأداة 2" And a.Name <> "اسم الأداة 3" Then
                a.Enabled = False
            Else
                a.Enabled = True
            End If
        Next