Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform

Forumthread: Userform

Userform
07.03.2008 14:59:00
Petra
Hallo Ihr da draussen
wie kann ich es verhindern, dass eine UF verschoben wird?
Vielen Dank für Eure Tipps!
Liebe Grüße schickt die Petra

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform
07.03.2008 15:39:09
Original
Hi,
Code ins Modul der Userform:
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 Sub UserForm_Activate()
Dim Hwf As Long, Hwm As Long
Hwf = FindWindow(vbNullString, Me.Caption)
If Hwf  0 Then
Hwm = GetSystemMenu(Hwf, 0)
If Hwm  0 Then DeleteMenu Hwm, &HF010, &H0
End If
End Sub


mfg Kurt

Anzeige
AW: Userform
07.03.2008 15:57:34
Petra
Hi Matthias, hi Kurt
vielen Dank für Eure wertvollen Tipps
schönes Wochenende noch sagt Petra
;

Beliebteste Forumthreads (12 Monate)

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