|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.12.2007, 08:47 | #1 |
Регистрация: 05.12.2007
Сообщений: 4
|
Сохранение книги с интерфейсом. Возможно?
Здравствуйте!
Возникла необходимость скрыть в интерфейсе пункт меню "Сохранить как..". Возможно ли сохранить только данную книгу с изменненным интерфейсом, чтобы при этом остальные все книги открывались со стандартным? Проще: как сделать, чтобы только в одной книге не было пункта "сохранить как...". А может есть другое решение не дать пользователю скопировать файл? Заранее спасибо! |
05.12.2007, 08:54 | #2 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Даже если вы уберете пункт "Сохранить как..." это не значит что его не cмогут скопировать средствами Windows: Правка > Копировать; Правка > Вставить;
|
05.12.2007, 09:06 | #3 |
Регистрация: 05.12.2007
Сообщений: 4
|
А я защищу ячейки и запрещу выделять их .. Все. Пусть попробуют
|
05.12.2007, 10:08 | #4 |
Старожил
Регистрация: 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 Здесь ввод пароля необходим для того, чтобы иметь возможность сохранить книгу с этим кодом.
Чем шире угол зрения, тем он тупее.
|
05.12.2007, 11:28 | #5 |
Регистрация: 05.12.2007
Сообщений: 4
|
Работает, но не подходит, т.к. спрашивает пароль и при обычном сохранении. Мне ж нужно, чтобы не сохраняли куда-то ..
Последний раз редактировалось smand; 05.12.2007 в 11:34. |
05.12.2007, 11:46 | #6 |
Старожил
Регистрация: 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 "Сохранить" возможно, а "Сохранить как" - нет. И книга не закроется.
Чем шире угол зрения, тем он тупее.
|
05.12.2007, 12:03 | #7 |
Регистрация: 05.12.2007
Сообщений: 4
|
Вот спасибо. Все устраивает.
|
06.12.2007, 06:05 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Вообще-то, если допускать "Сохранить", то ввод пароля для "Сохранить как" можно исключить.
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание программ с графическим интерфейсом | 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 |