VBA - Xóa chữ thập đỏ khỏi UserForm

Có thể cần phải có khả năng thoát khỏi biểu mẫu người dùng cho đến khi tất cả các mục nhập đã bị cấm, nhưng vẫn có chữ thập đỏ cho phép người dùng thoát.

Sử dụng mã sau đây để loại bỏ chéo.

Trong phần khai báo của một UF

 'để xóa chữ thập trong biểu mẫu người dùng Hàm khai báo GetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLongA Lib "user32" _ (ByVal hwnd As Long, AsVal ByVal dwNewLong As Long) Hàm khai báo dài FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Trong việc khởi tạo UF

 Private Sub UserForm_Initialize () Dim hwnd As Long hwnd = FindWindowA ("Thunder" & IIf (Application.Version Giống như "8 *", "X", "D") _ & "Frame", Me.Caption) SetWindowLongA hwnd - 16, GetWindowLongA