commandbar at workbook before close - run time error
 

Dear Frank, I do not understand your reply. why you said duplicate?
can explain. thanks alot


Dear All, why beforeclose i got this message at set cmd = commandbars("Tender Bar")
run time error 91
object variable or with block variable not set?

click commandbutton works fine.
pls help.
thanks



Private Sub Workbook_BeforeClose(Cancel As Boolean)
disable
End Sub

Sub disable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = False
End Sub


Private Sub CommandButton1_Click()
enable
End Sub

Sub enable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = True
End Sub

commandbar at workbook before close - run time error
 

set cmd = Application.commandbars("Tender Bar")

--
Regards,
Tom Ogilvy


"tango" wrote in message
om...
Dear Frank, I do not understand your reply. why you said duplicate?
can explain. thanks alot


Dear All, why beforeclose i got this message at set cmd =
commandbars("Tender Bar")
run time error 91
object variable or with block variable not set?

click commandbutton works fine.
pls help.
thanks



Private Sub Workbook_BeforeClose(Cancel As Boolean)
disable
End Sub

Sub disable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = False
End Sub


Private Sub CommandButton1_Click()
enable
End Sub

Sub enable()
Dim cmd As CommandBar
Set cmd = CommandBars("Tender Bar")
cmd.controls("&kc").Enabled = True
End Sub