Как отвадить 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д