Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Änderungen nur in der geöffneten Datei, WIE?

Änderungen nur in der geöffneten Datei, WIE?
26.06.2003 11:07:56
Karsten J.
Hi

Wenn ich meine Datei starte und andere noch offen sind wirkt sich das auch auf sie aus. Wie kann ich das verhindern?

Hier der Code:

Private Sub workbook_open()
SymbolleistenZeigen (xlOn)
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWorkbook.Protect Windows:=True
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not schliessen_Ok Then
MsgBox "Nicht gestattet.", 48, "Hinweis"
Cancel = True
End If
End Sub

Sub SymbolleistenZeigen(Status)
If Status = xlOn Then
MenüsUndSymbAusblenden
Else
End If
End Sub


Was muß ich ändern, damit es sich nicht auf ander offene Exceltabellen bezieht?

MfG

Karsten


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Änderungen nur in der geöffneten Datei, WIE?
26.06.2003 11:14:14
Martin

wenn du den namen des workbooks weißt dann geht das ganz einfach mit

Sub Datei()
Dim Fenster As Workbook
Dim geoeffnet As Boolean
For Each Fenster In Workbooks
If Fenster.name = "Datei.xls" Then
geoeffnet = True
Exit For
End If
Next
If Not geoeffnet Then
MsgBox ("Bitte öffnen Sie zuerst die Datei!")
End sub

gruß Martin

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige