Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

5 сообщений из 5, страница 1 из 1

Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

#35721635

intuition

Гость

Здравствуйте!

Столкнулся со следующей задачкой

Дано:
1. Есть xls-файл, в котором я получаю данные из sql-запроса и раскидываю их по листам.
Причем листы создаются при открытии и удаляются при закрытии книги.
2. Также я убрал запросы к пользователю стандартным способом
(Application.DisplayAlerts = False)
3. Файл лежит в общем доступе на офисном сервере с доменным разграничением прав.
У всех пользователей права "только на чтение" этого файла.
4. Исходный файл весит 100 кб, при его запуске и отрисовке всех листов размер становится ~ 150 кб.

Проблема заключается в том, что пользователь может нажать кнопку сохранить (значок на панели инструментов)
и если посмотреть на файл на сервере - то его размер станет уже 150 кб, что соответствует файлу с заполненными листами.

Подскажите, пожалуйста, как:
1. Либо убрать возможность сохранять файл xls вообще?
2. Либо убрать панель инструментов из этого файла, что у пользователя не было возможности тыкнуть на значок сохранения?

Заранее спасибо,
Юрий.

...

Рейтинг:

0 / 0

18.12.2008, 10:15:43

| Ответить | Цитировать | Написать

Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

#35722196

Pavel55

Гость

Попробуйте так (Если у вас русский Excel)

Отключаем в главном меню
1) пункт Сохранить как...
2) пункт Сохранить
3) кнопку сохранить на Стандартной панели

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Sub TurnSaveOFF()
Dim ComBar As CommandBarPopup
Dim Ctrl As CommandBarControl

    Set ComBar = Application.CommandBars("Worksheet Menu Bar").Controls("&Файл")
    ComBar.Controls("Со&хранить как...").Enabled = False    'Файл - Сохранить как...
    ComBar.Controls("&Сохранить").Enabled = False           'Файл - Сохранить
    Set Ctrl = Application.CommandBars.FindControl(,  3 )     'кнопка Сохранить на Стандартной панели
    Ctrl.Enabled = False
End Sub

включаем всё обратно

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Sub TurnSaveON()
Dim ComBar As CommandBarPopup
Dim Ctrl As CommandBarControl

    Set ComBar = Application.CommandBars("Worksheet Menu Bar").Controls("&Файл")
    ComBar.Controls("Со&хранить как...").Enabled = True     'Файл - Сохранить как...
    ComBar.Controls("&Сохранить").Enabled = True            'Файл - Сохранить
    Set Ctrl = Application.CommandBars.FindControl(,  3 )     'кнопка Сохранить на Стандартной панели
    Ctrl.Enabled = True
End Sub

...

Рейтинг:

0 / 0

18.12.2008, 13:25:07

| Ответить | Цитировать | Написать

Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

#35722314

Pavel55

Гость

Но всё равно остаётся Ctrl+S

Может отключать сохранение в процедуре "перед сохранением" ?

Код: plaintext

1.
2.
3.
4.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'тут

End Sub

...

Рейтинг:

0 / 0

18.12.2008, 13:57:05

| Ответить | Цитировать | Написать

Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

#35722357

Pavel55

Гость

Например так

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Application.UserName <> "Admin" Then
        MsgBox "Эту книгу нельзя сохранять!",  48 , "Внимание"
        Cancel = True
    End If
End Sub

где Admin - ваша учётка

Эту процедуру поместить в модуль ЭтаКнига (ThisWorkbook)

Кстати, можно написать макрос, который сам будет прописывать эту процедуру в ваш файл (ну, если руками лень записывать будет).

...

Рейтинг:

0 / 0

18.12.2008, 14:13:31

| Ответить | Цитировать | Написать

Вопрос по блокировке возможности сохранить/ сокрытию панели инструментов

#35722461

intuition

Гость

Павел, огромное Вам спасибо.
Мне как раз нужен был 1-ый предложенный Вами вариант.
Спасибо!

...

Рейтинг:

0 / 0

18.12.2008, 14:42:02

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=208&tid=2179982]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	56ms
get topic data:	10ms
get forum data:	3ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	237ms

total:	369ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы