Estás usando un navegador desactualizado. Es posible que no muestre este u otros sitios web correctamente. Debe actualizar o usar un navegador alternativo.
Sub ChkFileStatus()
' Test to see if the file is open.
If IsFileOpen("C:\Users\purin\Downloads\Book1 - Copy.xlsx") Then
' Display a message stating the file in use.
MsgBox "Archivo Abierto!"
Else
' Display a message stating the file is not in use.
MsgBox "Archivo cerrado!"
End If
End Sub
' This function checks to see if a file is open or not.
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next
filenum = FreeFile()
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err...
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í
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í
Sub ChkFileStatus()
' Test to see if the file is open.
If IsFileOpen("C:\Users\purin\Downloads\Book1 - Copy.xlsx") Then
'...
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í
Perfecto estimado de maravilla he estado investigando, seria de gran ayuda saber el usuario que tiene abierto el libro exce aun que se que con EVIRON("USERNAME") logro saber el usuario pero solo...
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í
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í
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.