condicionante con clave

Quizás en el Workbook_Open de tu libro...

'*******************************************
Private Sub Workbook_Open()
Dim Clave as String

Clave = Trim(Inputbox ("Teclee la clave de acceso:")

Select Case Clave
Case "UnaClave": Sheets("UnaHoja").Activate
Case "OtraClave": Sheets("OtraHoja").Activate
'...
'...
'...
Case Else : Msgbox "No ha tecleado una clave correcta":
Thisworkbook.Close
End Select
'***********************************************

"alberto corrales" escribió en
el mensaje news:

Hola... solicito su ayuda para saber si se puede que en excel al inicio
cuando se abra el archivo de excel... solicite una clave, por asi decirlo,
si
la clave es "AA" entonces me pase a la hoja2 ; y si la clave es "BB"
entonces
me pase a la hoja3...


mil gracias... por su ayuda...

gracias por la ayuda pero copie todo tal y como esta pero produce un
error... no se si es mucha molestia enviarmelo de nuevo...

abusando de tu confianza, en repuestas anteriores, le ayudaste a una persona
a ampliar excel de acuerdo a la resolucion del monitor... y si pudieras
orientarme... te lo agradeceria...

gracias...

No debeis copiar todo como lo puse yo.
Es sólo un ejemplo, hay que adaptarlo a los nombres reales de tus hojas y
poner tus propias passwords.
Si quieres mandame los nombres de tus hojas y algunos passwords de ejemplo
que después podreis cambiar,
Y en cuanto a redimensionar la aplicación al monitor, en que tienes duda?

"alberto corrales" escribió en
el mensaje news:

gracias por la ayuda pero copie todo tal y como esta pero produce un
error... no se si es mucha molestia enviarmelo de nuevo...

abusando de tu confianza, en repuestas anteriores, le ayudaste a una
persona
a ampliar excel de acuerdo a la resolucion del monitor... y si pudieras
orientarme... te lo agradeceria...

gracias...

Hola
Ya veo cual es el fallo de este código.
le falta un cierre de parentesis ")" en la tercera linea
y la finalización de código "End Sub"
Pongo el código de Roberto corregido:

Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "UnaClave": Sheets("UnaHoja").Activate
Case "OtraClave": Sheets("OtraHoja").Activate
'...
'...
'...
Case Else: MsgBox "No ha tecleado una clave correcta":
ThisWorkbook.Close
End Select
End Sub

Mucha razón Jose.
A veces pensamos que todos los 'foreros' estamos familiarizados con el
código VBA.
EL ejemplo se lo puse a Alberto pensando en que él sólo le daría un ajuste
fino.
Una disculpa por ello

Saludos!!


"~ jose ~" escribió en el mensaje
news:
Hola
Ya veo cual es el fallo de este código.
le falta un cierre de parentesis ")" en la tercera linea
y la finalización de código "End Sub"
Pongo el código de Roberto corregido:

Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "UnaClave": Sheets("UnaHoja").Activate
Case "OtraClave": Sheets("OtraHoja").Activate
'...
'...
'...
Case Else: MsgBox "No ha tecleado una clave correcta":
ThisWorkbook.Close
End Select
End Sub