Macro de excel para bloquear celdas modificadas al guardar libro
Tengo un libro de excel que funciona con fórmulas y me sirve para llevar registro de todo lo que los empleados van sacando del almacén, ya logré que se registre la fecha automáticamente y listas desplegables, etc... Lo que ahora necesito es que al modificar una celda específica y de "guardar" al archivo, esa celda junto con toda la línea se bloquee dentro del rango utilizado.
Encontré el macro de Dante Amor y está excelente, es justo lo que necesito, pero al momento de agregarlo a mi documento simplemente no funciona, guardo archivo, cierro y abro de nuevo y aún puedo modificar la línea :S
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
Set h1 = Sheets("FOLIOS")
h1.Unprotect "abc"
h1.Cells.Locked = False
h1.UsedRange.Locked = True
h1.Cells.SpecialCells(xlCellTypeConstants, 23).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
End SubUtilizo office 2013, si eso ayuda en algo
