Userform Position angeben und Menü deaktiviert
06.10.2003 10:12:25
Lars
habe ein Prob mit einer Userform. Leider kenne ich mich in VBA noch nicht so gut aus.
Meine Userform startet wie gewollt nach dem Öffnen der Datei. Leider habe ich es:
1. noch nicht geschafft die Position zu bestimmen (geht immer in der Mitte des
Fensters auf, soll aber entweder oben am Anfang der Tabelle oder rechts im
Tabellenbereich angeordnet sein).
2. Nach dem Start ist das Excel-Menü nicht voll einsatzbereit. muss erst
doppelt in die Menüleiste klicken.
Wie kann ich diese beiden Dinge in mein bisheriges Makro einbauen?
Option Explicit
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_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Die Navigation kann nicht geschlossen werden."
Cancel = True
End If
Application.CellDragAndDrop = True
End Sub
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 CommandButton1_Click()
Sheets("Deckblatt").Select
End Sub
Wichtig, hab wenig Ahnung von VBA, also möglichst einfach erklären!
Vielen Dank!
Lars