1 With wk.ActiveSheet
2
3 Cells.Select
4 Cells.EntireColumn.AutoFit
5 Cells.EntireRow.AutoFit
6 Selection.Locked = False
7 Selection.FormulaHidden = False
8 Columns("A:F").Select
9 Selection.Locked = True
10 Selection.FormulaHidden = False
11 .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
12 End With
使用VBA对EXCEL工作表进行保护后,数据有效性 的下拉菜单无法使用
代码如上,对A:F列进行了保护,G列的数据有效性的下拉菜单却无法使用了.请高手帮忙解决一下.为感!
这个,你不用VBA也能做,所以你应该先问精通VBA的业务工作人员们。
对于数据表保护,有下列限制:
工作表保护相关参考
• 保护下的整体情况(只要保护,下面的就有效)
1、若单元格被"锁定",则不能编辑单元格内容。
2、若某个操作被禁止,则用API 也不能绕过保护。
3、不能解锁任何单元格。
4、不能插入单元格,行列另有说明 。
5、不能合并单元格。
6、不能插入名称 。
7、不能创建自动筛选(创建与使用还是有区别的)。
8、不能使用“分类汇总”,“数据有效性”,“分列”,“组及分极显示”。
9、不能建立数据透视表 。
10、不能导入数据 。
不知道你要实现什么功能,看来你得换个思路了,问问那些精通Excel,只用菜单命令就能完成复杂任务的业务人员,他们比你更在行。
顺便给你截了个图,就是点击“保护工作表”后的设置,你可以看到有个允许的功能列表: