............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Impedir que los usuarios modifiquen Formatos

Ver el tema anterior Ver el tema siguiente Ir abajo

Impedir que los usuarios modifiquen Formatos

Mensaje por GalileoGali el Vie Mar 07, 2008 8:32 pm

Rellenar series es un comando ideal y muy práctico, pero en mano de usuarios que no conocen las opciones o no quieren "conocerlas", puede tornarse una amenaza continua para los formatos (tablas con bordes interiores mutados a bordes exteriores por el arrastre, por ejemplo)
¿Como resolver esto?
con este Código en el Modulo de la Hoja donde sequiera la funcionalidad anulada:

Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.CellDragAndDrop = False
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Impedir que los usuarios modifiquen Formatos

Mensaje por GalileoGali el Miér Mar 12, 2008 8:39 pm

De todas formas si los usuarios realizan la seleccion previamente y van luego a Herramientas >>Opciones>>Permitir Arrastrar y soltar y Tildan True el Check Box, van a poder aun que solo sea por una vez, arrastrar y soltar.
La unica solución que se me ocurre para eso es Inhibir Opciones del Menu Herramientas haciendo correr esta Macro en el Evento WorkBook_Open

Es decir dentro del Módulo Thisworkbook



y dentro del mismo módulo
Código:
Private Sub Workbook_Open()
InhibirOpcionesTools
End Sub

Sub InhibirOpcionesTools()
On Error Resume Next
Dim contr As CommandBarControl
Dim opc As CommandBarButton
Set contr = Application.CommandBars(1).Controls(6)
Set opc = contr.Controls(20)
 opc.Enabled = False
End Sub

y dentro del Evento Before_Close lo siguiente:
Para re-habilitar el Menu Opciones de Herramientas puedes usar este codigo:
Tambien en el módulo ThisWorkbooK

Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RestaurarOpcionesTools
End Sub


Sub RestaurarOpcionesTools()
On Error Resume Next
Dim contr As CommandBarControl
Dim opc As CommandBarButton
Set contr = Application.CommandBars(1).Controls(6)
Set opc = contr.Controls(20)
 opc.Enabled = true
End Sub


Última edición por GalileoGali el Miér Jun 23, 2010 8:09 am, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Impedir que los usuarios modifiquen Formatos

Mensaje por moises melgar el Lun Jun 21, 2010 8:38 pm

Se de que hablas gali, tenia un formato en excel y
gali me puedes pasar un ejemplo de esto en un hoja de excel?????

Lo que sucede es que cuando me dices
"y dentro del Evento Before_Close lo siguiente: " me confundo o me podrias indicar que significa eso
copie los dos en un modujo y cuando ejecute la macro, la verdad no se que paso por que siguen arrastarndose y alteraa el arrastre

gracias galileo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Impedir que los usuarios modifiquen Formatos

Mensaje por GalileoGali el Miér Jun 23, 2010 8:11 am

Se trata del módulo Thisworkbook. Acabo de reeditar mi anterior post agregando código y algunas aclaraciones

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Impedir que los usuarios modifiquen Formatos

Mensaje por moises melgar el Miér Jun 23, 2010 10:22 pm

ahhhhhhhhhhhh, gracias por tu pronta respuesta gracias
como te he dicho antes soy solo un novato en esto.
lo probare inmediatamente
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Impedir que los usuarios modifiquen Formatos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.