Как отвадить Excel задавать вопросы по поводу сохранения, удаления - VB

Формулировка задачи:

Кто знает, как отвадить Эксэль задавать кучу вопросов когда прога форматирует, удаляет / добавляет, сохраняет листы. Заранее благодарен.

Решение задачи: «Как отвадить Excel задавать вопросы по поводу сохранения, удаления»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox 'Нельзя сюда листочки добавлять!' & Chr(13) & 'Открой новую книгу!'
Dim listik
    For listik = ThisWorkbook.Worksheets.Count - 1 To 1 Step -1
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets(listik).Delete
    Application.DisplayAlerts = True
    Next listik    ' Increment counter
End Sub
                        