单元格的密码保护
假定某列内容如果为空,则允许输入,如果不为空,则需要先双击此列,输入一个密码后,才能修改此列的内容。
设计步骤:
1、设置表的PrePareEdit事件代码为:
If
e.Col.Name
= "某列"
Then
'如果编辑的是某列
If e.Row.IsNull("某列")
= False Then
'而且某列已经有内容
e.Cancel
= True '则取消编辑
End
If
End
If
这样一旦此列已经有内容,则无法以常规方式直接修改此列的内容。
2、设置表的DoubleClick事件代码为:
If
e.col.Name
= "某列"
Then
'如果编辑的是某列
Dim psd
As String
InputValue(psd,"验证","请输入密码")
'输入密码
If psd
= "正确的密码" Then
'如果密码正确
e.Table.StartEditing
'强行进入编辑状态
Else
Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If
End
If