hola estoy programando en excel y hise una pagina inicial en la cual le puse varios botones los cuales al apretar se ejecutan unos macros

yo lo que necesito es ponerle un password a esos botones para que no cualquiera pueda ejecutarlos

no se me ocurrio nada de como ponerles ese pass

lo que pude hacer con mis pocos conocimientos del tema fuelo siguiente

En ThisworkBook Puse asi:

Private Sub Workbook_Open()
ActiveWorkbook.Unprotect "AMIGO"
clave1 = InputBox("Ingrese contraseña")
If clave1 <> "" Then
Select Case clave1
'aquí irian todas las claves y las hojas que se abren para cada una de ellas
Case "AMIGO"
Sheets("Hoja1").Visible = True
Sheets("Hoja2").Visible = True
Sheets("Hoja3").Visible = True
Sheets("Hoja4").Visible = True
Sheets("Hoja5").Visible = True
Case "PRECIOS"
Sheets("Hoja1").Visible = True
Sheets("Hoja2").Visible = False
Sheets("Hoja3").Visible = True
Sheets("Hoja4").Visible = False
Sheets("Hoja5").Visible = False
'otras claves

End Select
End If
End Sub


Esto lo que hace es al abrir me pide que ingrese contraseña si pongo AMIGO puedo entrar en las 5 hojas y si pongo PRECIOS solo se abren las hojas 1 y 3 si pongo otra cosa o nada queda en la hoja 1 (para eso hise en el modulo que abajo pongo que al cerrar oculte las hojas 2, 3, 4 y 5

Ahora esta el problema que no se como hacerlo

por mas que le ponga password a cada hoja con esto ebito que me las modifiquen

pero se pueden aceder desde las pestañas mostrar hojas

yo lo que necesito es que no se vean las hojas 3, 4 y 5 a menos que les de la contraseña y que me diga al poner mal la contraseña o al apretar canselar salga un mesaje tipo husted no tiene permiso para entrar o algo asi igualmente cuando no pongan contraseña

espero que se entienda
utiliso el excel 2007


CREE UN NUEVO MODULO


Sub Auto_close()
Sheets("Hoja2").Visible = False
Sheets("Hoja3").Visible = False
Sheets("Hoja4").Visible = False
Sheets("Hoja5").Visible = False

End Sub

si alguno conose otra mejor opcion que la que yo hise espero me la pueda espricar
desde ya gracias y un saludo a los amigos de yoreparo