تشغيل برنامج الاكسس في اي مجلد ، وبدون رسائل الأمان

[jjafferr]

السلام عليكم ورحمة الله وبركاته

 

انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق:

http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363

 

المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس.

 

ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية.

 

هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس.

 

العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه.

الكود يعمل على برامج الاكسس بصيغة mdb و   accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا).

 

اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي):

رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي:

C:\jj\Seq.mdb

 

الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ،

عند فتحه نرى رسالة أمان الاكسس  ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج).

.

 

الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود:

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)
dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase "C:\jj\Seq.mdb"
 o.usercontrol=true
 set o=nothing

.

تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب 

 

-------------------------------------------------------------------------------------------------------------------------------------------

 

هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد

 

الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا.

هناك طريقتين:

1.     ايقونة مختصر البرنامج Shortcut:

وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!!

لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت):

.

.

.

.

وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 

 

2.     تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك:

رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي:

http://www.f2ko.de/en/v2e.php

 

احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا 

 

ثم نتبع الخطوات التالية:

ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ،

.

في الخطوة 6 تستطيع ان تكتب معلومات شركتك ،

ونختار الايقونه التي نريدها للبرنامج (الخطوة 5)

.

.

وتستطيع ان تجعله على سطح مكتب كمبيوترك 

الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs 

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

 

ملاحظة:

الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ،

لذلك ،

ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt .

بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs 

 

 

جعفر

Seq.zip

Seq_2.zip

[محمد سلامة]

ماشاء الله عليك استاذ جعفر

بارك الله فيك

[jjafferr]

شكرا ياشباب 

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس 

 

جعفر

[ابوخليل]

تمت التجربة على 2003 وعمل بكفاءة

وهذا يعني اننا لابد نفتح قاعدة بيانات اكسس بطريقة غير مباشرة  اي عن طريق هذا الملف الوسيط

وعندي ملاحظة اخوي جعفر وانا اعرف ان صدرك رحب :

اقتباس

فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين

الاقرب ان شركة ميكروسوفت وضعته حتى تحمي الاوفيس

لان الخراب يأتي من اي ملف تنفيذي ويمكن يكون على اكثر من صيغة وعلى اي محرك

   حمانا الله واياكم  ولا اراكم مكروها ،،،

 

[jjafferr]

منذ ساعه, ابوخليل said:

تمت التجربة على 2003 وعمل بكفاءة

شكرا جزيلا لك أخوي ابوخليل 

 

منذ ساعه, ابوخليل said:

وهذا يعني اننا لابد نفتح قاعدة بيانات اكسس بطريقة غير مباشرة  اي عن طريق هذا الملف الوسيط

في كل الحالات نحن نستعمل الوسيط ، فمختصر برنامج الاكسس الموجود على سطح المكتب لتشغيل البرنامج ، هو نوعا ما ، وسيط ايضا 

 

منذ ساعه, ابوخليل said:

الاقرب ان شركة ميكروسوفت وضعته حتى تحمي الاوفيس

لان الخراب يأتي من اي ملف تنفيذي ويمكن يكون على اكثر من صيغة وعلى اي محرك

انا متفق معاك 100% 

 

 

جعفر

[ابوخليل]

22 ساعات مضت, jjafferr said:

في كل الحالات نحن نستعمل الوسيط ، فمختصر برنامج الاكسس الموجود على سطح المكتب لتشغيل البرنامج ، هو نوعا ما ، وسيط ايضا 

جعفر

 تصدق هذه النقطة غايبة وما تخطر على البال

[كرار صبري _ أبو جنى]

في ٢٩‏/١‏/٢٠١٦ at 12:28, jjafferr said:

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

 

1- شغال و تمام . 

2- وندوز 7 / 64 بت /// اوفس 2010 / 32 بت . 

[سامي الضالعي]

في ٢٩‏/١‏/٢٠١٦ at 11:28, jjafferr said:

شكرا ياشباب 

 

ارجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

 

حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس 

 

جعفر

تم التنفيذ بنجاح الحمد لله

على اصدار 2003 /32 بت

لكن لدي سؤوال بعد اذنك هل يمكن تغيير المسار هذا

"C:\jj\Seq.mdb"

[jjafferr]

وعليكم السلام

 

طبعا ، 

اتبع الخطوات وغيُر الى اسم برنامجك

 

جعفر

[سلمان الشهراني]

مشاء الله تبارك الله
جدا روعه وتم التجربه على اوفيس 2013 (32 بت ) يعمل وبكفائه

بارك الله فيك وزادك الله من علمه يا استاذنا الغالي

 

[jjafferr]

في 1/28/2016 at 23:49, jjafferr said:

احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا 

