В книге защищен каждый лист. Как быстро снять защиту со всех листов, а потом ее поставить опять?

[kuklp]

For Each sh In ActiveWorkbook.Worksheets 
sh.Protect ("123") 
Next sh
End Sub

[kuklp]

Сообщение от Катик7

Как сгруппировать 1 и тот же столбец на всех листах (например, H)? И скрыть его, чтобы не было видно.

Возможно я ошибаюсь, но... Может это имелось ввиду?

Columns("H").Group

Именно это называется сгруппировать:-)

[offza]

Сообщение от kuklp

For Each sh In ActiveWorkbook.Worksheets 
sh.Protect ("123") 
Next sh
End Sub

Спасибо!
уже тоже увидел ошибку, хотя и просидел над этим весь день.

[offza]

Сообщение от kuklp

For Each sh In ActiveWorkbook.Worksheets 
sh.Protect ("123") 
Next sh
End Sub

А как нужно изменить код, если требуется возможность вставлять примечания по всей книге? При обычной защите листа, предусмотренной функционалом Excel, это решается галочка в защите листа на изменение объекта.

Спасибо!