Уважаемые! Как защитить Sheets от удаления?

[Евген]

Здравия желаю! Подскажите пжалста как мне защитить Лист в Экселе от удаления

[Vitaly1]

Меню: Сервис-Защита-Лист

Перед защитой можно правой клавишей установить не защищаемые ячейки.

[corgi]

а вот и нет надо защищать книгу чтобы листы нельзя было удалять

Сервис->Защита->Защитить Книгу, защищать лучше только структуру

[Vitaly1]

Corgi - Вот это да, действительно, при защите листа, лист удаляется. Я считаю, что Microsoft не прав!

[Евген]

Да через стандартные настройки не защитить, надо програмно реализовывать

[Евген]

Еще беда в том что защитить надо изначально только определенные Листы. а в остальном можно добавлять и удалять

[corgi]

2Евген
2Vitaly1 я тоже так считал, когда первый раз на это наткнулся

[Vitaly1]

Предлагаю заблокировать соответствующие пункты меню при активизации листа и разблокировать их, к сожалению, не знаю имя контекстного меню, а в главном меню надо так:

Код: Выделить всё

Private Sub Worksheet_Activate()
Application.CommandBars.ActiveMenuBar.Controls("&Правка").Controls("Удалить &лист").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars.ActiveMenuBar.Controls("&Правка").Controls("Удалить &лист").Enabled = True
End Sub


Увы, ничего не получается, что бы узнать имя контекстного меню когда нажымаешь правую клавишу на имени листа, но думаю, что другие добрые люди помогут в этом.

[Евген]

Спасибо за соучастие Жаль не шибко густо получилось

[Vitaly1]

Давай напишим топик, что бы узнать имя контекстного меню?

Я уже написал, а если подскажут, сказать как сделать?

[Евген]

Извини я пока Дуб-Дерево , только учусь и что есть Топик и как найти контекстное меню для меня Большая ЗАГАДКА

[Vitaly1]

А как мой программный код сделать ты знаешь?

[Евген]

В принципе есть ежели что кому помочь

[Vitaly1]

Код: Выделить всё

Private Sub Worksheet_Activate()
Application.CommandBars.ActiveMenuBar.Controls("&Правка").Controls("Удалить &лист").Enabled = False
Application.CommandBars("Имя контекстного меню").Controls("&Удалить").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars.ActiveMenuBar.Controls("&Правка").Controls("Удалить &лист").Enabled = True
Application.CommandBars("Имя контекстного меню").Controls("&Удалить").Enabled = true
End Sub


Когда ответят на мой вопрос этого форума "Имя контекстного меню Excel в зоне переименования листа" замени
"Имя контекстного меню" на соответствующие имя.
А как же ты программист VBA?...

Но защита листа на удаление будет работать только в режиме работающих макросов!

[Евген]

Спасибочки, Это то пнятно Куда и чего, видимо я еще терминологию не очень освоил :\.

[corgi]

а если защитить книгу потом макрос на открытие в котором ты разблокируешь книгу ну и добавляются твои меню а если макросы отключены то уж не судьба