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...