Скачать с ютуб Excel VBA - Disable and remove close button on UserForm в хорошем качестве

Excel VBA - Disable and remove close button on UserForm

How to disable the close button on UserForm? Procedure: QueryClose Functions: CloseMode and Cancel How to remove the close button (the "X" on the close tab) from UserForm? 1. Make it transparent? 2. Only remove the close button? 3. Hide the title bar? 00:19 Disable close button 02:38 Set UserForm to transparent and the coding 12:33 Remove close button from title bar 12:54 Hide or remove title bar --------------------------------------------------------------------------------------------------------------------------- Code: Public Const GWL_Style = -16 Public Const WS_Caption = &HC00000 Public Declare Function FindWindowA Lib "user32" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long Public Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Sub RemoveTitleBar(uf As Object) Call SetWindowLongA(FindWindowA(vbNullString, uf.Caption), GWL_Style, GetWindowLongA(FindWindowA(vbNullString, uf.Caption), GWL_Style) And Not WS_Caption) Call DrawMenuBar(FindWindowA(vbNullString, uf.Caption)) End Sub