Solved: How can the Task Pane active in Thisworkbook

[Emily]

The code below does not work, any idea?

[VBA] Private Sub Workbook_Open()
If Application.CommandBars("Task Pane").Visible = False Then
Application.CommandBars("Task Pane").Visible = True
End If
End Sub
[/VBA]

[Emily]

The tricky code below works but I don't understanding why .
[VBA]
Private Sub Workbook_Open()
If Application.CommandBars("Task Pane").Visible = False Then
Application.OnTime Now + TimeValue("00:00:01"), "Dummy"
Application.SendKeys "^{F1}"
Exit Sub
End If
End Sub
[/VBA]

[VBA]
' Module
Sub Dummy()

End Sub

[/VBA]

[tpoynton]

look at the very bottom of this page - http://www.bmsltd.ie/MVP/MVPPage.asp ; apparently there are issues with the task pane if you have add ins installed. There is an app there which purports to address this issue, but i didnt want to install it to see if it provides a VBA solution.

i was able to get the task pane to appear a couple of times through VBA, but it was sporadic and I cant get it to do it again!

Also, I wasnt any more successful by removing add ins...

[Emily]

tpoynton

Thanks for your reply. The link had already read.

[Emily]

Information for those interest in this topic.

One TaiWan Excel MVP explained that Task Pane can be called in procedure by Application.SendKeys "^{F1}" but it cannot be shown if the procedure is still running.

Therefore "Exit Sub" is used.

The topic (written in Chinese, there is English translation in writer's site) below try to show "RSS Feed" in Task Pane.

http://www.vba.com.tw/plog/post/1/274

Regards
Emily