Macro que al guardar el archivo Excel bloquee una hoja que fue modificada sin bloquear otras hojas del mismo archivo

Vamos a ver si me puedo explicar bien, necesito realizar una macro que al guardar el archivo Excel se bloquee la hoja que se modifico para que otro usuario no pueda modificar los datos nuevamente, pero que no bloquee las demás hojas del libro que aun no hayan sido modificadas (en total son 14 hojas que posee el libro), para ello tengo un código que el amigo Dante Amor compartió en otra pregunta “Macro que se ejecute al guardar el archivo de Excel”, realice una modificación que el amigo Dante Amor me sugirió para que realizara un bucle pero se bloquean todas las hojas del libro, espero me puedan ayudar, el código que estoy colocado seria así:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
For Each h1 In Sheets
h1.Unprotect "abc"
h1.Cells.Locked = False
h1.UsedRange.Locked = True
h1.Protect "abc", _
DrawingObjects:=False, Contents:=True, _
Scenarios:=False, AllowFormattingCells:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingColumns:=True, AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True
Next
End Sub

Añade tu respuesta

Haz clic para o