Amigos espero puedan ayudarme con esto quiero habilitar y deshabilitar la solo lectura via codigo, pero cuando deshabilito se cuelga y se cierra, a veces si funciona pero la mayoria no.

Sub ActivarSoloLectura()

Application.DisplayAlerts = False

If Not ThisWorkbook.ReadOnly Then

ThisWorkbook.ChangeFileAccess xlReadOnly

End If

Application.DisplayAlerts = True

End Sub

Sub DesactivarSoloLectura2()

On Error Resume Next

If ThisWorkbook.ReadOnly Then

With ActiveWorkbook

SetAttr .FullName, vbNormal

.ChangeFileAccess xlReadWrite

Application.DisplayAlerts = False

.Save

Application.DisplayAlerts = True

End With

End If

End Sub

MACRO SOLO LECTURA attr v2 14-4-14.rar

No entendi Bien pero Ahi te subo un archivo, derepente es lo que buscas..

Saludos.!

Libro1.rar

Gracias por la ayuda, pero no quiero proteger el libro con contraseña, sino quiero saber porque cuando desactivo la solo lectura del libro este se cuelga y se cierra, el comando lo voy a utilizar en otra macro pero sino funciona aca menos cuando quiera usarlo en una macro con más codigo.