Ver originales (Francés)

Pantalla completa en una sola hoja

Resuelto
d_a_n Mensajes publicados 42 Estado Miembro -  
 Maurice -
Hola,

¿Cómo realizar la apertura en pantalla completa de una sola hoja, cuando no se tiene experiencia en VBA?
Gracias de antemano por su ayuda.

4 respuestas

  1.
    f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
     
    Hola,

    código a colocar en un módulo 

    Sub affichage_normal()
     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 affichage_plein_ecran()
     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 Mensajes publicados 42 Estado Miembro
       
      Primero, gracias, f894009; por tu valiosa ayuda.
      Ahora, me gustaría fijar la hoja de tal manera que no se pueda ir a la derecha ni bajar. Mi pregunta es: ¿es esto posible? Gracias de antemano por tus consejos.
      0
    2. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Hola,

      una forma de hacerlo:

      código a poner en el VBA de la hoja definiendo el rango Tabla

      principio: si se selecciona una celda fuera de la tabla, activar la celda A1 

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Intersect(Target, Range("Tabla")) Is Nothing Then
       Range("A1").Activate
       End If
      End Sub
      0
    3. d_a_n Mensajes publicados 42 Estado Miembro
       
      Está genial que hayas congelado la tabla, pero me doy cuenta de que no es la macro la que activa el modo de pantalla completa, sino que soy yo quien lo cierra en pantalla completa y, por lo tanto, se abre en pantalla completa. Si lo cierro desde la parte superior de la hoja (inicio, inserción, diseño de página... así como los submenús; copiar, pegar, etc.), se abre con ello. ¿Es normal?
      0
    4. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Re,

      se debe llamar al código para pantalla completa al abrir el libro de trabajo VBA ThisWorkbook.
      0
  2. Maurice
     
    Hola

    Para bloquear una hoja de cualquier movimiento 

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

    se debe colocar en el VBA de la hoja

    ¡Saludos!
    Maurice
    0
    1. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
       
      Hola y gracias por el código.
      0
  3. d_a_n Mensajes publicados 42 Estado Miembro
     
    Gracias Maurice, eres el mejor.
    ¡Hasta luego!
    0