乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 能不能实现<em>excel</em>单元格不能直接编辑但宏可以更改-excel 允许宏,exc

能不能实现<em>excel</em>单元格不能直接编辑但宏可以更改-excel 允许宏,exc

作者:乔山办公网日期:

返回目录:excel表格制作


你所说的情况只能使用宏。按 alt + F11 启动VBA, 在左边的小窗口,显示有你需要输入数据的工作表名称,双击这个工作表名称,然后在右边的空大窗口输入如下代码就可以了

Public Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'遇到错误继续运行代码

If Target.Column = 1 And Target.Text <> "" Then
'用if函数,如果活动单元格为A列(1就是A列,这里你可以更改为任意列,比如2=B列,3=C列,4=D列等等)且单元格内容为空,则执行下列动作

Target.Offset(0, 1) = Now
Selection.NumberFormatLocal = "yyyy-m-d h:mm;@"

'活动单元格的后一列自动填充时间,格式为"yyyy-m-d h:mm;@"

End If
'完成判断

End Sub
'代码执行完毕


操作步copy骤:
1、ctrl+a 全选工作表----右键--设置单元格格式--保护--取消勾选的 "保护"和"隐藏"
2、CTRL+G ---定位--条件--点选公式--确认(选中了所有含有公式的单元格)
---右键--设置单元格格式--勾选“保护”和“隐藏”--确定
3、2003--工具--保护--保护工作表(设置密码)--确定即可。
2007版本--审阅--更改--保护工作表(设置密码)--确定即可。

单元格只要zhidao保护了,无论宏还是手工都无法更改,但是可以在需要用宏修改的时候取消保
ActiveSheet.Unprotect
更改完后在加保护:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网