Posted to microsoft.public.excel.programming
|
|
RunWhen error
Got it sorted
Thanks for your help.
"Dave Peterson" wrote:
I don't see any lines of code where you actually set the RunWhen variable.
And I don't see any place where you declare that variable.
I'd go back to Chip Pearson's site:
http://www.cpearson.com/excel/OnTime.aspx
to see where your code differs.
LiAD wrote:
Hi,
Irrespective of how i write RunWhen I still get the same error. When i open
the file it highlights in yellow
Private Sub Workbook_Open()
Thanks for your help
The code I have now is
Private mFormulaBar
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", False
On Error GoTo 0
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
Application.DisplayFormulaBar = mFormulaBar
Application.Quit
End Sub
Private Sub Workbook_Open()
Dim oCB As CommandBar
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", False
On Error GoTo 0
Application.OnKey "%{F11}", "dummy"
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB
mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", True
End Sub
"Dave Peterson" wrote:
RunWhen should be a single "word":
Application.OnTime Run When , "SaveAndClose", False
LiAD wrote:
Hi,
Can anyone tell me why this defaults on RunWhen? Its says compile error,
ambigous name.
Private mFormulaBar
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oCB As CommandBar
On Error Resume Next
Application.OnTime Run When , "SaveAndClose", False
On Error GoTo 0
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
Application.DisplayFormulaBar = mFormulaBar
Application.Quit
End Sub
Private Sub Workbook_Open()
Dim oCB As CommandBar
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", False
On Error GoTo 0
Application.OnKey "%{F11}", "dummy"
For Each oCB In Application.CommandBars
oCB.Enabled = False
Next oCB
mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
Thanks
LiAD
--
Dave Peterson
.
--
Dave Peterson
.
|