COMO PONER PANTALLA EN MODO BLOQUEO

[jesuspg]

Hola compañeros,

Necesito que al pulsar sobre un botón y ejecutar una macro, se quede bloqueada toda la pantalla y no pueda acceder ni a la cinta de opciones ni al menú de acceso rápido, así como abrir las hojas del libro.

He adjuntado una imagen, para ver si se puede apreciar mejor.

Debe ser algún método de la clase application, pero no sé cuál...

Sub BloquearLibro()

   application.(no sé qué método) = true

End Sub

Gracias.

[Abraham Valencia]

Hola

¿Esa imagen es tuya o la viste "por ahí"? En Excel, y en informática en general, una imagen NO vale más que mil palabras. Igual ve probando con proteger el libro y la o las hojas que en parte logran lo que se ve ahí de deshabilitar las opciones de la Cinta. Del mismo modo en la pestaña "Vista" puedes quitar la barra de fórmulas y otras cosas. Saludos.

[Gerson Pineda]

Esa pantalla aparece cuando cierras una instancia de Excel con VBA

Respecto a tu duda, pues debes investigar un poco mas como proteger el libro y su estructura y por otro lado deshabilitar el Ribbon, tal como te lo menciona @avalencia

 

Saludos a ambos!

[Jose BN]

Sub nomuestra()
Application.DisplayFormulaBar = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayGridlines = False
End With
End Sub

Por si te puede aportar algo.

Sub nomuestra()

ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")

End Sub