Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запрет на сохранение внесенных в файл изменений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет на сохранение внесенных в файл изменений (Формулы)
Запрет на сохранение внесенных в файл изменений
migo Дата: Пятница, 26.07.2013, 09:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте!
Нужна помощь в решении следующей задачи:
Есть Excel файл (несколько листов) который будет храниться на локальном диске.
Нужно дать возможность любому из пользователей редактировать его как угодно (удалять, менять, фильтровать...) но при этом не давать возможность сохранить внесенные изменения при выходе из файла.
Ну, или сохранить внесенные изменения, но только в новой книге.
Заранее благодарен!
 
Ответить
СообщениеЗдравствуйте!
Нужна помощь в решении следующей задачи:
Есть Excel файл (несколько листов) который будет храниться на локальном диске.
Нужно дать возможность любому из пользователей редактировать его как угодно (удалять, менять, фильтровать...) но при этом не давать возможность сохранить внесенные изменения при выходе из файла.
Ну, или сохранить внесенные изменения, но только в новой книге.
Заранее благодарен!
Автор - migo
Дата добавления - 26.07.2013 в 09:01
Serge_007 Дата: Пятница, 26.07.2013, 09:26 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (migo, 26.07.2013 в 09:01, в сообщении №1)
не давать возможность сохранить внесенные изменения при выходе из файла

В модуль "Эта книга":
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     ThisWorkbook.Close savechanges:=False
End Sub
[/vba]

ЗЫ Если пользователь сможет отключить макросы, то изменения будут сохранены

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (migo, 26.07.2013 в 09:01, в сообщении №1)
не давать возможность сохранить внесенные изменения при выходе из файла

В модуль "Эта книга":
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     ThisWorkbook.Close savechanges:=False
End Sub
[/vba]

ЗЫ Если пользователь сможет отключить макросы, то изменения будут сохранены
Автор - Serge_007
Дата добавления - 26.07.2013 в 09:26
SkyPro Дата: Пятница, 26.07.2013, 10:04 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Сохраните файл как Шаблон excel.

skypro1111@gmail.com
 
Ответить
СообщениеСохраните файл как Шаблон excel.
Автор - SkyPro
Дата добавления - 26.07.2013 в 10:04
migo Дата: Пятница, 26.07.2013, 10:22 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
То, что надо hands
 
Ответить
СообщениеТо, что надо hands
Автор - migo
Дата добавления - 26.07.2013 в 10:22
_Boroda_ Дата: Пятница, 26.07.2013, 11:55 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Я что-то не совсем понял - нужен запрет на сохранение ТОЛЬКО при закрытии? А просто сохранять, без закрытия, можно? По-моему, это несколько странно, мягко говоря.
Предлагаю немного другой вариант.
Разрешает сохранение (любое), если на листе "Знач" в А1 введено "112233". Если макросы при открытии не разрешены - показывает требование их включить.
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Лист1.Visible = xlSheetVisible
Лист2.Visible = xlSheetVeryHidden
s_ = Лист2.Range("A1") = 112233
ThisWorkbook.Close savechanges:=s_
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Лист2.Range("A1") <> 112233 Then
      Cancel = 1
      MsgBox "А вот не буду сохранять! Надоело!"
End If
End Sub

Private Sub Workbook_Open()
Лист2.Visible = xlSheetVisible
Лист1.Visible = xlSheetVeryHidden
End Sub
[/vba]
Можно еще причесать немного.
К сообщению приложен файл: 4587.xlsm (17.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ что-то не совсем понял - нужен запрет на сохранение ТОЛЬКО при закрытии? А просто сохранять, без закрытия, можно? По-моему, это несколько странно, мягко говоря.
Предлагаю немного другой вариант.
Разрешает сохранение (любое), если на листе "Знач" в А1 введено "112233". Если макросы при открытии не разрешены - показывает требование их включить.
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Лист1.Visible = xlSheetVisible
Лист2.Visible = xlSheetVeryHidden
s_ = Лист2.Range("A1") = 112233
ThisWorkbook.Close savechanges:=s_
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Лист2.Range("A1") <> 112233 Then
      Cancel = 1
      MsgBox "А вот не буду сохранять! Надоело!"
End If
End Sub

Private Sub Workbook_Open()
Лист2.Visible = xlSheetVisible
Лист1.Visible = xlSheetVeryHidden
End Sub
[/vba]
Можно еще причесать немного.
Автор - _Boroda_
Дата добавления - 26.07.2013 в 11:55
migo Дата: Пятница, 26.07.2013, 14:01 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Вы правы! Нужен запрет на сохранение любых изменений, внесенных в документ (для всех пользователей, кроме меня).
т.е., люди должны иметь возможность фильтровать, делать сводные таблицы, менять форматы...но когда они закончат работу с документом, внесенные изменения не должны сохраниться (либо сохраниться в отдельном файле).
 
Ответить
СообщениеВы правы! Нужен запрет на сохранение любых изменений, внесенных в документ (для всех пользователей, кроме меня).
т.е., люди должны иметь возможность фильтровать, делать сводные таблицы, менять форматы...но когда они закончат работу с документом, внесенные изменения не должны сохраниться (либо сохраниться в отдельном файле).
Автор - migo
Дата добавления - 26.07.2013 в 14:01
SkyPro Дата: Пятница, 26.07.2013, 14:13 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Цитата (migo, 26.07.2013 в 14:01, в сообщении №6)
Вы правы! Нужен запрет на сохранение любых изменений, внесенных в документ (для всех пользователей, кроме меня). т.е., люди должны иметь возможность фильтровать, делать сводные таблицы, менять форматы...но когда они закончат работу с документом, внесенные изменения не должны сохраниться (либо сохраниться в отдельном файле).

Ну так шаблон excel этот вопрос и решает. Любая попытка сохранить данные будет подразумевать сохранение новой книги.

skypro1111@gmail.com
 
Ответить
Сообщение
Цитата (migo, 26.07.2013 в 14:01, в сообщении №6)
Вы правы! Нужен запрет на сохранение любых изменений, внесенных в документ (для всех пользователей, кроме меня). т.е., люди должны иметь возможность фильтровать, делать сводные таблицы, менять форматы...но когда они закончат работу с документом, внесенные изменения не должны сохраниться (либо сохраниться в отдельном файле).

Ну так шаблон excel этот вопрос и решает. Любая попытка сохранить данные будет подразумевать сохранение новой книги.
Автор - SkyPro
Дата добавления - 26.07.2013 в 14:13
migo Дата: Пятница, 26.07.2013, 15:26 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Я и не спорю, уже так и поступил - разместил шаблон.
 
Ответить
СообщениеЯ и не спорю, уже так и поступил - разместил шаблон.
Автор - migo
Дата добавления - 26.07.2013 в 15:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Запрет на сохранение внесенных в файл изменений (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!