Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fensterleiste

Fensterleiste
20.10.2002 14:28:15
FrankyB
Hallo Leute,
wenn ich in Excel eine standardmäßige Arbeitsmappe öffne im Modus „Ganzer Bildschirm“ deaktiviert.
Befinden sich oben rechts im Fenster die 3 Schalter „Standby – Fenstergröße wechseln – Excel beenden“.
Lassen sich diese 3 Schalter per Makro abschalten oder ausblenden ?

Danke im voraus
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fensterleiste
20.10.2002 16:07:45
Erich
Hallo Franky,

hab ich in einem Forum gefunden:


Sub ButtonSchutz()
Call RemoveControlMenuExcel32
End Sub

Sub ButtonEntschützen()
Call RestoreControlMenuExcel32 '3 Button
End Sub

Sub RemoveControlMenuExcel32()
Dim WindowStyle As Long
Dim hwnd As Long
Dim WindowName As String
Dim result
On Error Resume Next
WindowName = Application.Caption
hwnd = FindWindowA(0&, WindowName)
WindowStyle = GetWindowLongA(hwnd, GWL_STYLE)
WindowStyle = WindowStyle And (Not WS_SYSMENU)
result = SetWindowLongA(hwnd, GWL_STYLE, WindowStyle)
End Sub

Sub RestoreControlMenuExcel32()
Dim WindowStyle As Long
Dim hwnd As Long
Dim WindowName As String
Dim result
On Error Resume Next
WindowName = Application.Caption
hwnd = FindWindowA(0&, ByVal WindowName)
WindowStyle = GetWindowLongA(hwnd, GWL_STYLE)
WindowStyle = WindowStyle Or WS_SYSMENU
result = SetWindowLongA(hwnd, GWL_STYLE, WindowStyle)
End Sub

Allerdings weiß ich nicht, ob damit nicht noch mehr verbunden ist.

mfg

Anzeige
Re: Verweis?
20.10.2002 19:26:51
FrankyB
Hi Erich,
die Prozedur brauch einen Verweis.
Weist du welchen ?
Gruß Frank
Re: Verweis?
20.10.2002 21:23:32
Erich
Hallo Frank,

ich habe unter VBA / Extras / Verweise

nur folgende aktiviert:
Visual Basic for Applications
Microsoft Excel 9.0 Object Library
OLE Automation

bei mir läufts;
hoffe der Hinweis ist ausreichend

mfg

Re: geht nicht - Verweis?
20.10.2002 22:06:32
FrankyB
Hi Erich,
das habe ich auch da stehen. Bei mir geht es aber nicht?
Gruß Frank

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige