Error en macro

Saludos tengo una macro que se dispara cuando cambia el valor de una celda B3, esta macro inicialmete desprotege la Hoja con la clave "XX" y al final vuelve a proteger la misma con la clave "XX".

1 el problema que tengo es que cuando deseo trabajar en la hoja la desprotejo y cualquier cambio o change que realizo en cualquier otra celda diferente a B3 la hoja se protege y no me deja seguir trabajando.

2 Otro problema no me permite copiar y pegar

3 si deseo que la macro funcione solamente para la columna "H" como quedaria la macro

Set area = Range("G:H")

If Range("b3") <> Empty Then

Set area = Range("G:H")

Archivo subido "HOJA PROTEGIDA CON CAMBIO DE CELDA"

HOJA PROTEGIDA CON CAMBIO DE CELDA.xls