eliminate min max and close......

[polska2180]

buttons at the top of the work book.

In other words is there a way to hide them?

 

[polska2180]

i don't need for them to be hidden as much as disabled, but either or

 

[Travis]

not sure if you can do it on an application level, but you could do it on a workbook level like this.

Sub Macro1()
    ActiveWorkbook.Protect Structure:=False, Windows:=True
End Sub

If you want to password it then do
ActiveWorkbook.Protect Structure:=False, Windows:=True, Password:="whatever"

 

[polska2180]

Okay for the Max and Min I got

Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _
As Long

Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)

Sub HideMinimizeAndMaximizeButtons()

Dim L As Long

L = GetWindowLong(Application.hwnd, GWL_STYLE)
L = L And Not (WS_MINIMIZEBOX)
L = L And Not (WS_MAXIMIZEBOX)
L = SetWindowLong(Application.hwnd, GWL_STYLE, L)

End Sub

Sub RestoreMinimizeAndMaximizeButtons()

Dim L As Long
L = GetWindowLong(Application.hwnd, GWL_STYLE)
L = SetWindowLong(Application.hwnd, GWL_STYLE, WS_MINIMIZEBOX _
Or WS_MAXIMIZEBOX Or L)

End Sub

Which works

HOWEVER FOR CLOSE BUTTON I HAVE

The following code, posted by Raider, successfully disables the famous (X) close button at the top right corner of the Excel window. What changes to this code would I make to disable the Minimize or Maximize buttons at the top right corner of the Excel 2000 Window?

Private Declare Function GetSystemMenu Lib "user32" (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 FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Workbook_Open()
Dim MyHandle
Dim hWnd As Long
MyCap$ = Application.Caption
hWnd = FindWindowA(vbNullString, MyCap$)
MyHandle = GetSystemMenu(hWnd, 0)
Call RemoveMenu(MyHandle, 6, &H400)
End Sub

WHICH I GOT

=CLICK

THE PROBLEM IS I DONT KNOW HOW TO RESTORE THE CLOSE.

TY

 

[Travis]

Private Declare Function GetSystemMenu Lib "user32" (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 FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Restore_Close()
Dim hWnd As Long
MyCap$ = Application.Caption
hWnd = FindWindowA(vbNullString, MyCap$)
Call GetSystemMenu(hWnd, 6)
End Sub

 

[polska2180]

I changed the code from 0 to 1 and that worked

Private Sub Workbook_Open()
Dim MyHandle
Dim hWnd As Long
MyCap$ = Application.Caption
hWnd = FindWindowA(vbNullString, MyCap$)
MyHandle = GetSystemMenu(hWnd, 1)
Call RemoveMenu(MyHandle, 6, &H400)
End Sub

 

[hmk]

Thank u very much, it helped me a lot