Closing a Userform

[cs1ctp]

Hi,

Is there anyway to disable the close button in the top right hand corner of a UserForm? I am preparing a password dialog, but at the moment, the user can simply bypass the password entry by simply closing the dialog box. Security becomes void!!

Thanks

cHrIs

 

[charllie]

Hi Again,

That will stop the 'x' from doing anything you can add a msgbox to that procedure informing the user or not.

Don't know if its of any use to you but following on from what Andy said you could add this code as well which will show your message box and then close it after 3 seconds. Or change the 3 to a 4 for 4 seconds and so on.

Dim WScript As Object 
Set WScript = CreateObject("WScript.Shell") 
WScript.Popup "Write your message here", 3, "title of msgbox here" 
Set WScript = Nothing

Hope this helps

 

[andyh69uk]

Like it Charllie, thats very user friendly, or is it. The user clicks on the cross, expects the box to disappear instead up pops a warning, they read the warning and just as they go to press the x on that window it disappears and the original window reappears, broken mice everywhere!! Its GENIUS!!! lol

 

[Cbrine]

The only thing that would be better is if the msgbox came up long enough to see it, but not acutally read it before it disappears.

 

[andyh69uk]

And maybe flash a few times with obvious different messages also showing not long enough to read, we could have tech support replacing mice for ages.

 

[charllie]

Hi Guys,

Don't know what your problem is but as i said:

Don't know if its of any use to you

If its not then don't use it, but don't be rude about things.

 

[andyh69uk]

Charlie, sorry I wasn't being rude I was saying I liked the idea of annoying users.

Sri again

 

[charllie]

Hi Andy,

Sorry mate, my apologises. Had a bad day and just spent ages on net looking for car insurance.

I took it the wrong way and i apologise to you.

 

[pfarmer]

Hi,

Is there anyway to disable the close button in the top right hand corner of a UserForm? I am preparing a password dialog, but at the moment, the user can simply bypass the password entry by simply closing the dialog box. Security becomes void!!

Thanks

cHrIs

How about this, no 'x' to click:

'Highlight the userform in the editor and select code

'Before any subs

Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Private Declare Function _
FindWindow Lib "User32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function _
GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function _
SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function _
DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long

' now place this in:

Private Sub UserForm_Initialize()

xl_hwnd = FindWindow(vbNullString, Me.Caption)
If xl_hwnd <> 0 Then
lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU)
DrawMenuBar xl_hwnd
End If

End Sub

If it doesn't function let me know as it works fine on my end and maybe I just forgot a piece of it when I posted this.

Perry