А точнее поместить в ЭтаКнига такой макрос:

[quot segail]Например так, прикладываю файл:

m Djon Player
Опа, а я и не знал такого...
Подскажите, пожалуйста, каким оно образом держит значения переменной?Эта обычная переменная типа Public, их особенностью (а может и не только их) является то, что она сохраняет значение с последнего запуска программы (пока не закроете книгу).

Hugo121Или проверяй положение кнопки на листе, писать меньше, весь код:
С кнопкой выключателем конечно лучше, т.к. при закрытии и открытии файла сохраняется блокировка (разблокировка).

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

segailА в одной кнопки код блокировки, а в другой кнопки разблокировки без модуля и Public прописать как то можно? У меня всего один лист.Можно использовать кучу вариантов блокировки, того что уже написано вполне достаточно.
Вместо переменной, статус блокировки можно хранить где-угодно, хотя бы например на скрытом листе в какой-нибудь ячейке. Можно для этого использовать свойства какой-нибудь ячейки, например цвет или как я привел пример, вообще без использования кнопок и переменных. Блокировка работает или не работает в зависимости от названия файла.
Так-же Hugo121 привел пример с выключателем , там всего одна кнопка, которая имеет два статуса включено и выключено и переменные не используются.

Вы не написали для чего вам в принципе всё это нужно, опишите саму задачу, для которой это нужно.
Потому что, если это защита от пользователей, то какой в ней толк, если пользователи точно так-же сами могут отключить блокировку кнопкой.
А защита от самого себя выглядит странно.

Hugo121Ну смысл есть - например если куча файлов открыта в одном окне (как у меня), можно случайно закрыть все, нажав не тот крест. И если супернужный файл закрывается без запроса на сохранение... А так можно при открытии сразу заблокировать его закрытие и подстраховаться от случайностей.Ну получается страховка от самого себя, ну если ещё кто-тона вашем компьютере работает, то ещё от других. В принципе согласен, в этом случае смысл есть.
Хотя от всего не застраховаться, например свет моргнул, а UPS не успел сработать и комп перезагрузился. А авто сохранение было выключено, т.к. работает долго и мешает работать. Либо настроен большой промежуток времени и как раз так получилось, что были набиты какие-то важные данные и после восстановления, эти данные уже не восстановятся, т.к. их ещё не сохраняли.
P.S. Был у меня как-то похожий случай. Коллеги уехали в Питер в командировку в Питерский филиал, надо было с ними связаться. Позвонил знакомой, которая там работает, спросить телефон.
Она телефона не знала, сказала, что сходит к ним и узнает. А идти надо было куда-то на другой этаж.
В общем через некоторое время она вернулась, продиктовала мне номер, я записал его в блокнот (Notepad.exe, а не бумажный). У меня при этом было открыто ещё парочка окон блокнота.
Закончил говорить со знакомой, потом стал закрывать лишние окна блокнота и случайно закрыл и то, в котором был написан номер. Получился облом, а номер я не запомнил.
А второй раз звонить знакомой и напрягать этим вопросом уже не хотелось, т.к. не исключено, что она мне номер по памяти сказала. К счастью потом выяснилось, что кое-кто из моих коллег до меня выяснил их номер, так что я спросил номер у него и записал уже на бумажку.

segailОткрыта форма VBA и лист “Расход” при открытой форме лист закрыть нельзя форма не дает, после клика по кнопке на форме VBA, форма закрывается. Естественно пользователь может закрыть книгу или лис кликом по кресту, что в данный момент категорически нельзя (вот для этого кликом по кнопке на форме необходимо выполнить код блокировке). На листе “Расход” тоже установлена кнопка, которая выполняет код открытия формы VBA, вовремя открытия формы выполняется разблокировка “Книги” в действии формы Initialize.Раз у вас уже есть некоторая форма, которая запускается, то проще не создавать дополнительных кнопок, а в самом коде этой формы прописать изменение переменной blokirovka на true или false (в зависимости что надо, заблокировать или разблокировать), используя код из файла, который я приложил в сообщении .
Это при условии, что вы разработчик этой формы. А если не вы, то попросить разработчика внести изменения.

segailСтоп стоп, кнопка не дополнительная она выполняет определенные действия, и одно из условий это закрытие формы (так нужно).Djon Player,Для начала определимся с ситуацией. верно ли я понял. Вот какие я сделал выводы из ваших сообщений.
У вас есть книга в Excel, как я понял, там всего один лист, называется Расходы.
Так-же как я понял, у вас есть как минимум одна кнопка, которая запускает некую форму?
Когда вы нажимаете эту кнопку, запускается форма.
Так-же вы уже написали, что в действии формы Initialize вы уже прописали блокировку книги.
Что мешает прописать код разблокировки книги в действии Unload (вроде так называется) формы, т.е. когда форма закрывается.

В общем я хотел сказать, что не вижу смысла в дополнительной кнопке разблокирования.

Если что-то я написал неверно, поправьте.