Макрос Ексель нужно перенести на 8-ку:

Sub Protect_and_Structure()
   ActiveSheet.EnableOutlining = True
   ActiveSheet.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub


Лист.EnableOutlining = Истина;
Лист.Protect ("asd86",истина,истина,истина,истина,истина,истина,истина,истина,истина,истина,истина,истина); не рабботает

мало "истина,"

Не шмешно, дельное что-нить подсказал бы

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