ایجاد فایل exe برای low security برای access

[hamid-nice]

با سلام

یک کدی هست که برای low security کردن فایل های access بکار میره و کدش را در یک دگمه قرار می دهیم و با زدن این دگمه فایل مشخص شده به low security تغییر می کند

ممکنه یکی لطف کنه یک فایل exe با ویژوال بیسیک یا ویژوال c یا Delphi یا هر برنامه دیگر exe سازی ، برای این کار بسازه

که کار کدهای اکسس زیر را انجام بده

واقعا همه بچه های اکسس ممنون می شیم



Dim strSourcefile As String
'strSourcefile = "Full path of file"
strSourcefile = CurrentProject.Path & "\01.mdb"

' or ( for other address file like sample.mdb in Drive C ) is : strSourcefile = "c:\sample.mdb"

'Const cDatabaseToOpen = "strSourcefile"


On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 10 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase strSourcefile
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit

"دسترسی به فایل مورد نظر ممکن نیست" MsgBox

End If




با تشکر فراوان

[hamid-nice]

با سلام

کسی هست که این زحمت را بکشه ؟/ من با برنامه های exe ساز کار نکرده ام

با این کار یک فایل exe برای low security کرن همه ورژن های اکسس برای همه فایل هایی که کنار این فایل exe قرار بگیرند ساخته اید و این مشکل به کلی حل
می شه
من فایل نمونه اکسس این را در ضمیمه گذاشتم با اجرای این فایل ضمیمه ، فایل کناری یعنی 1
بدون پیغام اجرا شده و میتونید از کد ها و ماکرو ها استفاده کنید help هم داره

با تشکر فراوان

[hamid-nice]

دوستان یک نکته یگم که

این دستورات خاص access نیست من آدرس فایل را هم در نمونه زیر تغییر دادم تا فایل exe ای را که شما می سازید را کنار آن قرار دهیم و اجرا شود
اینها را اگه در یک فایل متنی ساده بنویسید و پسوندش را از txt. به صورت vbs. تغییر دهید هم کار می کنه که فایل آماده آن را نیز ضمیمه کردم (شما اگه فایل access ندارید کافی است بر روی فایل راست کلیک کنید و edit را بزنید و نام هر فایل با پسوندش را جایگزین 01.mdb کرده و آنها را در کنار هم قرار دهید )

فکر نکنم برای شما اساتید کار سختی باشه

منتظر لطف عزیزان هستیم

با تشکر