самоуничтожение файла

Вход

Регистрация

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

= Мир MS Excel/самоуничтожение файла - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » самоуничтожение файла (Макросы/Sub)

самоуничтожение файла

patinkton

Дата: Понедельник, 10.04.2017, 14:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2013

помогите пожалуйста как сделать, чтобы файл самоуничтожился в определённую дату, т.е например 17 апреля

Ответить

wemaxie

Дата: Понедельник, 10.04.2017, 14:21 | Сообщение № 2

Группа: Заблокированные

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2010

Попробуйте это:
[vba]

Код

Sub Workbook_Open()
'Kill_Them_All
Dim DateToKill As Variant
Dim CurrDate As Variant
Dim WS As Worksheet
CurrDate = Date
DateToKill = DateValue("Нужная вам дата в формате ДД.ММ.ГГГГ")
Set WS = Sheets(1)
If DateToKill <= CurrDate Then
For Each WS In Worksheets
WS.Cells.Clear
Next WS
End If
Range("A1").Select
End Sub

[/vba]

kaef.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » самоуничтожение файла (Макросы/Sub)

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