Hittade följande på nätet:
Put the code below to “ThisWorkbook”:
Sub Workbook_Open()
DisableDocumentInfomationPanel
End Sub
Sub DisableDocumentInfomationPanel()
CheckStatus
End Sub
Put the code below to a module:
Public Sub CheckStatus()
If Application.DisplayDocumentInformationPanel = True Then
Application.DisplayDocumentInformationPanel = False
End If
Dim alertTime As Date
alertTime = Now + TimeValue("00:00:02")
Application.OnTime alertTime, "CheckStatus"
End Sub
|
|