Как отвадить 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы