Макрос, чтобы файл не сохранялся

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос, чтобы файл не сохранялся (Макросы/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)

Ответить

MikeVol

Дата: Пятница, 18.09.2020, 21:08 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

Репутация: 81 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

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

К сообщению приложен файл: 18.09.20.xlsm (181.5 Kb)

Ученик.
Одесса - Украина

Ответить

Hugo

Дата: Пятница, 18.09.2020, 21:18 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Цитата Oh_Nick, 18.09.2020 в 12:50, в сообщении № 1 ()

Что не так?

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

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Oh_Nick

Дата: Понедельник, 21.09.2020, 08:19 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Ввел данные, нажал дискету и все равно сохранил.

К сообщению приложен файл: 6640337.xlsm (182.3 Kb)

Ответить

Oh_Nick

Дата: Понедельник, 21.09.2020, 11:03 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

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

Ответить

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]

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

Ответить

Макрос, чтобы файл не сохранялся (Макросы/Sub)

Страница 1 из 1
1