Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Option Explicit 'Written: December 24, 2008 'Author: Leith Ross 'Summary: Enables or Disables the Close "X" on Excel's title bar. Private Declare Function FindWindow _ Lib "user32.dll" _ Alias "FindWindowA" _ (ByVal lpszClass As String, _ ByVal lpszWindow As String) As Long Private Declare Function GetSystemMenu _ Lib "user32.dll" _ (ByVal hwnd As Long, _ ByVal bRevert As Long) As Long Private Declare Function RemoveMenu _ Lib "user32" _ (ByVal hMenu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Private Declare Function DrawMenuBar _ Lib "user32.dll" _ (ByVal hwnd As Long) As Long Public Sub SetCloseX(ByVal bEnable As Boolean) Dim Action As Long Dim hMenu As Long Dim hwnd As Long Dim Ret As Long Const MF_BYCOMMAND As Long = &H0 Const SC_CLOSE As Long = &HF060 Action = CLng(bEnable) hwnd = FindWindow("XLMAIN", vbNullString) hMenu = GetSystemMenu(hwnd, Action) Ret = RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) Ret = DrawMenuBar(hwnd) End Sub Sub RedXworks() 'put this part into workbook_activate, not behind a button SetCloseX True End Sub Sub RedXdisabled() 'put this part into workbook_deactivate, not behind a button SetCloseX False End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.