Защита листа вновь созданой макросом книги.

[КаМММ]

Есть книга напичканая макросамии формулами.
По итогам вычислений она создаёт файл с данными.
Задача защитить эти данные от копирования средствами эксель.
Данные можно смотреть, распечатывать, но нельзя выделять и копировать, а так-же можно добавлять значения в незащищённые ячейки. (есть скрытые столбцы которые от чужих глаз и прячем)
У меня стоит Эксель2003.
Сейчас запись сохранения выглядит так:

ИмяНаряда = №Заказ & " от " & Дата & " " & Заказчик & " " & Менеджер & ".xls"    
Метка:
Filt = "Файлы Таблиц(*.xls),*.xls"
Name = Application.GetSaveAsFilename(ИмяНаряда, FileFilter:=Filt, Title:="Сохранение Данных в файл!") 'имя файла'
If Name = False Then Exit Function
... Втавка данных ... скрытие столбцов...
With ActiveSheet '     Заголовок Листа
.PageSetup.LeftHeader = "Набрал: " & Менеджер & Chr(10) & "Проверил_________"
.PageSetup.CenterHeader = "Наряд " & Name1
.PageSetup.RightHeader = "&P& из &N" & Chr(10) & "Сохранён " & Дата
.Protect Password:= Пароль DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End With
On Error Resume Next
ActiveWorkbook.SaveAs FileName:=Name1, FileFormat:=xlNormal, CreateBackup:=False
    If Err = 0 Then Текст = "Заказ сохранен под именем   " & Name1
Call Лейбл 'Сообщение что сохранён удачно.'
ActiveWorkbook.Close False

Что нужно длбавить чтобы: 1. В создаваемой книге был только 1 лист. (сейчас из бывает 3 а 2 удаляются макросом перед сохранением)
2. чтобы после сохранения с защитой нельзя было выделить блокированные ячейки, но можно добавить данные в неблокированные.
3. нельзя было менять колонтитулы.

[SAS888]

Посмотрите пример во вложении.
При открытии книги, чтобы пользователь не смог изменить колонтитулы, доступ к параметрам страницы будет запрещен. При закрытии книги, доступ возобновляется. Еще есть 2 макроса. Макрос "Create1Sheets" создает новую книгу с одним рабочим листом. Макрос "myProtect" защищает лист с блокировкой выделения заблокированных ячеек.