Office中国论坛/Access中国论坛

标题: 请高手帮忙写一个PUBLIC的参数来实现功能 [打印本页]
作者: lzczlch    时间: 2011-5-19 19:42
标题: 请高手帮忙写一个PUBLIC的参数来实现功能
请高手帮忙写一个PUBLIC的参数来实现功能
作者: roych    时间: 2011-5-20 18:34
本帖最后由 roych 于 2011-5-20 18:36 编辑

不知道是不是这样：
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. On Error Resume Next
  3. Sheet1.Unprotect Password:="12345"
  4. If Target.Value <> "" Then
  5. Target.Locked = True
  6. Sheet1.Protect Password:="12345"
  7. End If
  8. End Sub
复制代码
一旦录入后即进行单元格保护。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3