Problema para compartir libros con Macros en Excel

Tengo una archivo de excel que tiene muchas macros entre estas filtros avanzados, cuando comparto el libro no me corren las macros que tiene el archivo y me dice que el error está en advancefilter.

1 respuesta

Respuesta
1
Pues los libros compartido tienes algunas restricciones y si no me equivoco los "filtros avanzados" son una de ellas
Abraham
Si, efectivamente al parecer esa es una restricción de compartir libro, pero en este mundo de la tecnología tan avanzada, donde todo es posible, ¿de pronto ustedes saben de alguna solución?, que no implique la eliminación del la macro con filtro avanzado, por ejemplo una macro que cuando utilice el archivo no comparta el libro y cuando lo monte en la red lo comparta, es sólo una suposición...
Gracias por su atención y pronta respuesta
Pues si, existe un modo. Te dejo un ejemplo, lo acabo de hacer rapidito, pero creo que si se entiende:
'quitamos alertas
Application.DisplayAlerts = False
'evaluamos si el libro esta compartido
If ActiveWorkbook.MultiUserEditing Then
'si esta compartido, lo ponemos en modo exclusivo para usar los filtros avanzados
ActiveWorkbook.ExclusiveAccess
'filtro avanzado
Range("A3:C10").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:C2"), Unique:=False
'guardamos el libro nuevamente como compartido
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If
'activamos alertas
Application.DisplayAlerts = True
Abraham

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Compartir libros con macros

Yo cree un archivo donde se corren marchos, el problema es que varios usuarios deben de acceder a ese archivo, no tengo problemas con eso por que le pongo compartir, el problema es que me da un error de macros, por según el error no se pueden...
3 respuestas

Quiero que un archivo Microsoft Excel compartido en una red solo pueda estar abierto por un usuario

Explico mi problema: utilizamos un archivo excel que puede ser abierto por cualquier usuario de la red, pero cuando otro ya lo tiene abierto necesito que ningún otro usuario lo pueda abrir, ni siquiera en solo lectura ¿Es eso posible?
1 respuesta

Hola necesito poner en cola otros usuarios ..

Y aparente mente de los mejores,,, Tengo una pregunta: tengo una macro trabajando en 7 equipos diferentes conectados en red esta macro abre un archivo único y le información para cada macro en cada equipo pero tengo un problema, cuando dos personas...
1 respuesta

Error 1004 en tiempo de ejecución: Error en el método Subtotal de la clase Range.

Tengo una macro que envía este mensaje cuando comparto el libro donde esta guardada: "Se ha producido el error '1004' en tiempo de ejecución: Error en el método Subtotal de la clase Range." El código es este: Sub SubTotporProyecto()...
1 respuesta

Excel Error definido por la Aplicación o el Objeto

Tengo error '1004' en tiempo de ejecución: Error definido por la Aplicación o el Objeto Sub BUSCAR_REGISTROS() Dim frm As Worksheet Set frm = Sheets("CXP BASE") ' BUSCAR_REGISTROS ActiveCell.Offset(-6, 3).Range("A1").Select ActiveCell.Offset(6,...
1 respuesta

Macro para filtrar y elegir columnas y filtros

Tengo una tabla y quiero agregar al rededor de 10 a 15 opciones para elegir filtrar por columna y criterio. Pareciera que puedo usar filtros avanzados pero uso listas desplegables entonces me sirve mas elegir un valor y un criterio para poder...
1 respuesta

Como filtrar a partir de celdas constantes(macro o fórmula)

Como se puede filtrar(con fórumulas o macros) lo siguiente: Tengo una tabla llamada SOS, la cual tiene filtro de diferentes sku's Quiero filtrar tomando dos criterios: A1(que especifique en que columna filtrar), y B1(especifique el valor a filtrar),...
2 respuestas

Copiar De una hoja a otra datos determinados

Y a ver si me podéis ayudar porque llevo mucho rompiéndome la cabeza con esto y no consigo saber si se puede hacer. Tengo un libro con dos hojas. En la primera (Hoja 1) Tengo una "base de datos" en la que en la que: Columna A :Nombre productos;...
1 respuesta

Invertir selección de copia

Sub Imprifactura() Range("A2").Select Columns("A:M").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "U1:U2"), CopyToRange:=Range("V1:AH1"), Unique:=False Sheets("Impremir").Activate End Sub Esta macro me copia según criterio "U1:U2" y...
1 respuesta