单元格录入数据后自动保护

muerjun

单元格录入数据后自动保护
       下面的代码可以使用户在单元格录入数据后自动对已录入数据单元格进行保护,防止修改数据 复制内容到剪贴板 代码:#001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
#002      On Error Resume Next
#003      Sheet1.Unprotect Password:="12345"
#004      If Target.Value <> "" Then
#005          Target.Locked = True
#006          Sheet1.Protect Password:="12345"
#007      End If
#008  End Sub

muerjun

代码解析：
       工作表的SelectionChange事件，在单元格录入数据后自动对已录入数据单元格进行保护。
       第3行代码使用Unprotect方法取消工作表的保护。应用于Worksheet 对象的Unprotect方法取消工作表的保护，如果工作表不是受保护的，则此方法不起作用，语法如下：
expression.Unprotect(Password)
       参数expression是必需的，该表达式返回一个Worksheet 对象。
       参数Password是可选的，指定用于解除工作表的保护的密码，此密码是区分大小写的。
       第4、5行代码单元格录入数据后将Locked属性设置为True。Locked属性应用于Range对象时，如果Range对象被锁定，则该值为True，当工作表有保护时Range对象不可被修改。
       第6行代码使用Protect方法保护工作表。应用于Worksheet对象的Protect方法保护工作表使其不至被修改，语法如下：
expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
       其中参数expression是必需的，该表达式返回一个Worksheet对象。
       参数Password是可选的，为一个字符串，该字符串为工作表指定区分大小写的密码。
       其他参数都是可选参数，其功能等同于如图所示的工作表保护对话框中的各项选项，具体请参阅VBA帮助

liuts

这个不错

ljzzlan

看不懂这个东东现在，但感觉很好，收藏了先！感谢楼主分享

醉有缘

占位学习

rongrong1218

我收藏着先，暂时我看着还一脑袋糊涂的

tkgg93

游客，如果您要查看本帖隐藏内容请回复

秦灭六国

学习中，谢谢分享

风花雪月8888

178490420

看着代码就头大