如何即时保护输入工作表的数据？

作者：绿色风分类：时间：2022-08-17 浏览：94

楼主 gvntw	Q：如何即时保护输入工作表的数据（一输入马上保护）？ A：右击工作表标签—查看代码，在代码窗口粘贴下面的代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim b As Boolean For Each c In Target '循环选定单元格 If c <> "" Then '如果单元格非空 b = True Exit For '退出循环 End If Next ActiveSheet.Unprotect Password:="123" '撤消保护 If b = True Then Target.Locked = True '锁定单元格 ActiveSheet.Protect Password:="123" '保护工作表，密码123 End If End Sub 即时保护.zip
2楼 meiokok	不知能否实现只要在非指定磁盘上打开该文件给出提示并自动删除允许指定多个磁盘
3楼 qinhuan66	好好学习天天向上
4楼 DDDDFFFNN	请问，问什么改密码，会有提示1004的错误啊？？？拜托帮忙解决下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表