excel - 带有 if 条件的消息框

Question

.csv我想从（工作表名称更改）另存为 excel 文件，Sheet2所以如果我尝试将文件另存为Sheet1. 我有一个弹出消息的代码，但我不确定如何为这种情况应用 if 条件。谢谢您的帮助！！

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean)

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

End Sub

标签： excelvba

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，并且不会保存工作表。