Es geht um unten angehängten Quelltext, der macht Probleme...
Wenn ich das bei mir ausführe klappt alles, ist das Laufwerk und der Ordner da, dann setzt er die Datei auf schreibgeschützt, wenn er aber das Laufwerk nicht hat oder der Ordner nicht existiert kommt die gewünschte Meldung, man klickt auf OK und weiter geht's.
Bei einem Kollegen allerdings, der das P:-Laufwerk nicht hat, funktioniert das nicht. Er hat das gleiche Office-System. Aber bei ihm bleibt Excel immer in der If-Zeile hängen und springt in den Debugger. Wenn er statt P: testweise C: eingibt funktioniert es, dann kommt die Meldung dass der Ordner nicht gefunden wurde, ist ja klar, da die Ordnerstruktur auf C: nicht existiert.
Was ist da los, kann mir jemand weiterhelfen?
achja:
Blatt "00_Bearbeiter" -> Zelle "F12" -> Inhalt "P:\1\1234A12\0000\100\Listen\Excel_Listen\Liste07.xls"
Sub andereSperren()
Dim wks_00_Bearbeiter As Worksheet
Set wks_00_Bearbeiter = ThisWorkbook.Worksheets("00_Bearbeiter")
If Dir(wks_00_Bearbeiter.Cells(12, 6), vbDirectory) = "" Then
MsgBox "Datei - " & wks_00_Bearbeiter.Cells(12, 6) & " - nicht gefunden!"
Exit Sub
End If
SetAttr (wks_00_Bearbeiter.Cells(12, 6)), 1
End Sub