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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос, чтобы файл не сохранялся - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, чтобы файл не сохранялся (Макросы/Sub)
Макрос, чтобы файл не сохранялся
Oh_Nick Дата: Пятница, 18.09.2020, 12:50 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Ребята, доброго времени суток

Прописываю макрос, что файл не сохранялся, а он все равно сохраняет. Что не так?

[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
ThisWorkbook.Saved = True  
End Sub
[/vba]
К сообщению приложен файл: 7833614.xlsm (183.3 Kb)
 
Ответить
СообщениеРебята, доброго времени суток

Прописываю макрос, что файл не сохранялся, а он все равно сохраняет. Что не так?

[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
ThisWorkbook.Saved = True  
End Sub
[/vba]

Автор - Oh_Nick
Дата добавления - 18.09.2020 в 12:50
MikeVol Дата: Пятница, 18.09.2020, 21:08 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 299
Репутация: 51 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
Oh_Nick, Вечер Добрый. Вроде бы так, проверьте.
Код из module 1 переместил в модуль книги и исправил имя страницы в коде, он там и должен быть.
К сообщению приложен файл: 18.09.20.xlsm (181.5 Kb)


Ученик.
 
Ответить
СообщениеOh_Nick, Вечер Добрый. Вроде бы так, проверьте.
Код из module 1 переместил в модуль книги и исправил имя страницы в коде, он там и должен быть.

Автор - MikeVol
Дата добавления - 18.09.2020 в 21:08
Hugo Дата: Пятница, 18.09.2020, 21:18 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Что не так?
- так нет запроса на сохранение при закрытии. И только.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
Сообщение
Что не так?
- так нет запроса на сохранение при закрытии. И только.

Автор - Hugo
Дата добавления - 18.09.2020 в 21:18
Oh_Nick Дата: Понедельник, 21.09.2020, 08:19 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Ввел данные, нажал дискету и все равно сохранил.
К сообщению приложен файл: 6640337.xlsm (182.3 Kb)
 
Ответить
СообщениеВвел данные, нажал дискету и все равно сохранил.

Автор - Oh_Nick
Дата добавления - 21.09.2020 в 08:19
Oh_Nick Дата: Понедельник, 21.09.2020, 11:03 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Если я просто закрываю файл, то он не предлагает его сохранять - это ок. А как сделать, чтобы не сохранял при нажатии дискеты слева вверху?
 
Ответить
СообщениеЕсли я просто закрываю файл, то он не предлагает его сохранять - это ок. А как сделать, чтобы не сохранял при нажатии дискеты слева вверху?

Автор - Oh_Nick
Дата добавления - 21.09.2020 в 11:03
Oh_Nick Дата: Понедельник, 21.09.2020, 17:40 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
Нашел вот такой:

[vba]
Код
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const sPASSWORD As String = "123"
    Dim sGetPassword As String
     
    If Not SaveAsUI Then
        Cancel = Not (InputBox("Введите пароль на сохранение:", "Запрос пароля", Empty) = sPASSWORD)
    End If
End Sub
[/vba]

Все работает)
 
Ответить
СообщениеНашел вот такой:

[vba]
Код
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const sPASSWORD As String = "123"
    Dim sGetPassword As String
     
    If Not SaveAsUI Then
        Cancel = Not (InputBox("Введите пароль на сохранение:", "Запрос пароля", Empty) = sPASSWORD)
    End If
End Sub
[/vba]

Все работает)

Автор - Oh_Nick
Дата добавления - 21.09.2020 в 17:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, чтобы файл не сохранялся (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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