calvuch respondió:
Acá los macros En un modulo pones esto: Sub proteccion() Dim n As Long ' contar elementos n = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) + 1 'desbloquea hoja ActiveSheet.Unprotect Password:="1234" 'desbloquea celda sgte Range("A" &...