no X close

  • Thread starter Thread starter Christy
  • Start date Start date
C

Christy

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
 
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
 
Back
Top