Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Datei offen keine weitere Datei öffnen

Wenn Datei offen keine weitere Datei öffnen
Thomas
Hallo,
ich habe aufgrund einem sehr eigenartigen Problems und aus Performance Gründen die Idee ob es wohl möglich ist per VBA Excel anzuweisen das wenn diese Datei geöffnet ist, keine weiteren Dateien zu öffnen, also das es irgendwie gesperrt ist.
Mein Problem siehe: https://www.herber.de/forum/archiv/1148to1152/t1151148.htm
Vielen Dank, TOm
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn Datei offen keine weitere Datei öffnen
30.04.2010 11:41:22
Oberschlumpf
Moin Tom
Schreib ins Workbook_Deactivate-Ereignis diesen Code:
(natürlich OHNE der ersten und letzten Code-Zeile, weil diese schon vorhanden sind)
Private Sub Workbook_Deactivate()
Dim lwbk As Workbook
If Workbooks.Count > 1 Then
MsgBox "es darf nur diese Datei geöffnet sein"
For Each lwbk In Workbooks
If lwbk.Name  ThisWorkbook.Name Then
lwbk.Close
End If
Next
End If
End Sub
Hilfts?
Ciao
Thorsten
Anzeige
AW: Wenn Datei offen keine weitere Datei öffnen
03.05.2010 10:56:58
Thomas
Hallo Thorsten,
vielen Dank. Hab den Code eingearbeitet. Er öffnet zwar kurz die Datei, bringt dann aber gleich den Hinweis "nur eine Datei..." und schließt sie wieder.
Ob das mein Problem aushebelt muss ich prüfen, da sich die Problematik ja nicht beliebig reproduzieren lässt. Auf jeden Fall Danke.
MfG, Tom
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige