Avoiding the DocumentsPane to show up on startup

[nikki333]

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
DoEvents
Loop
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)

[Paul_Hossler]

What is the Document Information Panel?

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

[Rob342]

Nikki
Found this, you can try it not tested

Put this is workbook




Sub Workbook_Open()
DisableDocumentInfomationPanel
EndSub

Sub DisableDocumentInfomationPanel()
CheckStatus
EndSub


Put this in a module



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

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

[nikki333]

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.


23997

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.

[Rob342]

Nikki
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
https://www.perrinator.com/?s=remove+doc+panel+office