Question

我有一张excel表，它位于我的员工应该报告的特定网络中。我用密码保护它，但我想用VBA保护它，如果文件路径或目录发生变化，文件不应该打开。例如，如果文件位于＆＃34; C：\ Excel \ Book1.xlms＆＃34;，则必须始终在那里工作或文件不应该打开。

Answer 1

您可以将地址硬编码到Open事件中以检查文件是否相同吗？

K.clear_session()

model = Sequential()
model.add(Dense(3, input_dim=1, activation='relu'))
model.add(Dense(1))
model.compile(loss='mean_squared_error', optimizer='adam')
model.fit(X_train, y_train, epochs=500,
          batch_size=2, verbose=1,
          )

Answer 2

设置一个事件，以便在工作簿打开时随时触发检查文件名。如果文件名不是您指定的路径，请关闭工作簿。

将代码粘贴到VBA编辑器中的ThisWorkbook：

Private Sub Workbook_Open()

    Dim FileLoc, MyPath As String
    FileLoc = ThisWorkbook.Path
    MyPath = "C:\Excel\"

    If FileLoc <> MyPath Then
        MsgBox ("The workbook was not in the required filepath." _
            & vbNewLine & "The reuqired filepath is: " & MyPath _
            & vbNewLine & "The current filepath is: " & FileLoc)
        Application.DisplayAlerts = False
        ThisWorkbook.Close
    End If

End Sub

必须保护Excel文件不被移动或复制

2 个答案: