Para KL - Macro q pida clave

17/01/2005 - 16:55 por Daniel | Informe spam

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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

MAcro q pida clave

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