Cita:
Iniciado por David 
Puedes crear la macro en otro archivo excel y agregar el siguiente código:
Código:
Dim xlsBook As Workbook
Dim xlsSheet As Worksheet
Set xlsBook = Workbooks.Open("C:\archivo.xls")
Set xlsSheet = xlsBook.Worksheets("Hoja a desbloquear")
Y sustituye Activesheet por xlsSheet.
Espero que te sirva. Saludos
Hola David, a mi me sale todo bien pero tengo un problema pues en el archivo que tengo no aparecen los nombres de las hojas a desactivar con el código adicional.
Si tuvieras alguna solución al respecto te lo agradeceré.
Saludos.