PFA,and try same in your file.
From: Excel_Lover
To: excel-macros@googlegroups.com
Sent: Sunday, September 1, 2013 8:15 PM
Subject: $$Excel-Macros$$ Keep Excel in Full Screen
Dear All,
I am using the below code in the Workbook_Open event to display the
Its working fine,
Thanks you very much.
On Sun, Sep 1, 2013 at 6:18 PM, ashish koul wrote:
> Private Sub Workbook_Activate()
> Application.DisplayFullScreen = True
> Application.OnKey "{ESC}", ""
> End Sub
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Application.DisplayFullScreen
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
Application.OnKey "{ESC}", ""
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.OnKey "{ESC}"
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen =
Dear Mr.Bé Trần Văn,
Thanks for your attention,
But I need the excel to remain in full screen not 'User Form'
On Sun, Sep 1, 2013 at 6:09 PM, Bé Trần Văn wrote:
> You to use the codes in ThisWorkbook.
>
> Private Sub Workbook_Open()
> ActiveWorkbook.Sheets("Nhap lieu").Activate
> With User
You to use the codes in ThisWorkbook.
Private Sub Workbook_Open()
ActiveWorkbook.Sheets("Nhap lieu").Activate
With UserForm1
UserForm1.Show
UserForm1.Top = 0
UserForm1.Left = 0
End With
End Sub
Note:
("Nhap lieu") the sheet name to the UserForm
2013/9/1 Excel_Lover
> Dear All
Dear All,
I am using the below code in the Workbook_Open event to display the excel
in full screen.
Application.DisplayFullScreen = True
But, I need the excel to remain in full screen even if the user press 'Esc'
button.
Appreciate your suggestions.
Best Regards
Excel_Lover
--
Are you =EXP(E
