Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Öffnen von anderen Mappen verhindern

Forumthread: Öffnen von anderen Mappen verhindern

Öffnen von anderen Mappen verhindern
11.06.2021 15:59:26
anderen
Hallo,
Folgender Code verhindert das öffnen einer weiteren Mappe.
Gerne würde ich hier aber 2 definierte Mappen zulassen, kann mir evtl. jemand dabei helfen?
Vielen lieben Dank und ein schönes Weekend :-)

Private Sub Workbook_Deactivate()
Dim wkb As Workbook
If Workbooks.Count > 1 Then
MsgBox "Es darf nur folgende Mappe offen sein:   >>  " _
& ThisWorkbook.Name & "   ThisWorkbook.Name Then
wkb.Close True
End If
Next
End Sub
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Öffnen von anderen Mappen verhindern
11.06.2021 16:03:46
anderen
If wkb.Name ThisWorkbook.Name and wkb.name "Meinedatei.xlsm" Then
Count 2
GrußformelHomepage
Anzeige
AW: Öffnen von anderen Mappen verhindern
11.06.2021 16:25:58
anderen
Hallo vielen Dank für die schnelle Antwort.
Es scheint zu funktionieren, leider kommen jetzt aber die MsgBox nicht mehr.

Private Sub Workbook_Deactivate()
Dim wkb As Workbook
If Workbooks.Count > 2 Then
MsgBox "Es darf nur folgende Mappe offen sein:   >>  " _
& ThisWorkbook.Name & "   ThisWorkbook.Name And wkb.Name  "TRANSFERDATEI" Then
wkb.Close True
End If
Next
End Sub
lg Samy
Anzeige
AW: Öffnen von anderen Mappen verhindern
11.06.2021 16:46:37
anderen
Hallo Samy,
bei mir schon. Es sind 7 Dateien auf.
Gruß Hajo
AW: Öffnen von anderen Mappen verhindern
11.06.2021 17:03:48
anderen
Hallo,
Bei mir leider nicht, aber ich habe den Code ein wenig abgeändert damit es nun Funktioniert, ob es so eine saubere Lösung ist, kann ich aber leider nicht beurteilen.
Aber vielen Dank für deine Zeit!

Private Sub Workbook_Deactivate()
Dim wkb As Workbook
sDatei = Sheets("load_data").Range("Transferdatei")
For Each wkb In Workbooks
If wkb.Name  ThisWorkbook.Name And wkb.Name  sDatei Then
wkb.Close savechanges:=False
MsgBox "Es darf nur folgende Mappe offen sein:   >>  " _
& ThisWorkbook.Name & "

Anzeige
AW: Öffnen von anderen Mappen verhindern
15.06.2021 16:33:58
anderen
Hallo,
Folgender Code welcher verhindert das eine weitere Datei geöffnet wird habe ich in Verwendung und Funktioniert nun auch.
Aber sobald ich eine Datei öffne welche den gleichen Code drin hat, erhalte ich eine Fehlermeldung.
Laufzeitfehler 1004 - Methode "Close" für das Objekt "_Workbook" ist fehlgeschlagen.
Hat jemand eine Ahnung wie ich dieses Problem lösen kann?
Vielen Dank für eure Zeit.
LG Samy

Private Sub Workbook_Deactivate()
Dim wkb As Workbook
sDatei = Sheets("load_data").Range("Transferdatei")
Software = Sheets("load_data").Range("Software_datei")
For Each wkb In Workbooks
If wkb.Name  ThisWorkbook.Name And wkb.Name  sDatei And wkb.Name  Software Then
wkb.Close savechanges:=True
MsgBox "ACHTUNG!" & vbCrLf & " " & vbCrLf & "ES DARF NUR EINE EXCEL-MAPPE OFFEN SEIN!" & vbCrLf & " " & vbCrLf & "IHRE DATEIEN WERDEN GESPEICHERT UND GESCHLOSSEN.", vbExclamation, "ACHTUNG"
End If
Next
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Makros nacheinander ausführen
Philipp

Hallo Leute, dies ist mein erster Eintrag in einem Excel-Forum ever, also hallo erstmal! ;-)
Ich hoffe auf Eure Hilfe zu einem VBA Problem. Habe schon ähnliche Einträge in anderen Foren gefunden, jedoch keine lösung, die bei mir funktioniert.
Problem ist folgendes:
Ich habe verschie...
18.06.2009 11:33:36
Thread-ID: 1082519
3 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Makros in Datei ausführen
Jürgen

Hallo liebe Cracks,
ich habe hier einige Dateien die jeden Monat geöffnet werden müssen.
Nach öffnen muß im Blatt 'Input' der Button 'Create Schedule' gedrückt werden.
Im sich öffnenden Dialog muß der aktuelle Monat und das Jahr eingestellt werden.
Daraufhin wird ein Blatt erze...
04.01.2010 11:36:55
Thread-ID: 1127002
11 Beiträge
Anzeige
Nur eine Excel Arbeitsmappe öffnen
Thomas

Hallo liebe VBA-Gemeinde
Gibt es eine Möglichkeit beim Öffnen einer bestimmten Arbeitsmappe zu prüfen ob eine andere Excel Datei bereits offen ist ? Falls ja, dann das öffnen der bestimmten Arbeitsmappe zu unterbinden inkl. Meldung.
Und wenn die bestimmte Arbeitsmappe bereits offen ist,...
10.03.2010 11:45:26
Thread-ID: 1144813
7 Beiträge
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
Anzeige
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
Anzeige
Problem beim Ausführen eines Makros
Christian

Hallo alle zusammen,
ich habe ein Problem beim Ausführen folgendem Makro:
Sub hhhh() Dim hl As Hyperlink For Each hl In ActiveSheet.Columns(3).Hyperlinks ActiveSheet.Hyperlinks.Add hl.Parent.Offset(, 2), "http://www" & Mid(hl.Address, 11) Next End Sub Ich bekomme folgende Meldung
18.08.2011 16:08:12
Thread-ID: 1226622
2 Beiträge
Problem beim Ausführen eines Makros (Hyperlinks)
Christian

Es geht um unten stehendes Makro. Beim Ausführen wird der Text Call Worksheet_Change markiert _ und es kommt die Fehlermeldung: Fehler beim Kompilieren: Sub oder Function nicht definiert. Kann mir da jemand bitte weiterhelfen? Gruß Christian Sub RunOnce() Dim row As Long Application.Scree...
21.12.2011 11:23:43
Thread-ID: 1243108
4 Beiträge
in vba excelmappe mit variablem datum öffnen
meixner

Hallo zusammen,
unteres Makro funktioniert nicht und ich kann es mir nicht erklären.
Sub Morgenroutine_oeffnen() Dim wb As Workbook Workbooks.Open Filename:=("I:\CM_88\8801\Fondsmanagement\Archiv Morgenroutine\Morgenroutine" & _ Format(Date, " YYYYMMDD")) End Sub Hat jmd. einen Ti...
19.10.2012 13:40:09
Thread-ID: 1282818
2 Beiträge
mit Menü "AddIn" Mappe öffnen
Wolfgang

Hallo,
in einer Mappe befindet sich unter Menü AddIn ein eigenes Schaltflächenmenü. Gibt es eine Möglichkeit, beim Öffnen der Arbeitsmappe direkt mit der Anzeige des Menüs AddIn zu starten ? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
01.11.2012 10:25:12
Thread-ID: 1284734
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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