Excel - Error 1004

EEn un módulo de VBA para Excel tengo el procedimiento que copio abajo. El VBAProject tiene protección y está bloqueada su visualización. Al ejecutar el código se genera elsiguiente error:

"Se ha producido el error '1004' en tiempo de ejecución:
Error en el método SaveAs de objeto '_Workbook'"

Per SI ANULO LA PROTECCION del VBAProyect el código se ejecuta sin ningún problema.

¿Cómo puedo solucionar el problema para que el código se ejecute con el proyecto bloqueado (se requiere que su visualización esté bloqueada para seguridad del mismo, ya que debe ser usado por varios usuarios).

Este es el código:

Sub GenerarTxt()

Dim ruta As String
ruta = Application.ActiveWorkbook.Path
año = Right(Range("fecha").Value, 4)
mes = Mid(Range("fecha").Value, 3, 2)
Sheets("Base2").Visible = True
Sheets("Base2").Select
ActiveWorkbook.SaveAs Filename:=ruta & "\" & año & mes & "fto394.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
GuardarArchivo
Sheets("FTO394").Select
Sheets("Base2").Visible = False

End Sub

Recuerden: el error se genera si el proyecto está bloqueado. Si lo visualizo se ejecuta sin problema. Editar Mensaje Responder Responder Con Cita Gracias Ar

Aclaro que las variables ruta, mes y año están definidias al principio del módulo:

Option Explicit
Public año, mes ruta as String

Busca en la ayuda : Unprotect y Protect