Userform close button

[Skyhook]

Is There any way to disable the Close “X” button on a userform.

Thanks in advance

[AJ]

I asked the very same question myself a while ago. Jackeb and Sbirro Cornuto kindly obliged...

http://www.mrexcel.com/board/viewtop...c=3439&forum=2

[Mark O'Brien]

This code will disable the close button and will actually "grey" it out to show that's disabled:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long



Private Const SC_CLOSE As Long = &HF060



Private Sub UserForm_Initialize()

   Dim hWndForm As Long

   Dim hMenu As Long

   

    If Val(Application.Version) < 9 Then

        hWndForm = FindWindow("ThunderXFrame", Me.Caption)  'XL97

    Else

        hWndForm = FindWindow("ThunderDFrame", Me.Caption)  'XL2000

    End If

   

   'Grey out Close button

        hMenu = GetSystemMenu(hWndForm, 0)

        DeleteMenu hMenu, SC_CLOSE, 0&

End Sub

HTH

[Skyhook]

Thanks for the quick reponse. This has got to be the best board around. Hope one day to be able to help.

[gandalf]

Mark, WHERE do I have to place your code. I don't understand the meaning of UserForm. Do I have to use a button? I want also to grey the x-button but only when a condition is true. How do I have to do this?

[Mark O'Brien]

Gandalf, welcome to the board.

If you don't know what a Userform is, then I'm assuming that you want to grey out one of the "X" buttons in Excel itself? Either for the Workbook, or for the Excel application?

Is this correct?

[Mark O'Brien]

To disable the close button in Excel you can use this code plus the "test" procedure to check it:

Option Explicit



Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long



Private Const SC_CLOSE As Long = &HF060



Public Sub XBoxEnabled(ByVal bEnabled As Boolean)

   Dim hWndForm As Long

   Dim hMenu As Long

   

     hWndForm = FindWindow("XLMAIN", Application.Caption)



     hMenu = GetSystemMenu(hWndForm, bEnabled)

     DeleteMenu hMenu, SC_CLOSE, 0&

End Sub



Public Sub test()



  XBoxEnabled True



End Sub

As soon as someone tells me what the Classname is for a worksheet, we can disable that little bugger as well.

HTH