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

Вход

Регистрация

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

 

= Мир MS Excel/Запрет на сохранение активной книги (в Надстройке) - Мир MS Excel

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

Excel 2010
Добрый день!

Помогите пож-та с написанием кода в надстройке. Есть надстройка открывающая (через UserForm) определенный файл в защищенной директории. Какой прописать код для запрета сохранения активной книги и в какой модуль это писать, в модуль ThisWorkbook файла xlam?

Перевернуля весь интернет, но так и не нашла.

P.S. В VBA не асс, только учусь.

Заранее спасибо за Help!
 
Ответить
СообщениеДобрый день!

Помогите пож-та с написанием кода в надстройке. Есть надстройка открывающая (через UserForm) определенный файл в защищенной директории. Какой прописать код для запрета сохранения активной книги и в какой модуль это писать, в модуль ThisWorkbook файла xlam?

Перевернуля весь интернет, но так и не нашла.

P.S. В VBA не асс, только учусь.

Заранее спасибо за Help!

Автор - Madikosh
Дата добавления - 11.03.2016 в 08:57
Karataev Дата: Пятница, 11.03.2016, 10:54 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Вложил книгу для примера. Чтобы нельзя было сохранить, надо разрешить запуск макросов в этой книге.
Чтобы внести изменения в этот файл (иначе нельзя сохранить), открывайте книгу без разрешения макросов.
К сообщению приложен файл: Book1.xlsm (10.8 Kb)
 
Ответить
СообщениеВложил книгу для примера. Чтобы нельзя было сохранить, надо разрешить запуск макросов в этой книге.
Чтобы внести изменения в этот файл (иначе нельзя сохранить), открывайте книгу без разрешения макросов.

Автор - Karataev
Дата добавления - 11.03.2016 в 10:54
МВТ Дата: Пятница, 11.03.2016, 20:42 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Madikosh, если Вы хотите, чтобы запрет на сохранение исходил из надстройки, а не из той книги, которую нельзя сохранять, то как-то так
[vba]
Код
Option Explicit
Dim WithEvents app As Application

Private Sub app_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Wb.Name = "Нужная книга" Then Wb.Close 0
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub
[/vba]
 
Ответить
СообщениеMadikosh, если Вы хотите, чтобы запрет на сохранение исходил из надстройки, а не из той книги, которую нельзя сохранять, то как-то так
[vba]
Код
Option Explicit
Dim WithEvents app As Application

Private Sub app_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Wb.Name = "Нужная книга" Then Wb.Close 0
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub
[/vba]

Автор - МВТ
Дата добавления - 11.03.2016 в 20:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет на сохранение активной книги (в Надстройке) (Excel)
  • Страница 1 из 1
  • 1
Поиск:

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