Para KL - Macro q pida clave

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