Ausgeblendete Arbeitsmappe überprüfen
24.02.2016 06:24:09
Olga
ich öffne die Datei "Bericht_neu" und die Datei "FV05" wird ausgeblendet.
Wenn ich nun den Bericht schliesse, soll geprüft werden ob die ausgeblendete Datei "FV05" nicht zufällig geschlossen wurde.
Jetzt kommt jedoch die Fehlermeldung: "Die Arbeitsmappe ist bereits geöffnet ..."
wie kann ich diese Meldung unterdrücken wenn die Datei nicht geschlossen wurde?
Danke!
Gruß
Olga
Sub cmd_Bericht_oeffnen(control As IRibbonControl)
Windows("FV05.xlsm").Visible = False
sFile = "Bericht_Neu.xlsm"
sPath = ThisWorkbook.Path & "\Arbeitsdateien\" & sFile
If WkbExists("Bericht_Neu.xlsm") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Workbooks(sFile).Activate
End If
End Sub
Private Sub PruefBericht_Click()
Unload UFBericht
sFile = "FV05.xlsm"
sPath = "C:\FV05" & "\" & sFile
If WkbExists("FV05.xlsm") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Windows("FV05.xlsm").Visible = True
Workbooks("FV05.xlsm").Worksheets("Menu").Activate
End If
End If
Workbooks("Bericht_Neu.xlsm").Close SaveChanges:=False
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Anzeige