View original (French)

Full screen on a single page

Solved
d_a_n Posted messages 42 Status Member -  
 Maurice -
Hello,

How to open a single sheet in full screen when you're not good at VBA??
Thank you in advance for your help.

4 answers

  1.
    f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
     
    Hello,

    code to put in a module 

    Sub normal_display()
     Application.ScreenUpdating = False
     Application.DisplayFullScreen = False
     ActiveWindow.DisplayHeadings = True
     Application.DisplayFormulaBar = True
     ActiveWindow.DisplayGridlines = True
     ActiveWindow.DisplayHorizontalScrollBar = True
     ActiveWindow.DisplayVerticalScrollBar = True
     ActiveWindow.DisplayWorkbookTabs = True
     Application.WindowState = xlMaximized

    End Sub
     
    Sub full_screen_display()
     Application.ScreenUpdating = False
     Application.DisplayFullScreen = True
     ActiveWindow.DisplayHeadings = False
     Application.DisplayFormulaBar = False
     'ActiveWindow.DisplayGridlines = False
     ActiveWindow.DisplayHorizontalScrollBar = False
     ActiveWindow.DisplayVerticalScrollBar = False
     ActiveWindow.DisplayWorkbookTabs = False
     Application.ScreenUpdating = True

    End Sub
    1
    1. d_a_n Posted messages 42 Status Member
       
      First of all, thank you, f894009, for your invaluable help.
      Now, I would like to freeze the sheet in such a way that one cannot go to the right or down. My question is: is this possible? Thank you again in advance for your advice.
      0
    2. f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
       
      Hello,

      a way to do it:

      code to put in the VBA of the sheet by defining the range Table

      principle: if a cell outside the table is selected, activate cell A1 

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Intersect(Target, Range("Tableau")) Is Nothing Then
       Range("A1").Activate
       End If
      End Sub
      0
    3. d_a_n Posted messages 42 Status Member
       
      Great for the fact of freezing the table, but I realize that it's not the macro that activates full screen, but the fact that I close it in full screen, and therefore it opens in full screen. If I close it with the top of the sheet (home, insert, page layout... as well as the submenus; copy, paste, etc.), it opens with. Is this normal?
      0
    4. f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
       
      Re,

      you need to call the code for fullscreen when opening the VBA ThisWorkbook.
      0
  2. Maurice
     
    Hello

    To block a sheet from any movement 

     Private Sub Worksheet_Activate() ScrollArea = "A1" End Sub

    to be placed in the VBA of the sheet

    Cheers
    Maurice
    0
    1. f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
       
      Hello and thank you for the code.
      0
  3. d_a_n Posted messages 42 Status Member
     
    Thank you Maurice, you're the boss.
    See you later!
    0
  4. Maurice
     
    Re
    I'm more of a HI Chef

    See you

    Maurice
    0