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