### 如何通过 Excel VBA 自定义 UserForm 窗口以禁用其移动 在 Excel VBA 中，可以通过拦截 `UserForm_QueryClose` 和其他事件来控制窗体的行为。然而，要完全禁止用户手动拖动窗体的位置，则需要更深入的操作。虽然标准的 VBA 不提供直接属性用于锁定窗体位置，但可以借助 API 函数实现这一目标。 以下是具体方法及其代码示例： #### 使用 Windows API 锁定窗体位置 为了防止用户移动窗体，可以调用 Windows 的 API 来隐藏窗体的最大化按钮以及调整边框样式。这会使得窗体无法被拖拽或改变大小。 ```vba Option Explicit ' 声明必要的API函数和常量 Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 ' 标题栏风格标志位 Private Const WS_THICKFRAME = &H40000 ' 可调节框架风格标志位 Private Sub UserForm_Initialize() Dim lngStyle As LongPtr ' 获取当前窗体的句柄 Dim hWnd As LongPtr hWnd = FindWindow("ThunderDFrame", Me.Caption) ' 如果找到窗体句柄则继续操作 If hWnd <> 0 Then ' 获取现有窗口风格 lngStyle = GetWindowLong(hWnd, GWL_STYLE) ' 移除标题栏和可调节框架风格 lngStyle = lngStyle And Not (WS_CAPTION Or WS_THICKFRAME) ' 应用新的窗口风格 Call SetWindowLong(hWnd, GWL_STYLE, lngStyle) End If End Sub ``` 上述代码实现了以下功能： - 调用了 `FindWindow` 方法获取窗体的句柄[^4]。 - 修改了窗体的风格设置，移除了允许拖动的标题栏 (`WS_CAPTION`) 和边界调整选项 (`WS_THICKFRAME`)。 需要注意的是，在某些版本的 Office 或操作系统下可能需要额外处理兼容性问题。 #### 结合实际需求定制行为 如果希望仅在特定条件下启用此限制（例如只针对 B 列的选择），可以在加载窗体前加入逻辑判断[^3]: ```vba Sub ShowLockedForm() With Application.ActiveCell If .Column = 2 Then ' 当前活动单元格位于第2列(B列) UserForm1.Show vbModeless ' 显示不可移动的窗体 Else MsgBox "请选择B列中的某个单元格！", vbExclamation End If End With End Sub ``` 以上脚本会在检测到用户选择了 B 列之后再展示受限版面；否则提示错误消息并退出流程。 --- ###