Macros para contraseñas

Puedes usar el evento BeforeClose o BeforeSave del libro, y utilizar un
codigo como este:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
miPass = InputBox("Introduce la contraseña", "Proteger hoja", "")
ActiveWorkbook.Worksheets("Hoja1").Protect miPass
End Sub

Para activarlo, abre la hoja de codigo del libro (boton derecho en el icono
de Excel a la izquierda del menu Archivo, opcion ver codigo), copia el codigo
de arriba y cambia la "Hoja1" por el nombre de la hoja que quieras proteger.

Espero que te sirva,
Miguel.

"Sofía" wrote:

buenas de nuevo y gracias por anticipado.

El problema que tengo es el siguiente.

Yo a mis alumnos les paso una hoja de cálculo con preguntas tipo TEST,
(ELLOS CONTESTAN EN LAS CASILLAS CORRESPONDIENTES LA OPCIÓN DESEADA).

Lo que me gustaría que hiciese la hoja de cálculo sería que al cerrarse, le
preguntase una contraseña para proteger la hoja de posibles cambios. De tal
forma que se pueda abrir ( y ver las respuetas), pero que no pueda cambiar
ningún valor.

Así no podrían alegar que he realizado algún cambio

Muchas gracias por todo.

Sofñia