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
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
