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.


document-panel-within-worksheet.jpg

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