1 2 3 4 5 6 7 | Если запретить создание новых листов, путём защиты структуры рабочей книги, нельзя, то можно воспользоваться событием рабочей книги Workbook_NewSheet() и удалять лист(ы) сразу после их создания. Для этого, просто разместите в модуле ThisWorkbook (ЭтаКнига) следующий код:Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False Sh.Delete Application.DisplayAlerts = TrueEnd Sub |