防止用户取消隐藏数据表列

Question

我在访问数据表中使用ColumnHidden property隐藏了几个列，如下例所示：

ColumnName.ColumnHidden = true

这很好用，但是当我查看数据表时，最终用户可以通过“调整”列隐藏位置两侧的空间来取消隐藏列：

我发现了一些黑客在某些事件vba上通过vba使用ColumnWidth属性来调整列的大小。但是我想知道是否有一种简单的方法来禁用第一个“调整大小”功能仅隐藏列的位置？

Answer 1

在MouseUp事件中您可以检查隐藏列的ColumnHidden是否为false（用户“调整了”列的大小），将其隐藏。

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.MyHiddenColumn.ColumnHidden = False Then
    Me.MyHiddenColumn.ColumnHidden = True
End If
End Sub