Menüleiste - vbCmdBar aus Service Downloads

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sascha,
ich kann es nicht real testen, da ich deine Leiste nicht habe. Versuch es mal damit:


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
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_SYSMENU = &H80000
Public Sub Hide_SYSMENU()
Dim xl_hwnd, lStyle
xl_hwnd = FindWindow("xlMain", vbNullString)
If xl_hwnd <> 0 Then
lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU)
DrawMenuBar xl_hwnd
End If
End Sub
Public Sub Show_SYSMENU()
Dim xl_hwnd, lStyle
xl_hwnd = FindWindow("xlMain", vbNullString)
If xl_hwnd <> 0 Then
lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle Or WS_SYSMENU)
DrawMenuBar xl_hwnd
End If
End Sub

Code eingefügt mit: Excel Code Jeanie

Wenn es nicht klappt, dann kann ich nur mit deiner Mappe weiterhelfen.
Gruß
Nepumuk

Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const MF_BYCOMMAND = &H0 Private Const SC_MOVE = &HF010 Private Const SC_SIZE = &HF000 Public Sub Suspend_change() Dim hwnd As Long, hwndMenu As Long hwnd = FindWindow("xlMain", vbNullString) If hwnd <> 0 Then hwndMenu = GetSystemMenu(hwnd, 0) If hwndMenu <> 0 Then DeleteMenu hwndMenu, SC_SIZE, MF_BYCOMMAND 'Größe ändern aus DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND 'Verschieben aus End If End If End Sub

Private Sub Workbook_Open() ' Makroablauf am Bildschirm aus Application.ScreenUpdating = False Application.DisplayFullScreen = True Application.CommandBars("Worksheet Menu Bar").Enabled = False Call CreateCmdBar Call CreateControl 'Sub Bildschirm_optimieren() 'Bildschirmansicht wird maximiert: If Application.WindowState <> xlMaximized Then Application.WindowState = xlMaximized 'Tabellenansicht wird maximiert: ThisWorkbook.Unprotect "SASCHA" If ActiveWindow.WindowState <> xlMaximized Then ActiveWindow.WindowState = xlMaximized ThisWorkbook.Protect "SASCHA", True, True 'End Sub ' Makroablauf am Bildschirm ein Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Menüleiste - vbCmdBar aus Service Downloads

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread