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