Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel schließen nur durch eigenes Symbol

Excel schließen nur durch eigenes Symbol
21.08.2006 08:32:31
Jörg
Guten Morgen Excel-Experten,
ich möchte für das Schließen von Excel ein eigenes Symbol in einer benutzerdef. Symbolleiste erstellen. Das Schließen von Excel soll nur über dieses Icon möglich sein. D.h. das Schließen-Kreuz von Excel soll deaktiviert werden. Kennt sich jemand damit aus.
Viele Grüße
Jörg

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel schließen nur durch eigenes Symbol
21.08.2006 09:04:41
Frederik
Moin!
Hier ein Beispiel für eine UserForm, funzt genauso bei der Application:
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&

Private Sub UserForm_Activate()
Dim hwnd As Long
hwnd = GetActiveWindow()
TakeCloseOff hwnd
hwnd = DrawMenuBar(hwnd)
End Sub



Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Hide
End Sub

Public Sub TakeCloseOff(Handle As Long)
Dim SysMenHandle As Long, RetVal As Long
SysMenHandle = GetSystemMenu(Handle, 0)
RetVal = RemoveMenu(SysMenHandle, 6, MF_BYPOSITION)
End Sub
Gruß
F.
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige