VPF::Не дать сохранить файл Excel - Форум программистов

kashemirny

Дата 18.11.2010, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет

Привет всем! Требуется вот что: любой юзер, работающий с книгой xl не должен сохранить в ней изменения, только "администратор книги" может сделать это. Пишу в ЭтаКнига так:

Код


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("B60") = "" Then
MsgBox "Cannot save file."
Application.DisplayAlerts = False
Application.Quit
Else
Application.DisplayAlerts = True
MsgBox "Сохраняю файл?"
Sheets("Начало").Select
Sheets("Начало").Unprotect
Range("B60").Value = ""
Sheets("Начало").Protect
End If
End Sub

Предполагается такое администрирование: в ячейке B60 вручную пишеться что-либо (предварительно сняв защиту листа), после чего защищается лист.

Однако, данная конструкция все равно сохраняет файл! Помогите, пожалуйста.

Это сообщение отредактировал(а) kashemirny - 18.11.2010, 11:28

Akina

Дата 18.11.2010, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

А Cancel=True за тебя Пушкин будет устанавливать?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

kashemirny

Дата 18.11.2010, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет

спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »