Macro que se ejecuta con libro y hoja bloqueada

Buenas noches, espero se encuentren bien!!!
Le escribo por lo siguiente: Tengo varias macros en este libro que estoy creando, en el cual me han 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. Les copio una de ellas solicitando ayuda a sus conocimientos y solicitando 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 Facturación()
'
' Password for Editing Áreas
'
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("Facturación").Visible = True
Sheets("Facturación").Select
Range("A7").Select
End Select
ActiveCell.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Scenarios:=True
ActiveSheet.Protect Password:="contraseña"
End If
End Sub