HOLA POR FAVOR NECESITO DE VUESTRA AYUDA. QUIERO EDITAR UN LIBRO COMPARTIDO(1) EN RED POR MEDIO DE OTRO LIBRO (2), ESTOS PUEDEN ESTAR ABIERTOS EN EL MISMO PC. Y LA IDEA ES QUE POR CADA VEZ QUE SE EDITEN QUEDEN GUARDADOS LOS CAMBIOS SIN DEJAR DE COMPARTIR EL LIBRO. TENGO UNA RUTINA PERO CADA VEZ QUE REALIZO LOS CAMBIOS POR MEDIO DEL LIBRO(2) ALGUNAS VECES QUEDA SIN COMPARTIR. AL IGUAL, MI RUTINA IDENTIFICA SI ESTE LIBRO COMPARTIDO ESTA ABIERTO EN EL MISMO PC QUE LIBRO (1), DE MANERA QUE EDITE SIN CERRAR NI DESCOMPARTIR. EN EL CASO DE QUE ESTE CERRADO, ABRA EL LIBRO COMPARTIDO, LO EDITE Y CIERRE SIN DEJAR DE COMPARTIR. NOMBRE LIBRO COMPARTIDO "Preciosv13.xlsm" SALUDOS Y MUCHAS GRACIAS Sub NUMERO_COTIZACION() Dim y As Workbook Dim usuario Dim NUMBER Dim NombreArchivo As String Application.DisplayAlerts = False usuario = Environ("USERNAME") NombreArchivo = "Z:\Preciosv13.xlsm" If IsFileOpen(NombreArchivo) Then ' abierto Workbooks("Preciosv13.xlsm").Activate If ActiveWorkbook.MultiUserEditing Then 'compartido y abierto Workbooks("Preciosv13.XLSm").Sheets("CORRELATIVOS").Range("B1").Value = Workbooks("Preciosv13.XLSm").Sheets("CORRELATIVOS").Range("B1").Value + 1 ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared Else 'no compartido y abierto Workbooks("Preciosv13.XLSm").Sheets("CORRELATIVOS").Range("B1").Value = Workbooks("Preciosv13.XLSm").Sheets("CORRELATIVOS").Range("B1").Value + 1 ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared End If Else 'cerrado Set y = Workbooks.Open("Z:\Preciosv13.XLSm") Workbooks("Preciosv13.xlsm").Activate If ActiveWorkbook.MultiUserEditing Then ' cerrado compartido Set y = Workbooks("Preciosv13.XLSm") Workbooks("Preciosv13.xlsm").Activate y.Sheets("CORRELATIVOS").Range("B1").Value = y.Sheets("CORRELATIVOS").Range("B1").Value + 1 ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared Else ' cerrado no compartido Set y = Workbooks("Preciosv13.XLSm") Workbooks("Preciosv13.xlsm").Activate y.Sheets("CORRELATIVOS").Range("B1").Value = y.Sheets("CORRELATIVOS").Range("B1").Value + 1 ActiveWorkbook.SaveAs filename:=ActiveWorkbook.FullName, accessMode:=xlShared End If End If End Sub ' This function checks to see if a file is open or not. If the file is ' already open, it returns True. If the file is not open, it returns ' False. Otherwise, a run-time error occurs because there is ' some other problem accessing the file. ' Código de macro para comprobar si un archivo ya está abierto ' https://support.microsoft.com/kb/291295/es ' Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer ' On Error Resume Next ' Turn error checking off. filenum = FreeFile() ' Get a free file number. ' Attempt to open the file and lock it. Open filename For Input Lock Read As #filenum Close filenum ' Close the file. errnum = Err ' Save the error number that occurred. On Error GoTo 0 ' Turn error checking back on. ' Check to see which error occurred. Select Case errnum ' No error occurred. ' File is NOT already open by another user. Case 0 IsFileOpen = False ' Error number for "Permission Denied." ' File is already opened by another user. Case 70 IsFileOpen = True ' Another error occurred. Case Else Error errnum End Select End Function

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

GUARDAR COMO LIBRO COMPARTIDO MEDIANTE VBA

Autor del tema juanantoniomillar
Fecha de inicio 8 Oct 2014

juanantoniomillar

New member

8 Oct 2014

HOLA POR FAVOR NECESITO DE VUESTRA AYUDA. QUIERO EDITAR UN LIBRO COMPARTIDO(1) EN RED POR MEDIO DE OTRO LIBRO (2), ESTOS PUEDEN ESTAR ABIERTOS EN EL MISMO PC. Y LA IDEA ES QUE POR CADA VEZ QUE SE...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Guardar libro de excel con fórmulas como sólo valores.

Respuestas: 22

15 May 2023

Miltiño

Pregunta

Macro para guardar tabla dinámica como valores en Libro Existente

Respuestas: 4

28 Mar 2022

Paco_py

Pregunta

Guardar 2 hojas de un libro de excel como csv

Respuestas: 0

19 Dic 2019

kamil0619

Pregunta

Guardar libro (3 hojas) como texto

Respuestas: 3

19 Mar 2017

Dantte666

Pregunta

Macro para guardar como y dar nombre a un libro

Respuestas: 0

7 Mar 2016

Ata

Pregunta

GUARDAR COPIA DE LIBRO COMO .XLSM

Respuestas: 7

19 Abr 2016

Albert_guevara

Pregunta

"guardar como" en un nuevo libro y "salir" del mismo

Respuestas: 2

13 Jun 2012

carolina.lopez

Pregunta

como guardar un libro cn la fecha actual y crear uno nvo

Respuestas: 1

8 Nov 2010

Adrian

Resuelto

Guardar Archivo como PDF usando VB

Respuestas: 2

6 Ene 2026

Marielos Gil

Resuelto

Predeterminar ventana guardar como

Respuestas: 10

16 Ago 2025

Roberto2010

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba