Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Para KL - Macro q pida clave

17/01/2005 - 16:55 por Daniel | Informe spam
Ayuda Hacer una pregunta
Hola KL probe tu codigo pero no me funciono no se q hice mal te mando mi codigo

Private Sub Macro1()
ActiveSheet.Unprotect "gilestel" 'Desprotege

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

ActiveSheet.Protect Password:="gilestel" ' Vuelve a proteger

End Sub

Este codigo lo tengo en un modulo, puse el codigo como me dijistes, adjunto
tu codigo pero no me funciono me podrias ayudar uso excel XP con los tres
services pack gracias de antemano

Dim Pass As String
Pass = "Micontrasena" '<=Pon tu contasena aqui entre comillas
If InputBox("Contrasena:", "Acceso Restringido") <> Pass Then
MsgBox "Acceso denegado."
Exit Sub
End If
'...tu codigo
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
17/01/2005 - 18:00 | Informe spam
Daniel,

Perdona, es q no te lo explicado muy bien. Lo q te puse eran lineas de
codigo a incluir al principio de tu macro. Prueba sustituir tu macro con lo
siguiente.

Saludos,
KL

Private Sub Macro1()
Dim Pass As String
Pass = "gilestel" '<=Pon tu contasena aqui entre comillas
If InputBox("Contrasena:", "Acceso Restringido") <> Pass Then
MsgBox "Acceso denegado."
Exit Sub
End If

With ActiveSheet
.Unprotect Pass 'Desprotege
.PageSetup.PrintArea = "$C$2:$Z$29"
.Columns("G:Q").EntireColumn.Hidden = True
.PrintOut Copies:=1
.Columns("G:Q").EntireColumn.Hidden = False
.PageSetup.PrintArea = ""
.DisplayAutomaticPageBreaks = False
.Protect Pass ' Vuelve a proteger
End With
End Sub


"Daniel" wrote in message
news:
Hola KL probe tu codigo pero no me funciono no se q hice mal te mando mi
codigo

Private Sub Macro1()
ActiveSheet.Unprotect "gilestel" 'Desprotege

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

ActiveSheet.Protect Password:="gilestel" ' Vuelve a proteger

End Sub

Este codigo lo tengo en un modulo, puse el codigo como me dijistes,
adjunto
tu codigo pero no me funciono me podrias ayudar uso excel XP con los tres
services pack gracias de antemano

Dim Pass As String
Pass = "Micontrasena" '<=Pon tu contasena aqui entre comillas
If InputBox("Contrasena:", "Acceso Restringido") <> Pass Then
MsgBox "Acceso denegado."
Exit Sub
End If
'...tu codigo

Preguntas similares

 

Busqueda sugerida :