to avoid modifications, you need to make use of the operating system and set the file to read-only. You may make it "harder" to do modifications by checking the runmode:
If Not Application.RunMode Then Application.RunMode = True End If
To make sure the details pane is visible, you could add this code:
Dim iDockWindows As Integer For iDockWindows = 1 To Me.Application.DockWindows.Count Dim oDockWindow As PBDockWindow Set oDockWindow = Me.Application.DockWindows.Item(iDockWindows) If oDockWindow.Title = "Details" Then oDockWindow.Visible = True End If Next
and finally you want to set the zoom:
Application.Refresh Me.Zoom = "FitAll"
you should all the above code into
Private Sub Display_Open()
hope this helps.
1 of 1 people found this helpful
After playing arround a little I have one more suggestion for the editing:
Application.CommandBars.Item("Drawing Toolbar").Visible = False
and obviously a shortcut for the details:
Application.DockWindows.Item("Details").Visible = True
This has been extremely helpful, Thank you so much!!!!
Very helpful post, Andreas,
I wish there was also a "Fit width" choice for zooming, because scrolling down seems to be more intuitive to operators that scrolling right. And sometimes a long, tall display results in wording that is too tiny to read in the horizontal direction, but it fits vertically with "Fit all".
I saw where someone had recently bookmarked this thread. Thought I would add to it, better late than never...
This post may be helpful or give you some additional ideas:
"FitAll" is not "FixAll