Macro para bloquear y desbloquear hoja

Esto tal vez te aporte algo más, el ejemplo muestra un userform que solicita password para ocultar una celda, tal vez puedas adaptar lo que requieres y en vez ocultar celda puedas bloquear o desbloquear hojas, tal cual te lo indicaron en la respuesta anterior

https://youtu.be/GsEU-yDUJwI 

suscribe https://youtube.com/programarexcel.com 

Para desbloquear la hoja

Sheets("Hoja1"). Unprotect

Si la hoja está protegida con password

Sheets("Hoja1"). Unprotect "abc"

Para proteger

Sheets("Hoja1"). Protect

Si la vas a proteger con password

Sheets("Hoja1"). Protect "abc"

Por ejemplo

Sheets("Hoja1"). Unprotect "abc"

'

'en esta parte el llamado a tu macro

Call macroX

'

Sheets("Hoja1"). Protect "abc"

.

.