Macros con hojas y libro bloqueados

Luis buenas noches, espero se encuentre bien!!!

Le escribo por lo siguiente: Tengo varias macros en este libro que estoy creando, en el cual me a ayudado bastante, pero me enfrento a que para poner en marcha este libro debo protegerlo ante cambios que quieran hacerle... En ese orden de ideas cuando bloqueo la hoja y/o libro (debo bloquearlos ambos) las macros me generan error. Te copio una de ellas solicitando ayuda a tu conocimiento y me hagas el favor de decirme que estoy haciendo mal:

En negrilla fue lo que le inserte en busque que ella misma desbloqueara la hoja y/o libro y luego de terminar la macro la volviera a bloquear:

Sub CM_Gen()
'
' Password for Editing

'

ActiveSheet.Unprotect Password:="contraseña"

Dim strName As String

strName = InputBox(Prompt:="Password.", _
Title:="Authorization", Default:="*****")
If strName = "*****" Or _
strName = vbNullString Then

Exit Sub

Else

Select Case strName
Case "Urban2012"
Sheets("CM Gen").Visible = True
Sheets("CM Gen").Select
Range("B6").Select
End Select

End If

End Sub