no X close
 

Hi All

I found a link on this forum and downloaded the code to
eliminate the x close button on my user forms. It worked
great until someone opened my workbook in 2002. (I have
2000). They still had the x in the title bar of the form.

Any one know how to fix that or where I can find an
update. I forgot where I got the the original.

Thanks
Christy

no X close
 

As Robin replies below:

Select Case Int(Val(Application.Version))
Case 8 'Excel 97
hWnd = FindWindow("ThunderXFrame", _
oDialog.Caption)
Case Else 'Excel 2000, 2002, 2003?
hWnd = FindWindow("ThunderDFrame", _
oDialog.Caption)
End Select

--
Regards,
Tom Ogilvy


Christy wrote in message
...
Hi All

I found a link on this forum and downloaded the code to
eliminate the x close button on my user forms. It worked
great until someone opened my workbook in 2002. (I have
2000). They still had the x in the title bar of the form.

Any one know how to fix that or where I can find an
update. I forgot where I got the the original.

Thanks
Christy