Fjern knappen til at lukke og maksemere i højre hjørne

Se om der er noget du kan bruge hér:

http://www.mrexcel.com/archive2/58700/68005.htm

Har ikke selv prøvet det.

Desværre er jeg ikke så god til Engelsk, at jeg kan forstå det.

Prøv at sætte dette her ind i et nyt modul
og kør Sub HideX

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long



Sub HideX()

Dim hWnd As Long, a As Long
hWnd = FindWindow(vbNullString, Application.Caption)
a = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, a And Not WS_SYSMENU

End Sub

Glem lige den. Der mangler et par konstanter.
Testede ikke da jeg er ved at forsøge mig med Linux :-)

Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000

De skal placeres efter Private Declare... funktionerne.

Bravo brynil, så funker det :-)

Tusind tak, det virker, hvis i ligger et svar får i jeres point. (hvordan giver jeg jer begge to point?)

Denne her skal gå til brynil. Han har både fundet den og rettet den :-)

Ok brynil, hvis du ligger et svar, får du dine point.
Men mange tak til jer bægge to

Alså.., tak for det :))

Men tøv lige en kende. Hvis nu bak kan forklare hvordan (hvis man kan) få den til at fungere ved åbning af en mappe, det kunne jeg nemlig ikke få den til igår, så synes jeg vi skal dele points.

Tak skal du have faqpoler, men har du fået makroen til at virke ved åbning af Excel, så vil jeg gerne vide hvordan? Det undrer mig lidt, at jeg kan kalde andre makroer, men ikke lige denne!

Det gør du ved at kalde makroen fra workbook_open eller fra sub auto_open
og samtidig tvinge en skærmopdatering igennem med screenupdating

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000


Sub HideX()

Dim hWnd As Long, a As Long
hWnd = FindWindow(vbNullString, Application.Caption)
a = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, a And Not WS_SYSMENU
Application.ScreenUpdating = True

End Sub

Ahh - ok. Det tænkte jeg jo slet ikke på. Tak skal du ha' og points skal du også ha'.
Jeg opretter.

Prøv at sætte dette her ind i et nyt modul

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000

Sub Auto_Open()
HideX
End Sub


Sub HideX()

Dim hWnd As Long, a As Long
hWnd = FindWindow(vbNullString, Application.Caption)
a = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, a And Not WS_SYSMENU
End Sub

Undskyl Bak jeg så ikke at du havde svaret,