Como deshabilitar el double click a la opción de minimizar tamaño y al doble clic para minimizar
buenos días gente extraordinaria en excel
me gustaría saber si alguien sabe como deshabilitar en excel 2007 la opción de minimizar tamaño el botón cuadrado de excel y el doble click para la pestaña mediante una macro, y en que parte de la codificación iría puesto que al hacer una persona cualquiera click en el cuadradito de minimizar el tamaño y el double click en la pestaña que es también minimizar el tamaño me salga un mensaje diciendo que esta deshabilitado la función restaurar tAmaño
esto lo digo por que al poner en full screen la ventana me oculta la cinta de opciones pero si hacen uso de el botón minimizar tamaño oo hacer doble click en la pestaña se vuelve a mostrar la cinta de opciones eso es lo que quiero evitar que se muestre la cinta de opciones
nota: tener presente que en excel hay dos minimizar tamaño uno que pertenece al libro y el otro que pertenece a excel el que esta superior con referencia a lo anterior mente dicho . Lo que desearía es de lo ultimo dicho de ese botón minimizar tamaño o doble click en la pestaña que hace que minimize el tamaño se bloquee mediante una macro y muestre un mensaje
gracias gente todo expertos
1 respuesta
Prueba esto:
Esta basado en el uso de un cronometro, seteado a intervalo de 1 segundo( aprox)
Cada pasada del cronometro pasa a true el valor para displayfullscrenn del libro
Obligando asi a estar siempre fullscreen
el sub consta de 3 macros
1 iniciarcronometro
2 cronometro
3 detienecronometro
Esto lo pones en un modulo:
Option Explicit
Public InicialTime As Date
Public EarlTime As Date
'CRONOMETRO
Sub IniciaCronometro()
InicialTime = Now
Cronometro
End Sub
Sub Cronometro()
EarlTime = Now + TimeSerial(0, 0, 1)
Application.OnTime EarlTime, "Cronometro"
Application.DisplayFullScreen = True 'MANTIENE FULLSCREEN
End Sub
Sub DetieneCronometro()
On Error Resume Next
Dim C As Variant
'4c7569735f50
C = InputBox("Contraseña", "detener cronometro", 1234)
If Len(Trim(C)) = 0 Then Exit Sub
If Trim(C) = "1234" Then
Application.OnTime EarlTime, "Cronometro", , False
Application.DisplayFullScreen = False
End If
End Sub
y en el objeto thisworkbook pones esto:
Private Sub Workbook_Open()
IniciaCronometro
End Sub
Grabas y ya esta. Al abrir el libro se pasara a fullscreen y se mantedra asi hasta que ejecutes el macro detienecronometro
Este ultimo macro te pedira un password este password es 1234, luego obviamente tu lo cambias, al accesar bien el passwotrd se detendra el cronometro y pasara el libro a display normal.
El tema principal para que esto funciones 100% es que desde el editor de proyecto grabes el codigo con password de lo contrario alguien podria sencillamente entrar al editor con alt+f11 y detener la ejecutarlo
Para guardar el proyecto con password, desde el editor vas a herramientas - propiedaddes de vbaproyect, luego a la ficha proteccion y completas los datos
Tanto los textboc como clicar sobre el checkbox de visualizacion del proyecto, asi si alguien dese ver el codigo no podra a menos que ingrese el password
