Mostrar ocultar hojas excel

buenas he visto varios post hablando sobre esto pero no queda claro e visto uno que contesto elsamatilda pero ya no esta

tengo cuatro hojas CÓDIGOS, BASE DE DATOS, INF GENERAL y REGISTRO

al abrir el archivo debe estar visible la hoja INF GENERAL en las hojas cree un botón para ir a las otras hojas que estén ocultas incluso en formato hojas, si presiono el botón base de datos me abrirá la hoja oculta BASE DE DATOS y me ocultara inmediatamente la hoja en que se encuentre en ese momento activa es decir INF GENERAL se oculta solo se muestre la hoja activa y en la de REGISTRO es especial esta para acceder estará protegida con clave con este código que encontré pero no me oculta la hoja al salir de ella

Sub Ir_a_la_hoja3()
'Este mensaje aparecerá cada vez que
'accedamos a la Hoja3
respuesta = InputBox("Introduce el password", "Password")
'si la respuesta introducida es distinta de "tariro-tariro"
'devolvemos al usuario a la Hoja1 (ojo, Hoja3 es el nombre
'interno de VBA, no el nombre visible de la pestaña)
If LCase(respuesta) <> "tariro-tariro" Then
'Vamos a la Hoja1
Hoja1.Activate
'Ocultamos la Hoja3
Hoja3.Visible = xlSheetVeryHidden
Else
'Mostramos la Hoja3
Hoja3.Visible = True
'Vamos a la Hoja3
Hoja3.Activate
End If
End Sub

en otras palabras quiero que solo la hoja activa este visible y las demás ocultas y solo con un botón se puede acceder a ellas