内附控件类型属性调取窗体

点击下载此附件

    On Error Resume Next
    Dim Ctl As Control
    For Each Ctl In Me.Controls
        If Ctl.ControlType = 109 or Ctl.ControlType = 104 or Ctl.ControlType = 106 or Ctl.ControlType = 111 or Ctl.ControlType = 110 Then
        Me.Controls(Ctl.Name).Locked = Me.锁定全单
        End If
    Next