Full Screen code

RichieF · May 7th, 2002, 02:32 AM

I currently use the code below to make a spreadsheet go to full screen mode when opened...

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

However, I want to make the screen return to normal view when the spreadsheet is closed. Someone did give me some code to add to the end of that listed above, but it didn't work (and i've since lost it !!). Can anyone help ?? Cheers.

Ivan F Moala · May 7th, 2002, 03:05 AM

Quote:

On 2002-05-07 01:32, RichieF wrote:
I currently use the code below to make a spreadsheet go to full screen mode when opened...

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

However, I want to make the screen return to normal view when the spreadsheet is closed. Someone did give me some code to add to the end of that listed above, but it didn't work (and i've since lost it !!). Can anyone help ?? Cheers.



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 7th, 2002, 02:32 AM	#1
RichieF New Member Join Date: Apr 2002 Posts: 20	I currently use the code below to make a spreadsheet go to full screen mode when opened... Private Sub Workbook_Open() Application.DisplayFullScreen = True End Sub However, I want to make the screen return to normal view when the spreadsheet is closed. Someone did give me some code to add to the end of that listed above, but it didn't work (and i've since lost it !!). Can anyone help ?? Cheers.