Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm

UserForm
23.05.2002 17:38:05
Chris
Hallo,

ich nutze unter Excel VBA und habe einige UserFormen für ein kleines Programm. Jede UserForm besitzt das kleine typische X in der rechten oberen Ecke, wie jedes Windows Fenster. Damit lässt sich die UserFrom auch schliessen. Ich möchte aber das dies NICHT möglich ist. Wie kann ich also verhindern das sich die UserForm schliesst, wenn ich auf dieses "x" drücke mit meiner Maus.


Mit freundlichen Grüßen

Chris

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

Betreff
Datum
Anwender
Anzeige
Re: UserForm
23.05.2002 17:41:20
andreas e
hallo chris

versuchs so :

gruß
andreas e

http://www.skripteundaufgaben.de viele kostenlose downloads zu excel und mehr

Re: UserForm
23.05.2002 17:54:16
Frank
Hallo Chris,

Versuch es mal hiermit!
In den allg. Teil einfügen !

'zunächst die benötigten Deklarationen
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 Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Private Const SC_CLOSE = &HF060
Private Const MF_BYCOMMAND = &H0

'Entfernen des Schließen-Symbols
Public Sub DisableCloseButton(hWnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar hWnd
End If
End Sub


Beispiel:

Private Sub Form_Load()
DisableCloseButton Me.hWnd
End Sub

Anzeige
Re: UserForm
24.05.2002 08:51:59
Michael Scheffler
Hallo,

schau Dir mal auf der Homepage von Stephen Bullen die angebotenen Excel-Klassen an. Da ist eine dabei (FormFun), mit der kannst Du das "x" aus der Form rausbekommen und andere Dinge treiben.

Gruß

Micha

Danke für alle Ideen! Es funktioniert -)
24.05.2002 15:00:49
Chris
Danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige