指定某一文本可以编辑

''把可编辑的文本的tag属性增加:可编辑

''在打开或加载事件中增加以下代码:

On Error Resume Next

   Dim ctr As Control
    '搜索所有控件
    For Each ctr In Me.Controls
        If ctr.Tag = "可编辑" Then
           ctr.Locked = False

           Else

           ctr.Locked = True
        End If
    Next