Исчезновение CommandButton через заданный промежуток времени.

[and150382]

Форма появляется при открытии книги. Подскажите как сделать чтобы кнопка на форме после открытия исчезла через 10 минут.

[Watcher_1]

В форме пишем

Private Sub UserForm_Initialize()
    Application.OnTime Now + TimeValue("00:10:00"), "myHide"
End Sub

В модуле пишем

Sub myHide()
    UserForm1.CommandButton1.Visible = False
End Sub

[and150382]

Спасибо работает!

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

[Watcher_1]

Private Sub UserForm_Activate()
  Me.CommandButton1.Visible = True
  Application.OnTime Now + TimeValue("00:10:00"), "myHide"
End Sub

[Казанский]

ИМХО это не решит проблему. Надо где-то хранить инф. о том, что кнопка уже отображалась в течение 10 мин.

'модуль ЭтаКнига или ThisWorkbook

Public btn_hid As Boolean

'модуль формы

Private Sub UserForm_Initialize()
    If ThisWorkbook.btn_hid Then
        CommandButton1.Visible = False
    Else
        Application.OnTime Now + TimeValue("00:10:00"), "myHide"
    End If
End Sub

'обычный модуль

Sub myHide()
    UserForm1.CommandButton1.Visible = False
    ThisWorkbook.btn_hid = True
End Sub

Можно Sub myHide() тоже разместить в модуле книги, тогда планировщику надо указать так:

Application.OnTime Now + TimeValue("00:10:00"), "ThisWorkbook.myHide"

[and150382]

Спасибо большое!

[Hugo121]

Ещё нужно на закрытие этой книги поставить отмену этого Application.OnTime.
Иначе если например через минуту закрыть файл, но не закрывать Эксель - через 9 минут скорее всего откроется этот файл, чтоб спрятать кнопку (не проверял с этим кодом, но обычно так и бывает).
Если так - то время запуска нужно задавать через переменную, её же и использовать при отмене.

[and150382]

А как поставить отмену этого Application.OnTime?

Или время запуска задавать через переменную?

Появляется ошибка через 4 сек

Application.OnTime Now + TimeValue("00:00:05"), "myHide"
If ThisWorkbook.btn_hid Then
CommandButton6.Visible = False
Else
Application.OnTime Now + TimeValue("00:00:05"), "myHide"
End If

[Hugo121]

Схема такая (надеюсь прикрутите к событиям):

Dim NextTime As Date

Sub StartScript()
    MsgBox "Работа пошла!"
    NextTime = Now + TimeValue("00:00:03")
    Application.OnTime EarliestTime:=NextTime, Procedure:="StartScript"
End Sub

Sub StopScript()
    On Error Resume Next
    Application.OnTime EarliestTime:=NextTime, Procedure:="StartScript", Schedule:=False
End Sub

[and150382]

Что то я теперь вообще запутался в этом коде.