Herbers Excel-Forum - das Archiv

UserForm immer eigeblendet lassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: UserForm immer eigeblendet lassen
von: Marion
Geschrieben am: 02.10.2003 07:27:54
Hallo liebe Excelfreunde.
Ich habe eine Userform mit zahlreichen Schaltflächen bestückt.
Diese soll nun immer eingeblendet bleiben. Der Tabellenbenutzer soll
in der Tabelle Änderungen vornehmen können und bei Bedarf soll er die
sichtbare Userform aktivieren und die Schaltflächen nutzen können.

Im Moment muss ich leider immer wieder die UserForm ganz schließen, wenn ich
in der Tabelle arbeiten will. Wie kann ich das verhindern?

Viele Grüße / Marion

Bild

Betrifft: AW: UserForm immer eigeblendet lassen
von: Matthias G
Geschrieben am: 02.10.2003 08:45:10
Hallo Marion,
In den Eigenschaften des UserForms "ShowModal" auf "False" stellen. Ich weiß aber nicht ob Office 97 das schon kann.

Gruß,
Matthias
Bild

Betrifft: AW: UserForm immer eigeblendet lassen
von: Hajo_Zi
Geschrieben am: 02.10.2003 08:46:21
Hallo Marion

das ist erst ab Version 2000 von MS vorgesehen.
Schreibe in die Usercform folgenden Code

Option Explicit
' von Michael Schwimmer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bEnable As Long) As Long

Private Sub UserForm_Activate()
Dim hwndXL&
hwndXL = FindWindow("XLMAIN", Application.Caption)
If hwndXL <> 0 Then
EnableWindow hwndXL, 1
Application.CellDragAndDrop = False
End If
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
Application.CellDragAndDrop = True
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

 Bild
Excel-Beispiele zum Thema " UserForm immer eigeblendet lassen"
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