带有if条件的消息框

Question

我想将.csv中的文件另存为Sheet2作为Excel文件（表名更改），所以如果我尝试另存为{{1}中的文件，我希望excel弹出一条消息。 }。我有一个代码可以弹出该消息，但不确定这种情况下如何应用。谢谢您的帮助！

Sheet1

Answer 1

这应该为您工作：

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

If SaveAsUI Then

    If ActiveSheet.Name = "Sheet1" Then

        MsgBox "Make sure you are on correct sheet"
        SaveAsUI = False
    End If

End If

End Sub

如果您在Sheet1上，则会弹出Msgbox，并且不会保存工作表。