Excel ausblenden / minimieren mit VBA
26.02.2004 12:19:34
Jan P
ich habe einen VBA-Code und eine Arbeitsmappe mit mehreren Arbeitsblättern.
Mein Code (bzw. ein Teil davon):
Das steht in ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
' Automatisches Einblenden der UserForm beim Öffnen der Datei
USERFORM.Show
End Sub
das steht in der UserForm:
Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' UserForm kann nicht gesclossen werden...
If CloseMode = vbFormControlMenu Then
MsgBox "Nur über die Schaltfläche zu schließen." & Chr(13) & Chr(13) & "Can only being closed by using button .", vbInformation
Cancel = True
End If
End Sub
Private Sub UserForm_Layout()
' UserForm kann nicht verschoben werden...
Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2
End Sub
Private Sub UserForm_Initialize()
Nun zu meinem Problem:
Ich würde gern die Excel-Arbeitsmappe ausblenden mit Application.Visible = False. Das funktioniert aber nicht, da in der Prozedur "Initialize" auch diverse Veränderungen an den Arbeitsblättern vorgenommen werden (Zellschutz, zellen verändern, Zellen ausblenden, etc.) und ich erhalte eine Windows-Fehlermeldung.
Kann ich das umgehen oder vielleicht Excel minimieren, daß man nicht sieht wie Excel meine Arbeitsblätter aufruft und dort Änderungen vornimmt? Die UserForm wird erst eingeblendet, wenn alle Änderungen in den Blättern abgeschlossen sind - ich würde gern, daß man die UserForm sofort sieht.
danke und Gruß Jan