我有一个简短的VBA代码来检查当前的文件位置。 出于安全原因,文件应始终位于我们的网络驱动器上。
奇怪的是,在某些设备上,当前的路径是"" ?
代码:
'----------CHECK FILE LOCATION----------------------
If ThisWorkbook.Path = "\\Exampledrive\Examplefolder\test" Then
Else
MsgBox ("Security Issue, file will be removed"), vbCritical
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
End If
非常感谢!