Expertos la siguiente macro me falla cuando debo proteger nuevamente la hoja

Estimados, favor su cooperación logrear adecuar la siguiente macro pero la hoja que ocupo debe permanecer siempre protegida para que no puedan cambiar los datos de la hoja cuando envían el correo. Pero cuando incorporo la instrucción de bloquear hoja me arroja un mensaje y no logro hacerlo de otra forma

Sub correoeuros()
Sheets("hoja1").Select
'selecciona la hoja
Sheets("hoja1").Unprotect "2013" 'Desproteje la hoja
ActiveSheet.Range("B1:F34").Select 'Selecciona el rango a despachar
ActiveWorkbook.EnvelopeVisible = True 'Abre el correo
ActiveSheet.MailEnvelope.Item.To =Range("G4").Text 'Destinatario
ActiveSheet.MailEnvelope.Item.Subject =Range("G1").Text 'Asunto
ActiveSheet.MailEnvelope.Item.display 'Mostrarmail para que el usuario lo envíe
'ActiveSheet.MailEnvelope.Item.displayenviar mail

Sheets("hoja1").protect "2013" 'protege la hoja
End Sub

Añade tu respuesta

Haz clic para o