Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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
|How call an value from a table to other table when specific value associate come from||19||34|
|Transposing this formula ...||5||17|
|Extract Unique Based on Criteria in Another Column in Excel||15||11|