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

Вход

Регистрация

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

 

= Мир MS Excel/Самоликвидация файла при открытии по таймеру при условии - Мир MS Excel

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

Excel 2013
Требуется что бы если к файлу получил доступ Чужой (взломал пароль), при открытии файла через какое то время - 10 сек. допустим запускался макрос самоликвидации, если не клацнуть на
определенную ячейку А1 - допустим (ну или еще какое то событие)
подскажите пожалуйста
[vba]
Код
Private Sub Kill_ActiveWorkbook()
    iFullName$ = ActiveWorkbook.FullName
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    ActiveWorkbook.Close saveChanges:=False
End Sub
[/vba]
 
Ответить
СообщениеТребуется что бы если к файлу получил доступ Чужой (взломал пароль), при открытии файла через какое то время - 10 сек. допустим запускался макрос самоликвидации, если не клацнуть на
определенную ячейку А1 - допустим (ну или еще какое то событие)
подскажите пожалуйста
[vba]
Код
Private Sub Kill_ActiveWorkbook()
    iFullName$ = ActiveWorkbook.FullName
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    ActiveWorkbook.Close saveChanges:=False
End Sub
[/vba]
Автор - micholap_denis
Дата добавления - 10.11.2022 в 14:50
igrtsk Дата: Четверг, 10.11.2022, 16:12 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 314
Репутация: 50 ±
Замечаний: 0% ±

Excel 2016
А если при запуске файла пользователь отключит макросы или откроет не в MS Office?
Стоит ли так уж заморачиваться с макросами?

Инструктор по применению лосей в кавалерийских частях РККА
 
Ответить
СообщениеА если при запуске файла пользователь отключит макросы или откроет не в MS Office?
Стоит ли так уж заморачиваться с макросами?
Автор - igrtsk
Дата добавления - 10.11.2022 в 16:12
micholap_denis Дата: Пятница, 11.11.2022, 10:50 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
igrtsk, Понятно, что 100% защиты не будет...ну на всякий
 
Ответить
Сообщениеigrtsk, Понятно, что 100% защиты не будет...ну на всякий
Автор - micholap_denis
Дата добавления - 11.11.2022 в 10:50
MikeVol Дата: Пятница, 11.11.2022, 17:55 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 79 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
Delete

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

Сообщение отредактировал MikeVol - Пятница, 11.11.2022, 18:03
 
Ответить
СообщениеDelete
Автор - MikeVol
Дата добавления - 11.11.2022 в 17:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Самоликвидация файла при открытии по таймеру при условии (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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