Abfrage beim Öffnen von Datei ob Userform offen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lutz,
das kannst du über die Klasse Application erreichen.
In das Modul "DieseArbeitsmappe":

Option Explicit

Private mobjApplicationClass As clsApplication

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not Saved Then
        Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
                    "' gespeichert werden", vbExclamation Or vbYesNoCancel)
            Case vbYes
                Save
            Case vbNo
                Saved = True
            Case vbCancel
                Cancel = True
        End Select
    End If
    If Not Cancel Then Set mobjApplicationClass = Nothing
End Sub

Private Sub Workbook_Open()
    Set mobjApplicationClass = New clsApplication
End Sub

In ein Klassenmodul mit dem Namen "clsApplication":

Option Explicit

Private WithEvents mobApplication As Application

Private Sub Class_Initialize()
    Set mobApplication = Application
End Sub

Private Sub Class_Terminate()
    Set mobApplication = Nothing
End Sub

Private Sub mobApplication_WorkbookOpen(ByVal Wb As Workbook)
    If Not Wb Is ThisWorkbook Then
        Call MsgBox(Wb.Name)
    End If
End Sub

In dem Moment in dem die MsgBox kommt ist die Mappe gerade beim öffnen und du könntest sie wieder schließen. Alle Ordner zu überwachen ob da gerade jemand einen Doppelklick auf eine Excelmappe ausführt wird wohl auch per API nicht gehen.
Gruß
Nepumuk

Hallo Lutz,
das sind zwei Probleme:
Zum einen müsstest du feststellen, ob ein bestimmtes Userform geöffnet ist. Dazu hab ich spontan nix gefunden, aber man könnte ja irgendwo einen Merker erzeugen, der angelegt wird, wenn das Form geöffnet wird und der beim schließen automatisch gelöscht wird. Sowas wie ein Cookie. Vielleicht gibt's auch noch irgendwas im API.
Wesentlich schwieriger scheint's zu sein, das Makro anzusiedeln, das das Vorhandensein des Userforms prüft und das Öffnen verweigert. M.E. muss dies in der Datei sein, die geöffnet werden soll (Autoopen-Makro). Wahrscheinlich willst du nicht jede Datei die man öffnen könnte, mit dem Makro versehen ...
Achja, falls es dir gelingt, das trotzdem zum laufen zu bringen, dann ist die Wahrscheinlichkeit gross, das das auch in Word funktioniert.
vg, MM

Beliebteste Forumthreads (12 Monate)

Abfrage beim Öffnen von Datei ob Userform offen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage beim Öffnen von Datei ob Userform offen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread