excel - 如何强制另存为而不是保存

Question

我想阻止用户使用与打开时相同的名称保存工作簿，并提供“另存为”选项。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Name = "abc" Then
Cancel = True
SaveAsUI = True
End If

也尝试过

 If ThisWorkbook.Name = "abc" Then SaveAsUI = True

该代码不起作用。不出现“另存为”对话框。

下一步尝试

If ThisWorkbook.Name = "abc" Then ThisWorkbook.ReadOnly = True
'Error - can't assign to read only property.

Answer 1

如果您只想测试特定文件名 - 例如 abc.xlsm 那么下面的代码将停止 Save (但传递 SaveAs >) 然后将 ReadOnly 属性设置为 False，以便在此 session 中的该文件上无法再次使用 Save

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
    If ThisWorkbook.Name = "abc.xlsm" Then
        Cancel = True
        ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
    End If
End If
End Sub