Private Sub blabla()
 
Dim DeineDatei As String
Dim DeinPfad As String
 
DeineDatei="irgendwas.xls"
DeinPfad="D:\irgendwas\"
 
...jedemengedeincode
 
 
If FileInUse(DeinPfad & DeineDatei) Then
MsgBox("Die Datei kann nicht gespeichert werden!")
Else
Workbooks(DeineDatei).Close(True)
End If
 
End Sub
 
 
 
Private Function FileInUse(ByVal sFile As String) As Boolean
  Dim F As Integer
 
  On Error Resume Next
  ' Versuch, Datei EXKLUSIV zu öffnen
  F = FreeFile
  Open sFile For Binary Lock Read Write As #F
 
  ' Bei Fehler 70 ist die Datei in Benutzung
  FileInUse = (Err.Number = 70)
 
  Close #F
  On Error Goto 0
End Function

EALA FREYA FRESENA