阻止用户在工作簿上执行“保存”，但不执行“另存为”

Question

我有一本工作簿，我不希望任何人执行保存，但他们可以执行SaveAs。我遇到的问题是，当他们执行SaveAs（使用ActiveWorkbook.SaveAs语句而不是文件＆gt;另存为）时，它不使用标准的SaveAsUI。所以我不能做If SaveAsUI = False Then方法。

这就是我所拥有的东西，直到我意识到它没有做我需要的东西。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Not SaveAsUI Then
    If Application.UserName <> "Robby" Then
      MsgBox "You can't save this workbook!"
      Cancel = True
    End If
  End If
End Sub