Excel Fenster ausblenden mit wHandle
23.06.2008 07:51:00
chris
habe heute wieder einmal eine frage zum ausblenden von "Windows"Fenstern
Ich habe eine Datei.Mit dieser Datei greife ich über eine userform auf Daten einer anderen Arbeitsmappe zu.Diese anderen Arbeitsmappen sind Freigegeben und geschützt so das der User selbst die größe nicht verändern darf.
die größe habe ich so vergeben das mann in der "Datenbank" selbst nichts sehen kann also keine Daten.
Jetzt möchte ich aber gerne noch dieses datenbank Fenster also die Exceldatei ausblenden.
Das geht aber nicht so einfach weil die Datei ja geschützt ist und Freigegeben.
Habe mir jetzt überlegt die datei per API schliesen zu lassen. So das also das fenster Handle geschlossen wird.
Set Obj_Datenbank_O = Workbooks.Open(PfadDatenbank_O, False, , , "dbpass", "dbpass") '(Datenbank öffnen mit Passwort)
Set Obj_Datenbank_U = Workbooks.Open(PfadDatenbank_U, False, , , "dbpass", "dbpass") '(Datenbank öffnen mit Passwort)
Hier öffne ich meine beiden datenbanken.Wie bekomme ich jetzt für diese beiden fenster den Windowshandle heraus ?
und wäre es dann möglich diese beiden Datenbanken auszublenden ? Hier ist der code mit dem ich mir vorstelle die Datenbanken auszublenden.
Würde mich sehr freuen wenn mir jemand von euch helfen könnte.Dafür im vorraus schon einmal vielen dank !
Hier der oder die code schnipsel die ich habe mit denen das gehen sollte.Nur wie weiß ich leider nichT :(
Dim hWnd As Long, A As Long
Dim Titel$, Result$
'Mit dem code müsste ich rigendwie an die windows handle herankommen ?
hWnd = GetDesktopWindow()
hWnd = GetWindow(hWnd, GW_CHILD)
'Und hiermit sollte das ausblenden gehen ?Nur eben nicht wie in dem Beispiel mit dem rechner sondern mit der aktuell geöffneten Datenbank.
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Sub Ausblenden()
wHandle = FindWindow(vbNullString, "Rechner")
lResult = ShowWindow(wHandle, SW_HIDE)
End Sub
Vielen Dank für eure Hilfe
gruß Chris