Vba 如何禁用'；保存'；Excel中的选项，但'；另存为'；应该还在工作

我需要禁用Excel中的“保存”选项，但我仍然需要“另存为”选项才能工作。。。因此，我知道如何通过此VBA禁用这两个选项：

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
    MsgBox "You can't save this workbook!"
    Cancel = True    
End Sub

但是，如何才能禁用save，但又能让我们继续工作呢。 谢谢你帮我

试试：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 If SaveAsUI = False Then
  MsgBox "You can't save this workbook!"
  Cancel = True
 End If
End Sub

编辑：

要从

此工作簿

类模块中删除代码（删除所有内容），我们可以使用以下代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 If SaveAsUI = False Then
  MsgBox "You can't save this workbook!"
  Cancel = True

 Else
  With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
   .DeleteLines 1, .CountOfLines
  End With

 End If
End Sub

注:

• 这将删除

  此工作簿

  类模块中的所有内容，而不仅仅是

  工作簿_在保存之前

• 我们必须允许对VBA项目对象模型进行信任访问（文件>选项>单击信任中心，单击信任中心设置，然后单击宏设置）

---

使用

Cancel=True

然后打开另存为对话框。如果返回的名称（路径…？）与原始名称相同，则放弃该名称。如果它们不相同，请保存它。可能必须有一个避免重叠的公共布尔值。我喜欢它。VBA应该是什么样子的。谢谢你不是真的在单词选项中改变了吗？（如果你想用vba来做，那完全没关系…只是有兴趣…：）我宁愿用vba，但你也可以告诉我怎么做。谢谢您可以为工作簿设置密码以允许编辑。单击“另存为”，单击“工具”下拉列表，然后选择“常规选项”。然后设置修改密码。工作完美，但是否有可能在原始版本中工作。。。所以当铜币被保存时，你可以编辑它，因为现在即使铜币也不允许被保存。。。那么，有没有办法使原来的一个是一样的，它是一样的，铜币是完全一样的，但没有这个vba。。。所以保存后要删除这行代码