Mit folgendem Code sende ich eine Datei auf einen zweiten Server.
( bih3 ) Dort kann die Datei nur eingesehen aber nicht bearbeitet werden.
Nun habe ich aber das Problem,das ich nicht immer mitbekomme ob sie dort geöffnet ist wenn ich senden will.
Ist sie geöffnet und ich sende trotzdem, zerschieße ich sie mir.
Wie kann ich das vermeiden ?
Sub Senden()
Dim datei As String, speicherort As String
Const PFAD = "\\Nibelser\bih3\Abteilung Elektro-Elektronik\BUL\"
datei = "BUL" & Year(Range("D2")) & ".xls"
speicherort = PFAD & datei
Dim dateiorg As String, speicherortorg As String
Const PFADORG = "\\Nibelser\bih2\Abteilungsleiter T&S\Verwaltung\Arbeitszeit und Schichtpläne\Urlaubsplanung\"
dateiorg = "Urlaubsplanung " & Year(Range("D2")) & " Elektro.xls"
speicherortorg = PFADORG & dateiorg
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("Fehlzeitendefinition").Visible = False
Sheets("Schichtmuster").Visible = False
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveWindow.DisplayHeadings = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Cells(1, 1).Select
ChDir "\\Nibelser\bih3\Abteilung Elektro-Elektronik\BUL"
ActiveWorkbook.SaveAs FileName:= _
speicherort _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.DisplayHeadings = True
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
ChDir "\\Nibelser\bih2\Abteilungsleiter T&S\Verwaltung\Arbeitszeit und Schichtpläne\Urlaubsplanung"
ActiveWorkbook.SaveAs FileName:= _
speicherortorg _
, FileFormat:=xlNormal
Sheets("Fehlzeitendefinition").Visible = True
Sheets("Schichtmuster").Visible = True
Cells(1, 1).Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Gruß aus Mainhatten
Rainer