macro para guardar archivo como solo lectura

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
esto debería servirte:

Public Sub SoloLectura(strArchivo As String)
Dim fso As Object, _
Archivo As Object

On Error GoTo SoloLectura_TratamientoErrores

Set fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = fso.GetFile(strArchivo)
Archivo.Attributes = Archivo.Attributes + 1

SoloLectura_Salir:
On Error Resume Next
Set fso = Nothing
On Error GoTo 0
Exit Sub

SoloLectura_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: SoloLectura de Módulo: Módulo1 (" &
Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume SoloLectura_Salir

End Sub ' SoloLectura

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"javiee" escribió en el mensaje
de noticias news:

Hola, soy nuevo en esto de las macros, pero necesito crear una macro que
me
guarde el archivo como solo lectura, para eso utilice la siguiente:

ThisWorkbook.ChangeFileAccess xlReadOnly

el archivo lo guarda como solo lesctura perfectamente el problema es que
cuando
lo vuelvo a abrir deja de serlo.

__________ Information from ESET Smart Security, version of virus
signature database 6490 (20110924) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 6490 (20110924) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Emilio escribió el 24/09/2011 17:37 :

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
esto debería servirte:

Public Sub SoloLectura(strArchivo As String)
Dim fso As Object, _
Archivo As Object

On Error GoTo SoloLectura_TratamientoErrores

Set fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = fso.GetFile(strArchivo)
Archivo.Attributes = Archivo.Attributes + 1

SoloLectura_Salir:
On Error Resume Next
Set fso = Nothing
On Error GoTo 0
Exit Sub

SoloLectura_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: SoloLectura de
Módulo: Módulo1 (" &
Err.Description & ")", vbCritical + vbOKOnly,
"ATENCION"
Resume SoloLectura_Salir

End Sub ' SoloLectura

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"javiee"
escribió en el mensaje
de noticias news:

Hola, soy nuevo en esto de las macros, pero necesito crear una macro que
me
guarde el archivo como solo lectura, para eso utilice la siguiente:

ThisWorkbook.ChangeFileAccess xlReadOnly

el archivo lo guarda como solo lesctura perfectamente el problema es que
cuando
lo vuelvo a abrir deja de serlo.

__________ Information from ESET Smart Security, version of virus
signature database 6490 (20110924) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature
database 6490 (20110924) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Emilio muchas gracias, por tu interes, pero antes de obtener tu respuesta segui buscando y lo resolvi de la siguiente manera:

SetAttr "C:\Documents and Settings\Javier\Escritorio\Javi\" & Range("D4") & fechaHora & " .xls", vbReadOnly