UNC-Pfad
24.01.2018 10:13:05
Robert
ich möchte jeden Netzwerk-Pfad in einen UNC Pfad umwandeln. Es kommt vor, dass auf dem PC von dem aus die Datei geöffnet wird, nicht immer der selbe Laufwerksbuchstabe eingebunden ist oder nur eine Verknüpfung existiert. In diesen Fällen funktioniert der Code nicht. Ansonsten funktioniert er wie gewünscht. Ziel ist es, dass sich die Datei selber löscht wenn Sie von einem anderen Speicherort geöffnet wird. Gibt es eine Möglichkeit immer den UNC-Path zu ermitteln?
Private Sub Workbook_Open()
Dim intSh As Integer
Dim blnOK As Boolean
Dim strFile As String
If ThisWorkbook.FullName "\\Server\test.xlsm" Then
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
Application.DisplayAlerts = True
End Sub
Grüsse Robert