نقطه ضعف در برنامه LockXLS و راه حلی برای آن ؟

**a.dal65** · 2018/10/14, 13:05

راستی آیا میشه از طریق vba چک کرد که اگه فایلی با نام 1.exe اجرا هست دیگه فایل باز نشه و پیام بده .
؟

**a.dal65** · 2018/10/14, 13:29

پیدا کردم
در work book open

کد HTML:

If IsProcessRunning("1.EXE") = True Then
MsgBox "برنامه قبلا باز شده است", vbCritical + vbMsgBoxRight, "خطا"
ActiveWorkbook.Close savechanges:=False
Else
End If

و این مازول هم اضافه بشه به فایل

کد:

Public Const SW_RESTORE = 9

Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long



Function IsProcessRunning(process As String)
Dim objList As Object

Set objList = GetObject("winmgmts:") _
    .ExecQuery("select * from win32_process where name='" & process & "'")

If objList.Count > 0 Then
    IsProcessRunning = True
Else
    IsProcessRunning = False
End If

End Function

**hasa2** · 2019/05/10, 17:41

ممنون بابت راه کاری که به اشتراک گذاشتید...
حالا که بحث LockXLS شد یه سوال :

جدیدا روی سیستم خودم دیگه فایلهای خروجی exe از این برنامه اجرا نمیشه و خطای زیر رو میده :

---------------------------
File can't be opened. Please make sure that LockXLS Runtime Add-in is not disabled on your PC.
---------------------------
OK
---------------------------

به این مشکل برخورد کردید ؟