Окно сообщения с условием if

Question

Я хочу сохранить файл Excel как .csv из Sheet2 (имя листа меняется), поэтому я хочу, чтобы в Excel всплыло сообщение, если я попытаюсь сохранить файл из 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

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

Если вы находитесь на Листе 1, появится окно Msgbox и лист не будет сохранен.