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

Question

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

ColumnName.ColumnHidden = true

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

我发现了一些技巧，可以ColumnWidth在某些事件 vba 等上通过 vba 使用属性调整列的大小。但我想知道是否有一种简单的方法可以首先仅对隐藏列禁用此“调整大小”功能？

Answer 1

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

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