单元格的密码保护

假定某列内容如果为空，则允许输入，如果不为空，则需要先双击此列，输入一个密码后，才能修改此列的内容。

设计步骤：

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

我设置后，不知怎样才可使密码是对的？我想还要有如何正确设置密码吧？

按你的代码，密码=“正确的密码”

 改这一句，红色代码改成自己要的密码。

假定某列内容如果为空，则允许输入，如果不为空，则需要先双击此列，输入一个密码后，才能修改此列的内容。

设计步骤：

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,"验证","请输入密码") \'输入密码
     密码=“888”  \'如果密码正确
        e.Table.StartEditing \'强行进入编辑状态
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

对吗?

假定某列内容如果为空，则允许输入，如果不为空，则需要先双击此列，输入一个密码后，才能修改此列的内容。

设计步骤：

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,"验证","请输入密码") \'输入密码
      f psd = "888" Then \'如果密码正 \'如果密码正确
        e.Table.StartEditing \'强行进入编辑状态
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

对吗?

回复5楼，是的。