Question

我有一个excel电子表格，保存在两个单独的位置，我的个人文件夹（z：\ docs \ trial.xlsm）和一个联网文件夹（t：\ allusers \ docs \ trail.xlsm）。我需要停止使用VBA编辑和保存的网络副本。本地和网络都是相同的副本。

我尝试过以下脚本

workbook_open上的Private Sub

Dim noedit As script: noedit = "t:\allusers\docs\trail.xlsm"
Dim t
t = ThisWorkbook.Path

If Z = t Then

......那就是我被卡住的地方。

感谢任何帮助。

Answer 1

打开ThisWorkbook模块并使用此

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim noedit As string: noedit = "t:\allusers\docs\trail.xlsm"

    Cancel = (noedit = ThisWorkbook.Path)
End Sub

根据文件位置禁用保存

1 个答案: