Сохранение книги с интерфейсом. Возможно?

[smand]

Здравствуйте!
Возникла необходимость скрыть в интерфейсе пункт меню "Сохранить как..". Возможно ли сохранить только данную книгу с изменненным интерфейсом, чтобы при этом остальные все книги открывались со стандартным? Проще: как сделать, чтобы только в одной книге не было пункта "сохранить как...". А может есть другое решение не дать пользователю скопировать файл?
Заранее спасибо!

[Viteef]

Даже если вы уберете пункт "Сохранить как..." это не значит что его не cмогут скопировать средствами Windows: Правка > Копировать; Правка > Вставить;

[smand]

А я защищу ячейки и запрещу выделять их .. Все. Пусть попробуют

[SAS888]

Попробуй вставить в модуль "Эта книга" следующий код:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Passw As String
Application.DisplayAlerts = False
Passw = 12345 'Пусть это пароль
If InputBox("Введите пароль", "Password") <> Passw Then ActiveWorkbook.Close Savechanges:=False
End Sub

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

[smand]

Работает, но не подходит, т.к. спрашивает пароль и при обычном сохранении. Мне ж нужно, чтобы не сохраняли куда-то ..

[SAS888]

Тогда может так?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Passw As String
If Not (SaveAsUI) Then Exit Sub
Application.DisplayAlerts = False
Passw = 12345 'Пусть это пароль
If InputBox("Введите пароль", "Password") <> Passw Then Cancel = True
End Sub

"Сохранить" возможно, а "Сохранить как" - нет. И книга не закроется.

[smand]

Вот спасибо. Все устраивает.

[SAS888]

Вообще-то, если допускать "Сохранить", то ввод пароля для "Сохранить как" можно исключить.