[已解决]多个不规则名称的Textbox的Enabled属性设置问题

feiaoli

多个不规则名称的Textbox的Enabled属性设置问题

在保护工作表的时候多个Textbox的Enabled属性为False

在不保护工作表的时候多个Textbox的Enabled属性为True

求代码！ O(∩_∩)O谢谢！！

多个不规则名称的Textbox的Enabled属性设置问题.rar (12.1 KB, 下载次数: 5)

2013-6-10 23:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-11 08:16

1. Sub 保护()
   
2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
3.     Call SetTextbox(False)
   
4. End Sub
   
5. Sub 不保护()
   
6.     ActiveSheet.Unprotect
   
7.     Call SetTextbox(True)
   
8. End Sub
   
9. 
   
10. Sub SetTextbox(blEnable As Boolean)
    
11.     With Sheet1
    
12.         For Each item1 In .OLEObjects   '控件遍历
    
13.             With item1
    
14.                 Select Case TypeName(.Object)
    
15.                     Case "TextBox"
    
16.                         .Object.Enabled = blEnable
    
17.                 End Select
    
18.             End With
    
19.         Next
    
20.     End With
    
21. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

用遍历的方法，针对 TEXTBOX操作就成了。

hwc2ycy

1.     Dim objControl As Control
   
2.     For Each objControl In Me.Controls
   
3.         If TypeName(objControl) Like "TextBox" Then
   
4.             objControl.Enabled = False
   
5.         End If
   
6.     Next

复制代码

hwc2ycy

如果不是在窗体模块内使用，就得把me换成窗体的名字。

hwc2ycy

1. Sub 保护()
   
2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
3.     Call SetTextbox(False)
   
4. End Sub
   
5. Sub 不保护()
   
6.     ActiveSheet.Unprotect
   
7.     Call SetTextbox(True)
   
8. End Sub
   
9. 
   
10. Sub SetTextbox(blEnable As Boolean)
    
11.     With Sheet1
    
12.         For Each item1 In .OLEObjects   '控件遍历
    
13.             With item1
    
14.                 Select Case TypeName(.Object)
    
15.                     Case "TextBox"
    
16.                         .Object.Enabled = blEnable
    
17.                 End Select
    
18.             End With
    
19.         Next
    
20.     End With
    
21. End Sub
    

复制代码

feiaoli

hwc2ycy 发表于 2013-6-11 08:16

非常非常
非常非常
非常非常
非常非常
非常非常
非常非常
的感谢！！！！！！:victory::victory::victory::victory::victory::victory::victory::victory::victory::victory::victory:

我是VBA的小白、、您的几次提醒我都做不来的、这次终于可以了\(^o^)/~

再次感谢！！！！！