EXCEL输入数据保存后自动锁定有数据的单元格
展开全部
在你要保护的工作表中,贴上这段代码(工作表页签,右键,察看代码),就OK了。
密码是123,你可以自己改
Private
Sub
Workbook_BeforeSave(ByVal
SaveAsUI
As
Boolean,
Cancel
As
Boolean)
ActiveSheet.Protect
DrawingObjects:=True,
Contents:=True,
Scenarios:=True,
Password:="123"
End
Sub
密码是123,你可以自己改
Private
Sub
Workbook_BeforeSave(ByVal
SaveAsUI
As
Boolean,
Cancel
As
Boolean)
ActiveSheet.Protect
DrawingObjects:=True,
Contents:=True,
Scenarios:=True,
Password:="123"
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询