View Full Version : Avoiding the DocumentsPane to show up on startup

04-02-2019, 01:32 PM
Hi Folks

I'm fearful that there is no solution for this issue, but still hoping:

The issue is that the document pane pops up upon each file onening and I'd like to avoid this misbehaviour. It's just annoying.

Meanwhile, my best option is:

- putting a do until loop in the workbook_open event like so

...Do until application.DisplayDocumentInformationPanel = true
application.DisplayDocumentInformationPanel = false

This works, however, there's still some annoying screen flickr, so I'd rather go with a better option

Any ideas?

PS. They should do a application.misbehave = false Option lol (or rogue)

04-02-2019, 01:55 PM
What is the Document Information Panel?

I see the property, but nothing pops up when I open a workbook

04-03-2019, 03:58 AM
Found this, you can try it not tested

Put this is workbook

Sub Workbook_Open()

Sub DisableDocumentInfomationPanel()

Put this in a module

PublicSub CheckStatus()
If Application.DisplayDocumentInformationPanel =True Then
Application.DisplayDocumentInformationPanel =False

Dim alertTime AsDate
alertTime = Now + TimeValue("00:00:02")
Application.OnTime alertTime,"CheckStatus"

04-03-2019, 11:39 AM
For clarification:

It's this annoying rectangle showing the document properties. It pops up whenever I open a file from the sharepoint at work. For local files this is not happening.


The stupid thing is that, although there is the Application.DisplayDocumentInformationPanel command, it has no effect when placed in the Workbook_Open event.
After the panel is loaded, the Application.DisplayDocumentInformationPanel = false command works totally as expected. The issue is how to fire it in an event other than Workbook_Open.

That is, apparently, because this pane is loaded towards the end or after the Workbook_Open event (not sure). And also the reason why waiting 2-3 seconds (or my attempt to do a while loop) works.

However, both of these workarounds come with screen flickr, so I won't go with those.

04-03-2019, 12:20 PM
Can you try this, hopefully this carries on when the workbook open has completed
the problem is with sharepoint on your companies server so i'm not sure whether its a permanent fix.

Private Sub Workbook_Open()
Application.OnTime Now, "ContinueOpen"
End Sub

& in a module

Private Sub ContinueOpen()

If Application.DisplayDocumentInformationPanel=True
Then Application.DisplayDocumentInformationPanel=False
End If

End Sub

or you can follow these instructs from