هل جربت العمل بهذه الطريقة والتي تكون تلقائيا بكبسة زر واحدة 

 

جعفر

[kaser906]

في ١٨‏/٤‏/١٤٣٧ هـ at 22:49, jjafferr said:

رجو ممن يضع ردا على الموضوع ، ان يذكر:

1. اذا اشتغل البرنامج على كمبيوتره ،

2. نسخة الاكسس التي يستخدمها.

lالسلام عليكم ورحمة الله وبركاتة

استاذي / ابو موسى

حبيت اجرب صيغة ملف من الاكسس غير اللي انت ذكرت

استخدمت الطريقة لملفvbs lمع صيغة ملف Mde على نظام تشغيل windos10 و Access2010

يعمل بشكل ممتاز

فقط هناك مشكلة واحدة ان البرنامج ما يفتح شاشة الاكسس بالكامل تفتح النافذة بوضع التصغير

فهل من حل ؟

[jjafferr]

5 ساعات مضت, kaser906 said:

فقط هناك مشكلة واحدة ان البرنامج ما يفتح شاشة الاكسس بالكامل تفتح النافذة بوضع التصغير

فهل من حل ؟

 

وعليكم السلام اخوي كاسر

 

كل الموجود اعلاه لا علاقة له بكيفية فتح البرنامج ، فاقترح عليك زيارة الرابط التالي:

هنا اوضحت كيف اجعل برامجي تشتغل ، عن طريق الماكرو autoexec ، وتعبئ الشاشة ، ولا استعمل النماذج المنبثقة إلا نادرا 

 

2 ساعات مضت, sandanet said:

يا الهي ماهذا الابداع!!!

 

حيا الله اخوي أنس 

 

جعفر

[kaser906]

40 دقائق مضت, jjafferr said:

هنا اوضحت كيف اجعل برامجي تشتغل ، عن طريق الماكرو autoexec ، وتعبئ الشاشة ، ولا استعمل النماذج المنبثقة إلا نادرا 

استاذي طبقت نفس طريقتك

نفس الشي 

عندما اقوم بفتح برنامجي عن طريق النقر المباشر يفتح في وضع كامل الشاشة

وعندما اقوم بفتح برنامجي عن طريق ملف vbs يفتح في وضع تصغير الشاشة هذا بالنسبة لنافذة الاكسس الرئيسية والنموذج الافتتاحي فقط

اما باقي النماذج فتفتح بكامل الشاشة مع تصغير النافذة الرئيسية للآكسس

[kaser906]

في ٢٤‏/٥‏/١٤٣٨ هـ at 01:03, jjafferr said:

ان شاء الله اشوف الموضوع بكرة

السلام عليكم

صباح الخير

شكلك نسيت الموضوع

على فكرة يا ابو موسى بالنسبة لتحويل ملف Vbs إلى صيغة exe برنامج الحماية يتعرف علية على انه Torgan ويقوم بعزلة

في ١٨‏/٤‏/١٤٣٧ هـ at 22:49, jjafferr said:

 

[Shivan Rekany]

في ٢٠‏/٢‏/٢٠١٧ at 18:49, kaser906 said:

فقط هناك مشكلة واحدة ان البرنامج ما يفتح شاشة الاكسس بالكامل تفتح النافذة بوضع التصغير

فهل من حل ؟

 

في ٢١‏/٢‏/٢٠١٧ at 00:58, kaser906 said:

عندما اقوم بفتح برنامجي عن طريق النقر المباشر يفتح في وضع كامل الشاشة

وعندما اقوم بفتح برنامجي عن طريق ملف vbs يفتح في وضع تصغير الشاشة هذا بالنسبة لنافذة الاكسس الرئيسية والنموذج الافتتاحي فقط

اما باقي النماذج فتفتح بكامل الشاشة مع تصغير النافذة الرئيسية للآكسس

 

في ٢٣‏/٢‏/٢٠١٧ at 07:34, kaser906 said:

صباح الخير

شكلك نسيت الموضوع

على فكرة يا ابو موسى بالنسبة لتحويل ملف Vbs إلى صيغة exe برنامج الحماية يتعرف علية على انه Torgan ويقوم بعزلة

في ٢١‏/٢‏/٢٠١٧ at 01:03, jjafferr said:

ان شاء الله اشوف الموضوع بكرة

 

جعفر

السلام عليكم ورحمة الله وبركاته
انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا
اسمح لي ان ارد عليك يا @kaser906 
اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ 

jj.rar

[kaser906]

10 ساعات مضت, Shivan Rekany said:

 

 

السلام عليكم ورحمة الله وبركاته
انا تأخرت كتير على هذا الموضوع الجميل انا استخدمت على ويندوز 7 - 32 بت اوفيس 2010 - 32 بت وحقا طريقة رائعة جدا
اسمح لي ان ارد عليك يا @kaser906 
اتفضل اليك هذا وفتحه هل وصلت للنتيجة المطلوبة ؟ 

