Full Screen if Read Only

[Kurt545]

My workbook is password protected. How do I make it open full screen if someone opens it as "Read Only" and if someone enters the correct password it then opens to the normal sized screen?

 

[Oorang]

In the "Thisworkbook" module put this:

Private Sub Workbook_Open()
    If Me.ReadOnly Then Application.DisplayFullScreen = True
End Sub

 

[Kurt545]

Thanks! Works Great.