bu kod ile yetkisiz kişiler için bazı metin kutularınının içeriğini gizledik diyelim sonra yetkili kişi için her metin kutusunun ControlSource değerine  tek tek alan mı tanımlayacağız

Dim ctl As Control

    For Each ctl In Me.Form

        If InStr(1, ctl.Tag, tagname) <> 0 Then

            If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then

                ctl.Enabled = deger

                ctl.ControlSource = "=****"

            ElseIf ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Then

                ctl.Enabled = deger

                ctl.Value = Null

            Else

                ctl.Enabled = True

            End If

        End If

    Next ctl

    Set ctl = Nothing