Abrir un libro Excel por macro vba y cambiar de modo lectura a escritura

A ver si alguien puede ayudarme en esta parte

Tengo un libro llamado base de datos, que por modo de seguridad, siempre se abre en modo lectura.

Por otro lado, estoy creando una macro que abra ese archivo, quite el modo lectura y modifique una celda. Pero no me sale. Dejo aquí el código por si alguien me ayuda a arreglarlo.

Private Sub MODIFICAR_Click()

Dim Fila As Object
Dim Ruta As String
Dim Archivo As String
Dim Libro As Workbook
Dim HojaDatos As Worksheet
Dim Hoja As String

Ruta = "C:\Users\Jorge L. Sosa\Desktop\MIVED\"
Archivo = "BASE DE DATOS.xlsm"
Hoja = "PROYECTOS"

Set Libro = Workbooks.Open(Ruta & Archivo, UpdateLinks:=False, Notify:=False)
Application.ScreenUpdating = False

Libro.ChangeFileAccess xlReadWrite

Set HojaDatos = Sheets(Hoja)

HojaDatos.Range("C3").Value = FECHA2.Value

Libro. Save
Libro. Close

End Sub

El problema es que el modo lectura no se quita. Por ende no me deja guardar el archivo con los cambios.

1 respuesta

Respuesta

Prueba cambiando el parámetro ReadOnly:=False

Private Sub MODIFICAR_Click()
  Dim Fila As Object
  Dim Ruta As String
  Dim Archivo As String
  Dim Libro As Workbook
  Dim HojaDatos As Worksheet
  Dim Hoja As String
  Ruta = "C:\Users\Jorge L. Sosa\Desktop\MIVED\"
  Archivo = "BASE DE DATOS.xlsm"
  Hoja = "PROYECTOS"
  Set Libro = Workbooks.Open(Ruta & Archivo, UpdateLinks:=False, ReadOnly:=False, Notify:=False)
  Application.ScreenUpdating = False
  Set HojaDatos = Sheets(Hoja)
  HojaDatos.Range("C3").Value = FECHA2.Value
  Libro. Save
  Libro. Close
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas