защита структуры отменяет работы некоторых кодов, поэтому не подходит. нашел код:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
'Update 20140623
With Application
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
MsgBox "disable to add sheets"
End Sub

но, он не работает в общем доступе, как его изменить, чтоб работал?

помогите написать макрос.
на первом листе, в колонке В вводится порядковый номер, в колонке С появляется дата и время введения. Это я сделал. в ячейках колонки D - выпадающий список названий других листов. в зависимости от выбора, информация из В и С должны копироваться в соответствующий лист, пустые ячейки колонок А и В