nesnelerin TAG özelliğinde Kilitle yazanlara uygulanır

    Dim c As Control

    For Each c In Me.Controls

        If TypeOf c Is ComboBox Or TypeOf c Is TextBox Or TypeOf c Is CommandButton Then

            If c.Tag = "Kilitle" Then Me.Controls(c.Name).Enabled = True Else Me.Controls(c.Name).Enabled = False

        End If

    Next