Proteger libro excel

Hola amigos, quiero proteger una hoja de excel de forma que en la primera hoja denominada "menú" me pida una clave "asesor" y si es correcta se muestren las hojas "cuentas", "gastos", "extras", "hay unas diez mas" y si no es correcta la clave no haya forma de que se puedan ver estas hojas y solo se vea la hoja "menú" y si la clave ha sido correcta que se muestren todas las hojas del libro y cuando cierre el libro se vuelvan a ocultar todas menos la hoja "menú" es lo que se me ocurre per no se como hacerlo, agradecería que me indicarais que pongo en Workbook y que pongo en un modulo si es asi, yo he llegado a poner esto en Workbook

Private Sub Workbook_Open()
Sheets("MENU").Select
Dim MiVar
MiVar = MsgBox("ACABA DE ACCEDER, al estado de cuentas", 64, "INFORMACIÓN")
End Sub
Sub cuentas()
CLAVE_cuentas = InputBox("ESCRIBA SU CLAVE DE ACCESO")
If CLAVE_cuentas = "asesor" Then
Sheets("cuentas").Visible = True
Sheets("gastos").Visible = True
Sheets("ingresos").Visible = True
Sheets("estras").Visible = True
Sheets("menu").Select
Else
MsgBox ("CLAVE INCORRECTA! - NO TIENES ACCESO")
Sheets("MENU").Select
End If
End Sub

pero no se seguir desde aquí y no se si asi como lo tengo seria muy seguro, ya que si no pones la clave y le doy a cancelar me deja mostrar las hojas ocultas.

gracias por la ayuda.