Impresion con macros

18/09/2004 - 19:15 por Dany Padilla | Informe spam
Un buen amigo me paso las macros para q automaticamente me
imprima las areas q yo necesito y las otras no, las macros
funcionana bien pero cuando la hoja no esta protegida y yo
necesito q funcione cuando la hoja esta protegida ya q los
datos q estan en dicho rangos no pueden cambiarse y
obligatoriamente debe estar protegida la hoja, cuando lo
ejecuto me sale error, alguien me podria ayudar si hay una
solucion les agradeceria mucho


Sub Macro1()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("E:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("E:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro2()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("F:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("F:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro3()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
Columns("G:I").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("G:I").EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub


Sub Macro4()
ActiveSheet.PageSetup.PrintArea = "$B$2:$Q$29"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.DisplayAutomaticPageBreaks=False

End Sub

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
23/09/2004 - 07:25 | Informe spam
hola, Daniel !

... [de las +/- 200 hojas, +/- 80 con clave pero] ... no todas ... la misma clave [...]
... alguna manera ... clave ... no la puedan cambiar [...]



-> para las claves 'diferentes'... se podria usar matrices para 'casar' hojas con claves
-> para que NO 'puedan modificar' las claves... se 'requiere'
-> modificar la interfase del usuario [para inhabilitar 'ciertos' comandos]
[solo se podria usar ->la clave asignada<- a cada hoja]
-> diseñar un formulario para 'solicitar' cada clave [quizas 'segun' un nombre del usuario]
-> una lista de usuarios->hojas->claves
-> [no se 'que mas' vaya a surgir durante 'la marcha']

¿comentas datos adicionales?
saludos,
hector.
Respuesta Responder a este mensaje
#7 Daniel
23/09/2004 - 21:43 | Informe spam
Jejejeje no entendi si se puede o no
Saludos
Daniel
Respuesta Responder a este mensaje
#8 Daniel
23/09/2004 - 22:05 | Informe spam
Hector una consulta como se hace para q no se vean los encabezados de filas y
columnas en todas las hojas del libro y q tampoco se vean las etiquetas de
hojas, se q si se va a opciones se puede sacar el check de estas y
desaparecen pero si quisiera q nadie las active como puedo impedir ello hay
una forma mediante una macro o algo espero me puedas ayudar, y bueno sobre lo
de las claves pues no me quedo claro si se puede o no asignar una unica clave
a cada hoja espero tus comentarios
Respuesta Responder a este mensaje
#9 Héctor Miguel
24/09/2004 - 03:25 | Informe spam
hola, Daniel !

... q no se vean los encabezados de filas y columnas en todas las hojas del libro
... q tampoco se vean las etiquetas de hojas
... q nadie las active ... impedir ello ... mediante una macro [...]
... no me quedo claro si se puede o no asignar una unica clave a cada hoja [...]



1.- los encabezados de fila/columna corresponden a la propiedad 'displayheadings'
'aplicable' a un objeto 'window' que se refiere a la ventana ->de la hoja [de calculo] activa<-
[para 'esto', se necesita 'ir haciendo un recorrido/barrido' ->por cada hoja de calculo<- en el libro]
2.- las etiquetas de [nombres de] hoja corresponden a la propiedad 'displayworkbooktabs'
'aplicable' a un objeto 'window' que se refiere a la ventana ->del libro activo<-
3.- para que 'nadie' las pueda activar de nuevo... se requiere...
o... 'impedir' el acceso al usuario ->inhabilitando los 'comandos/menus/herramientas'<-
->'cosa' que pudiera requerir -ademas- de 'otro tipo' de 'protecciones'<-
o... estar 'machacando' a ponerlas en 'falso' en el evento '_selectionchange' de la/s hoja/s
-> 'cosa' que pudiera resultar en algo 'molesto' para -algunos de- los usuarios <-
4.- SI es posible asignar 'diferentes' claves a 'diferentes' hojas, lo que se necesita es...
saber ->'cual/es' clave/s<- se aplicara/n ->a 'cual/es' hoja/s<-
y utilizar el evento '_open' del libro para hacer 'el barrido' por las hojas y 'aplicar' las claves

te expongo un ejemplo para hacer un 'barrido' por las hojas de un libro con los tabs y encabezados
[estoy sugiriendo una funcion 'switcheable' para que puedas -a voluntad- mostrar/ocultar los elementos]
si cualquier duda... ¿comentas?
saludos,
hector.
una linea de codigo dentro de cualquier procedimiento para 'llamar' a la funcion ==a) para 'ocultar' los tabs y los encabezados...
[... otras lineas de codigo ...]
Mostrar_TabsEnc False
[... otras lineas de codigo ...]
b) para 'mostrar' los tabs y los encabezados...
[... otras lineas de codigo ...]
Mostrar_TabsEnc True
[... otras lineas de codigo ...]
la funcion en un modulo de codigo 'normal' ->privado<- ==Option Private Module
Function Mostrar_TabsEnc(ByVal Mostrar As Boolean)
Dim Hoja As Worksheet, Volver_A As String
Volver_A = ActiveSheet.Name
With Application
.ScreenUpdating = False
' .DisplayScrollBars = Mostrar
End With
ActiveWindow.DisplayWorkbookTabs = Mostrar
With ActiveWorkbook
For Each Hoja In .Worksheets
Hoja.Activate
With ActiveWindow
' .DisplayGridlines = Mostrar
.DisplayHeadings = Mostrar
End With
Next
' If Mostrar Then .Protect "aBc", True, True Else .Unprotect "aBc"
End With
Sheets(Volver_A).Activate
End Function
Respuesta Responder a este mensaje
#10 Daniel
25/09/2004 - 19:27 | Informe spam
Bueno si tengo varias dudas donde pongo esas lineas de codigos q me has
mandado, si te mando un pequeño ejemplo de mi archivo para q veas como es, te
parece? asi puedo entender donde pongo todo eso gracias de antemano

"
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida