Por que falla desactivado de solo lectura via codigo vba?

[Carlos Grados Ames]

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

[riverts]

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

Saludos.!

Libro1.rar

[Carlos Grados Ames]

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.