ThisWorkbook.Sheets("Отчет").Copy
    With ActiveWorkbook
        .SendMail Recipients:=Array("test@test.kz"), Subject:="Статистика"
        .Close SaveChanges:=False
    End With
    If ThisWorkbook.Saved = False Then
    ThisWorkbook.Save
    End If
    Application.Quit
End Sub

Private Sub CommandButton1_Click()
        If TextBox1.Text = "111" Then
                Windows("Пароль на лист.xls").Visible = True
                End
        Else
                MsgBox "Вы ввели неправильный пароль", vbInformation, "Неправильный пароль"
        End If
        End Sub

        Private Sub CommandButton2_Click()
                Windows("Пароль на лист.xls").Visible = True
                Worksheets("Лист2").Activate
                End
        End Sub

        Private Sub UserForm_Activate()
                ActiveWindow.Visible = False
        End Sub

        Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
                Cancel = True
        End Sub