задать условие - очистка ячейки при открытии файла

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

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

задать условие - очистка ячейки при открытии файла (ячейка должна становиться пустой при каждом открытии файла)

задать условие - очистка ячейки при открытии файла

sg1983

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

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

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

Сообщений: 4

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

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

Для ячейки F1 нужно дополнить макрос (его писала не я - я в этом деле валенок!). Задача: при каждом открытии файла ячейка должна становиться пустой. Т.е. человечек открывает документ, заполняет поле, печатает документ, сохраняет, закрывает, а при следующем открытии ячейка вновь пуста! Или так: чел заполняет документ, печатает, нажимает "сохранить" и сохраняется все, кроме значения в ячейке F1 (при открытии она будет пустой).

В ячейке F1 уже есть макрос:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n%
If Target.Address <> "$F$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Time() < #12:57:00 AM# Then n = 1 Else n = 2
If Target.Value < Date + n Or Weekday(Target.Value, 2) > 5 Then
MsgBox "Неверная дата!"
Target.ClearContents
Target.Activate
End If
End Sub

[/vba]

Как и чем его дополнить??
Спасибо.