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 fEnable As Long) As Long
Private Sub UserForm_Activate()
Me.Caption = "Ungebundene Userform"
EnableWindow FindWindow("XLMAIN", vbNullString), True
End Sub
|