Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.12.2007, 08:47   #1
smand
 
Регистрация: 05.12.2007
Сообщений: 4
По умолчанию Сохранение книги с интерфейсом. Возможно?

Здравствуйте!
Возникла необходимость скрыть в интерфейсе пункт меню "Сохранить как..". Возможно ли сохранить только данную книгу с изменненным интерфейсом, чтобы при этом остальные все книги открывались со стандартным? Проще: как сделать, чтобы только в одной книге не было пункта "сохранить как...". А может есть другое решение не дать пользователю скопировать файл?
Заранее спасибо!
smand вне форума
Старый 05.12.2007, 08:54   #2
Viteef
stopfake.org
Участник клуба
 
Регистрация: 03.05.2007
Сообщений: 1,927
По умолчанию

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

Viteef вне форума
Старый 05.12.2007, 09:06   #3
smand
 
Регистрация: 05.12.2007
Сообщений: 4
По умолчанию

А я защищу ячейки и запрещу выделять их .. Все. Пусть попробуют
smand вне форума
Старый 05.12.2007, 10:08   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

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

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

Здесь ввод пароля необходим для того, чтобы иметь возможность сохранить книгу с этим кодом.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 05.12.2007, 11:28   #5
smand
 
Регистрация: 05.12.2007
Сообщений: 4
По умолчанию

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

Последний раз редактировалось smand; 05.12.2007 в 11:34.
smand вне форума
Старый 05.12.2007, 11:46   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

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

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

"Сохранить" возможно, а "Сохранить как" - нет. И книга не закроется.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 05.12.2007, 12:03   #7
smand
 
Регистрация: 05.12.2007
Сообщений: 4
По умолчанию

Вот спасибо. Все устраивает.
smand вне форума
Старый 06.12.2007, 06:05   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Вообще-то, если допускать "Сохранить", то ввод пароля для "Сохранить как" можно исключить.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание программ с графическим интерфейсом Rembo C++ Builder 20 18.11.2009 19:28
База данных, с возможностью быстрого назначения множественных связей и удобным интерфейсом, кто встречал? ЛомиК Софт 2 28.07.2008 17:17
Возможно ли...? Dubineanschi Microsoft Office Excel 3 23.07.2008 11:39
Народ помогите с интерфейсом krot56 Паскаль, Turbo Pascal, PascalABC.NET 4 18.02.2007 10:26