Macro para bloquear línea después de modificar celda
Te envío un saludo:
Encontré tu macro que hace exactamente lo que necesito pero no he logrado echarlo a andar, copio y pego el código dentro de mi archivo, hago las modificaciones pertinentes de contraseña y nombre de hoja, protejo el archivo y hago las pruebas y aún así no funciona, no encuentro ningún error y VBA tampoco muestra ninguna advertencia.
Este es el Macro del que te hablo:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
Set h1 = Sheets("FOLIOS")
h1.Unprotect "123"
h1.Cells.Locked = False
h1.UsedRange.Locked = True
h1.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
h1.Protect "123", _
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 SubUso Excel 2013, si eso ayuda en algo.
1 Respuesta
Respuesta de Dante Amor
1
La macro funciona bien.
¿Estás poniendo la macro en los eventos de ThisWorkbook?
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- En el panel del lado derecho copia la macro
Nota: Si quieres proteger solamente las celdas que contienen información, entonces quita esta línea:
h1.Cells.Locked = False
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
