Tipp: Keine anderen Workbooks in gleicher Instanz
11.06.2004 15:59:15
Matthias
ausnahmsweise keine Frage oder Antwort, sondern ein Tipp:
Wie verhindere ich, dass neben meiner Mappe noch andere Mappen in der gleichen Excel-Instanz geöffnet werden können?
Folgender Code in "DieseArbeitsmappe":
Private Sub Workbook_Deactivate()
Dim n As String
If Workbooks.Count > 1 Then
With ActiveWorkbook
n = .FullName
.Close savechanges:=False
End With
Dim xlApp As New Excel.Application
On Error Resume Next
xlApp.Workbooks.Open Filename:=n
If Err.Number > 0 Then
xlApp.Quit
Else
xlApp.Application.Visible = True
End If
Set xlApp = Nothing
End If
End Sub
Das Makro prüft, ob eine neue Datei geöffnet/erstellt wurde (.Count>1) und merkt sich dessen Namen. Dann schließt sie die Mappe ungefragt und öffnet in einer neuen Instanz selbige Mappe wieder neu.
Gruß Matthias
Anzeige