作者:乔山办公网日期:
返回目录:excel表格制作
即使把保护工作表的全部允许都勾选,也还做不到,说明直接的解zd决办法是没有的.一般情况下,可以使用VBA达到目的.给个简单的示意(详细的需要根据具体情况),下面这段代码可以实现被锁定的单元格禁止改动.不要保护工作表,在工作表标签处右键-查看代内码-打开VBE编辑器,将下面的容代码粘贴到右上区域的代码窗口中,然后关闭VBE就可以了Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseApplication.EnableEvents = TrueEnd Sub注:使用VBA的方法,需从主菜单-工具-宏-安全性 将宏安全性设置为中或以下
先解开工作表保护,重新保护工作表时勾选“编辑对象”,就可以使用工作表保护后的绘画工具了。
这样的问题一般用抄录制宏来做。
操作步骤是,
1.录制宏,
2.选中所有单元袭格,单元格格式隐藏锁定去掉。
3.CTRL+G,定位条件,公式知
4.单元格格式,隐藏锁定勾选
5.工作表保护,去掉选定锁定单元格项。
当然,修改一下道录制得到的宏最好了。
下面是代码:
SUB MACRO2()
DIM SHT AS WORKSHEET
FOR EACH SHT IN WORKSHEETSWITH SHT
.CELLS.LOCKED = FALSE
.CELLS.FORMULAHIDDEN = FALSE
.CELLS.SPECIALCELLS(XLCELLTYPEFORMULAS, 23).LOCKED = TRUE
.CELLS.SPECIALCELLS(XLCELLTYPEFORMULAS, 23).FORMULAHIDDEN = TRUE
用宏知来保护工作表,保护后可以使用分组显示或隐藏
环境:excel2010
步骤:菜单栏——道开发工具——VB——插入——模块—回—复制粘贴如下代码——绿色三角运行
Private Sub Workbook_Open()
Worksheets("你的工作部名称").Protect Password:="按需答设定", userinterfaceonly:=True
Worksheets("你的工作部名称").EnableOutlining = True
End Sub