jj.rar

الله يعطيك العافيه أستاذ شفان

انا الان مسافر عندما اعود سوف اجرب وارد عليك

[jjafferr]

السلام عليكم

 

تم التعديل على الكود والبرنامج ليعمل:

1. تشغيل الاكسس بدون رسائل أمان ،

2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت).

 

1. مثل الخطوات السابقة ، احفظ الكود التالي في ملف بصيغة txt ، ثم غيّر صيغة الملف الى vbs (طبعا تستطيع ان تضع برنامج قاعدة البيانات في اي مكان شئت في الكمبيوتر ، فقط عليك تعديل الاسم والمسار) :

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)
dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase "C:\jj\Seq.mdb"
 o.usercontrol=false
 o.quit
 set o=nothing

 

2. لتشغيل الاكسس بدون اطار ، يجب ان يكون النموذج منبثق ،

ولكننا بدل ان نغير اعدادات النموذج ، نستطيع ان نفتحه منبثق مباشرة ( Dialog )،

وبما اننا نستعمل الماكرو AutoExec (والذي يعمل عند فتح البرنامج مباشرة ) ، فإننا سنفتح النموذج بهذه الطريقة:

النموذج:

.

والماكرو

.

وهذا كود النموذج:

Option Compare Database

Private Sub cmd_Quit_Click()

    DoCmd.Quit
End Sub

Private Sub Form_Open(Cancel As Integer)
    
    Call HideAccess
End Sub

 

وهذه الوحدة النمطية التي بها كود الاخفاء:

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


#If VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "USER32" _
        (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean
#Else
    Private Declare Function ShowWindow Lib "USER32" _
        (ByVal hwnd As Long, ByVal nCmdShow As Long) As Boolean
#End If
'


Public Sub HideAccess()
    
    #If VBA7 Then
        Dim hWndAccessApp As LongPtr
    #Else
        Dim hWndAccessApp As Long
    #End If
    
    Call ShowWindow(Access.hWndAccessApp, SW_HIDE)
End Sub

Public Sub ShowAccess()
    
    #If VBA7 Then
        Dim hWndAccessApp As LongPtr
    #Else
        Dim hWndAccessApp As Long
    #End If
    
    Call ShowWindow(Access.hWndAccessApp, SW_SHOWMAXIMIZED)
End Sub

 

جعفر

739.No_Warning_and_No_Access_Window.zip

[Shivan Rekany]

32 دقائق مضت, jjafferr said:

تم التعديل على الكود والبرنامج ليعمل:

1. تشغيل الاكسس بدون رسائل أمان ،

2. تشغيل الاكسس بدون إطار/نافذة الوندوز (للنواتين 32بت و64بت).

شكرا لك استاذ 
تم التجربة على ويندوز 7 , 32 بت و اوفيس 2010 , 32 بت 
وتم النجاح 100%

شكرا لك مجددا

[jjafferr]

حياك االله أخوي شفان

[jjafferr]

السلام عليكم

 

وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ،

بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار:

    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory & "\Seq.mdb"

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)

 dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase Directory
 o.usercontrol=true
 set o=nothing

.

جعفر

[citizenmasry]

شكرا لمجهودكم 

ولكن هذه الطريقه لم تعمل لدى على امتداد . accdb اكسيس 2013 32 بت ويندوز 7

 

[صالح حمادي]

السلام عليكم أستاذنا جعفر.

تظهر معي هذه الرسالة

[النجاشي]

في ٦‏/١٢‏/٢٠١٧ at 20:48, jjafferr said:

السلام عليكم

 

وهذا تعديل من الاخ shod90 (شكرا اخي شادي) على ملف Seq.vbs ،

بحيث يعمل الكود في المجلد الذي يكون فيه ، فلا يحتاج الى كتابة اسم المسار:

    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory & "\Seq.mdb"

rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html
rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional)

 dim o
 set o=createobject ("Access.Application")
 o.automationsecurity=1 ' set macro security LOW.
 o.opencurrentdatabase Directory
 o.usercontrol=true
 set o=nothing

.

جعفر

استاذنا الغالي ابو الجعافر نورت المنتدي عوده حميده

ان استخدمت الكود ممتاز

استاذي الفاضل هل توجد طريقه بحث لايظهر تصغير الاكسس باعلى يسار الشاشه للمستخدم

تحياتي اليك 

 

تم تعديل أكتوبر 26, 2019 بواسطه ابو زاهر

[jjafferr]

وعليكم السلام اخوي ابو زاهر 🙂

 

للأسف الشديد ما عندي فكرة !!

يمكن احد من الشباب صادف هذه المشكلة ، ويعطينا الحل 🙂

 

جعفر