|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
回复 1楼 kuli 的帖子
关于录入资料后自动锁定,不知其他大侠有没有回答了解决方法,
以下是小生的一点见解:
用下面这段代码去代替你那个按钮的代码,可以删除按钮了。
主要实现:当G列(吊牌价)有录入数据时,则锁定数据。
代码:
Private Sub Worksheet_Change(ByVal Target As Range) '单元格改变事件
Dim r%, a As Long
r = Target.Row '设r为录入数据所在行行标数
If r = 1 Then Exit Sub '如果当前是第一行,退出本事件
If Target.Column <> 7 Then Exit Sub '如果当前不是第7列,退出本事件
a = Sheets("货品资料").[g65536].End(xlUp).Row '设a为G列最后一个不为空单元格
ActiveSheet.Unprotect '解除工作表保护
Range("a" & 1 & ":g" & a).Select 'A1到G列最后一个单元格选中
Selection.Locked = True '设置选中单元格锁定属性为真
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= False '保护工作表
Cells(r + 1, 2).Select
End Sub |
|