Henry Boom

Respecto a tu duda, el archivo lo puedes mandar llamar directo desde su ubicación. Workbooks.Open Filename:="C:\Users\ktathiridive\Desktop\TU ARCHIVO.pdf"

Prueba este código y modifica el rango en la variable hoj Sub celdasdesproteger() ActiveSheet. Unprotect Beep Dim Estilo, Mensaje, Título, Respuesta Mensaje = "Realmente deseas borrar todos los datos" Título = "¡¡ALERTA!!" Estilo = vbYesNo +...

Eh realizado una pequeña modificación, indiqueme si le funciona. Option Explicit Sub ExtractReps() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Set ws1 = Sheets("Hoja1") 'aqui va el nombre de tu hoja...

Anexo macro que elimina los duplicados de la columna "Email": Sub repetidos() 'Opcional 'Application.ScreenUpdating = False Range("E2").Select Do While Not IsEmpty(ActiveCell) x = WorksheetFunction.CountIf(Range("E:E"), ActiveCell) If x > 1 Then...

Acá te explican como quitar la contraseña espero te ayude. https://www.youtube.com/watch?v=8kt2NThkyUc

Yo no se mucho de macros, pero esto funciona. sub seleccionar() UltimaFila5 = Range("B" & Rows.Count).End(xlUp).Row - 4 UltimaFila1 = Range("B" & Rows.Count).End(xlUp).Row Range("B" & UltimaFila5 & ":B" & UltimaFila1).Select ens sub