Macro para excel para proteger celdas luego de ser guardadas

Deseo poder tener un macro con las siguientes dos posibilidades:

1) una vez que las celdas sean llenadas, el documentos se proteja al guardarlo y no se puedan hacer cambios (a menos que sea con la contraseña etablecida)

2) He podido realizar el siguiente macro, en el cual luego de escribir algo en la celda, ésta se bloquea, pero solamente me ha servido para una sola hoja, cunado trato de hacer lo mismo con otra hoja de excel, el marco deja de funcionar en la primera y segunda hoja. Por eso prefiero que las celdas se protejan al guardar, tomando en cuenta que pueda seguir llenado datos en una nueva hoja, del mismo documento.

El macro que les hablo es el siguiente:

Private Sub
Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K12:AH33")) Is Nothing Then
Exit Sub
Else
If Target.Value <> "" Then
Target.Select
ActiveSheet.Unprotect "CONTRASEÑA"
Selection.Locked = True
End If
ActiveSheet.Protect "CONTRASEÑA",
DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

Gracias y en espera de que me puedan ayudar lo antes posible.