api: setwindowlong

Option Explicit

Private Declare Function SetWindowLong& Lib 'user32' Alias 'SetWindowLongA' _
  (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function DrawMenuBar& Lib 'user32' (ByVal hWnd&)
Private Declare Function GetSystemMenu& Lib 'user32' _
  (ByVal hWnd&, ByVal bRevert&)
Private Declare Function DeleteMenu& Lib 'user32' _
  (ByVal hMenu&, ByVal nPosition&, ByVal wFlags&)
Private Declare Function FindWindow& Lib 'user32' Alias 'FindWindowA' _
    (ByVal lpClassName$, ByVal lpWindowName$)

Dim HandleXL&
   
Sub SupprBouton()
  Application.ScreenUpdating = False
  With ActiveWindow
    .WindowState = xlNormal
    .Top = 0: .Left = 0
    .Height = Application.UsableHeight
    .Width = Application.UsableWidth
    .WindowState = xlMaximized
  End With
  HandleXL = FindWindow('XLMAIN', Application.Caption)
  SetWindowLong HandleXL, -16, &H15C80000
  DeleteMenu GetSystemMenu(HandleXL, False), &HF010&, &H0&
  DeleteMenu GetSystemMenu(HandleXL, False), &HF060&, &H0&
  DrawMenuBar HandleXL
End Sub

Sub RestauApp()
  SetWindowLong HandleXL, -16, &H15CF0000
  GetSystemMenu HandleXL, True
  DrawMenuBar HandleXL
End Sub

Cliquez pour agrandir...