Herbers Excel-Forum - das Archiv

UserForm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: UserForm
von: Chris


Geschrieben am: 23.05.2002 - 17:38:05

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


nach oben   nach unten

Re: UserForm
von: andreas e

Geschrieben am: 23.05.2002 - 17:41:20

hallo chris

versuchs so :

gruß
andreas e

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

nach oben   nach unten

Re: UserForm
von: Frank


Geschrieben am: 23.05.2002 - 17:54:16

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

nach oben   nach unten

Re: UserForm
von: Michael Scheffler

Geschrieben am: 24.05.2002 - 08:51:59

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


nach oben   nach unten

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

Danke

 nach oben

Excel-Beispiele zum Thema "UserForm"
Diagramm in Userform XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen Fundstellen in UserForm listen
Module und UserForms austauschen In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen Wenn kein Eintrag, UserForm nicht schließen