Office: Prüfen ob excel schon offen ist und dann Start der Datei verhindern

Guten morgen zusammen!

Ich möchte im Bereich des Ereignisses Workbook_open() eine Prüfung vollziehen die folgende Schritte vollzieht:

Ist Excel bzw. eine Exceldatei schon geöffnet?
...
Msgbox("hinweis xy")
Application.EnableEvents = False
Application.Quit
..
else
...
rest vom code



Wie kann ich obiges am Besten umsetzen? Den laufenden Prozess in Windows abfragen?

:)

 

Plattform ist Excel 2013, WIN7

 

Hallo,

Du willst aus Excel heraus prüfen, ob Excel bereits geöffnet ist? Man könnte vermuten, das Ergebnis sei ohne weitere Prüfung absehbar.

Grüße
EarlFred

 

Ja, ok. So gesehen. Klar. Das wird nicht. Da hast du Recht.

Aber, ist es möglich zu prüfen ob eine andere Datei als die nun geöffnete schon offen ist und dann entsprechend zu verfahren?

 

oke.. etwas weiter bin ich nun.. mein Stand:

Dim Anz As Long
Dim Wn As Window
For Each Wn In Application.Windows
Anz = Anz - Wn.Visible
Next
If Anz = 1 Then
GoTo weiter
Else
MsgBox "Derzeit ist/sind " & Anz - 1 & " weitere Excel-Datei auf ihrem System geöffnet. Bitte beenden Sie vor Nutzung des BfS-WU-Kalkulator jede geöffnete Instanz von Excel." + Chr(10) + Chr(10) + "Schließe nun die Datei...", vbCritical, "Instanzprüfung"
Application.EnableEvents = False
Application.Quit
End If

weiter:
...


Allerdings schließt er dann leider auch alle anderen Exceldateien, was nicht gut ist *Smilie Er sollte nur das aktuelle workbook schließen. Wie muss ich die Application... modifizieren?

 

Hallo,

der Unterschied zwischen Instanz und Mappe scheint nicht klar zu sein, oder doch?
Was willst Du nun? (Andere) Instanzen finden / schließen (warum??) oder Mappen?

Grüße
EarlFred

 

soo.. letzte Frage.. ich brauch nur noch den Code um das VBA/Entwickungsumgebungsfester zu schließen...der Rest sieht so aus

Dim Anz As Long
Dim Wn As Window
For Each Wn In Application.Windows
Anz = Anz - Wn.Visible
Next
If Anz = 1 Then
GoTo weiter
Else
MsgBox "Derzeit ist/sind " & Anz - 1 & " weitere Excel-Datei auf ihrem System geöffnet. Bitte beenden Sie vor Nutzung des BfS-WU-Kalkulator jede geöffnete Instanz von Excel." + Chr(10) + Chr(10) + "Schließe nun die Datei...", vbCritical, "Instanzprüfung"
Application.DisplayAlerts = False
ActiveWorkbook.Close

End If

weiter:
...

Es wäre ja der Fall denkbar das jemand vorher die Entwicklungsumgebung geöffnet hat. Ich möchte mit dem ActiveWorkbook.Close auf jeden Fall auch die Entwicklungsumgebung schließen.

Damit ich SendKeys ("%{F11}"), True nutzen kann, müßte ich aber den Zustand (visible ja/nein) vorher abfragen, sonst blendet er es mir ungewünscht ein. Jemand eine Idee?

 

Hallo EarlFred..der Code schaut nur, ob irgenneine Exceldatei schon offen ist und verhindert den Start der gewählten, damit keine Fehler in der praktischen Nutzung passieren. Die Praxis hat gezeigt, dass Kollegen es immer wieder schaffen durch mehrere offene Exceldatei Fehler zu fabrizieren. Bevor ich diesen andauernd hinterherlaufe, möchte ich die Nutzung von vorne herein nur erlauben, wenn keine weitere Exceldatei neben der grad gestarteten bereits geöffnet ist.

Wenn das läuft wäre noch meine Frage, ist es möglich Excel dahingehend zu sensibilieren, dass eine Fehlermeldung kommt, wenn zwar meine Datei ohne eine andere offene richtig geöffnet wird, aber danach dann eine zweite, dritte (im Betrieb eben) dazu geöffnet wird.

Vielen Dank schoneinmal LR

 

P.S.: mit meinem obigen Code läuft das ja schon, bis auf das Problem mit dem VB-Fenster, dass nach Zustand geschlossen werden soll

 

Hallo,

Du könntest auch die Anzeige des Codes generell verhindern:

- Entwicklungstools / Visual Basic /Menüpunkt Extras
- Eigenschaften von VBA-Projekt
- Register 'Schutz' wählen
- Häkchen bei 'Projekt für die Anzeige sperren'
- Kennwort eingeben und bestätigen
- OK-Button
- Excel-Datei schließen und wieder öffnen
- ggf VBA-Projekt anzeigen (dafür ist die Eingabe des Passwords erforderlich)

Gruß
Aloys

 

Hallo Aloys, danke Dir. Das mache ich in der jeweiligen Endversion schon. Derzeit ist das raus, damit ich nicht jedesmal das Kennwort eingeben muss. Aber grundsätzlich z.B. beim Start meiner Datei das VBA-Fenster zu schließen - wenn offen - geht das ?

 

EDIT: gefunden

mit ...

If Application.VBE.MainWindow.Visible = True Then Application.VBE.MainWindow.Visible = False


..funktioniert der VBE.Teil wie gewünscht. Vielen Dank allen. Aus der anderen Frage (Prüfung ob zweite Datei geöffnet wird) mache ich am besten ein neues Thema

 

Hallo,

mit folgender Anweisung kannst du das erreichen:
Code:

Setzt allerdings voraus, dass bei Entwickler-'Einstellungen für Makros' ein Häkchen bei
'Zugriff auf das VBA-Projektobjektmodell vertrauen' gemacht wurde.

Gruß
Aloys

Sehe gerade, dass du es selbst schon geschafft hast !

 

Ja, das stimmt, aber das ist zum Betrieb der Datei so vorgesehen, ggf. kommt bald noch ein Zertifikat drauf. Mal schauen. Ja, bin grad drüber gestolpert in der paralleln Suche. Vielen Dank Aloys und allen anderen für die schnelle Hilfe!
Klasse.

Darf ich Dich bei Gelegenheit gleich auf mein neues gepostetes Thema stupsen *Smilie Vielleicht hast du da ja auch eine Idee.

VG LR73