Thisworkbook.Path / Activeworkbook.Path返回""在某些设备上

时间:2017-06-14 13:43:28

标签: excel-vba vba excel

我有一个简短的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

非常感谢!

0 个答案:

没有答案