Как запретить "Сохранить как"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как запретить "Сохранить как" (Макросы/Sub)

hripunkov

Дата: Вторник, 08.09.2015, 20:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 4 ±

Замечаний: 40% ±

Excel 2007

Здравствуйте. Подскажите, пожалуйста, как запретить "Сохранить как" ??? Цель, чтобы пользователь не мог сохранить файл под другим именем/создал копию. Спасибо.

Ответить

hripunkov

Дата: Вторник, 08.09.2015, 23:52 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 4 ±

Замечаний: 40% ±

Excel 2007

[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Запрещено создавать копию книги!"
Cancel = True
End Sub

[/vba]

Вы имеете ввиду так? Но есть - но! такой код запрещает сохранение совсем, а мне нужно сохранять книгу по нажатию на дискетку, плюс при выходе книга макросом сохраняется в обязательном порядке, однако вышеуказанная функция и макрос отрубает, что логично... так вот можно ли повесить запрет только на "Сохранить как..."? Где-то попадался мне раньше пример на просторах интернета, но сейчас не могу найти....