Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Помогите написать макрос для удаление этой же книги, По истечению времени нужен чтоб макрос удалил этот же файл
 
#1
24.12.2012 17:36:20
Помогите необходим макрос простенький в виде защиты авторских прав.
Если права авторские мол не будут подтверждены в определенное время, файл сам себя удалит с помощью команды в макросе (мне эта команда и нужна)
Условия:
1 команда в макросе
2 с контролем через выражение рассчитывает число-контрольное  
3 счетчик наступления даты.

Пример:
В файле написан макрос срок работы файла до 31.12.2012,
потом срабатывает команда в виде удаление этой же книги.
Если в ячейка А1 и А2 написать два верных числа файл 31.12.2012  удален не будет.

За ранее благодарен!
 
 
 
#2
24.12.2012 17:49:51
Код
application.displayalerts=false
thisworkbook.close
kill thisworkbook.fullname
Спасибо
 
 
 
#3
24.12.2012 17:58:27
Огромное спасибо это команда на удаление через команды ЕСЛИ ТО ИНАЧЕ я задам условие выполнение действий
Нужна теперь команда которая работает с временем чтобы определяла настиг этот день или нет (или как вычитать разницу дат в макросе)?
 
 
 
#4
24.12.2012 18:01:44
Aleksandr Petryshyn,
date ?
Спасибо
 
 
 
#5
24.12.2012 18:12:10
Функции VBA для работы с датой/временем
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
24.12.2012 18:19:50
Так теперь буду разбираться чтобы воссоединить все воедино  :)
 
 
 
#7
21.10.2013 15:05:26
после
application.displayalerts=false
thisworkbook.close
книига закроется и макрос не доработает до конца
Живи и дай жить..
 
 
 
#8
21.10.2013 15:21:17
но можно стереть все данные в книге и сохранить ее

или уже создать новую книгу, туда добавить макрос, передать ему управление, из него закрыть старую книгу, удалить ее( можно переписав два раза со случайными данными - на всякий случай, чтоб не восстановили), закрыть новую книгу, не сохраняя..

правда не факт, что не останется версии этого файла на флешке или в архиве...
Живи и дай жить..
 
 
 
#9
21.10.2013 17:16:13
Код
Sub УдалениеФайла() ' удалится и закроется файл, из которого запущен этот макрос
    On Error Resume Next
    Application.DisplayAlerts = False
    filepath$ = ThisWorkbook.FullName
    ThisWorkbook.ChangeFileAccess xlReadOnly
    SetAttr filepath$, vbNormal
    Kill filepath$
    ThisWorkbook.Close False
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#10
21.10.2013 22:10:38
Найдите через гугл XL to EXE Converter - XLtoEXE (бесплатный аналог XcellCompiler) и попробуйте, может понравиться :)
 
 
 
Страницы: 1
Читают тему
Наверх