مساعدة في حماية برنامج اكسس

[سامر محمود]

الاخوة الكرام الافاضل 

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

من فضلكم عايز انا عندي برنامج وقافل التصميم بتاعه من الشفت و حماية للاكواد بس لو حد معاه برنامج فتح الشفت يقدر يفتحه عادي هل في طريقة امنعها من الاساس خالص ان يتم تفعيل (الشفت) من الاساس 

اشكركم علي مساعدتكم

[Foksh]

احفظ المشروع بصيغة Accde ، ولن تتمكن حتى أنت من التعديل على البرنامج ، واترك عندك نسخة بعيداً عن أيدي العابثين في حال قمت بأي تعديل أو تحديث ، وحاول عمل تقسيم لقاعدة البيانات بحيث تكون الجداول منفصلة عن النماذج والاستعلامات ... إلخ.

[سامر محمود]

46 دقائق مضت, Foksh said:

احفظ المشروع بصيغة Accde ، ولن تتمكن حتى أنت من التعديل على البرنامج ، واترك عندك نسخة بعيداً عن أيدي العابثين في حال قمت بأي تعديل أو تحديث ، وحاول عمل تقسيم لقاعدة البيانات بحيث تكون الجداول منفصلة عن النماذج والاستعلامات ... إلخ.

الاخ الكريم @Foksh

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

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

[Foksh]

أخي الكريم ، يجب ان تكون الصيغة التي تم حفظ المشروع فيها Accde وليس Accdb كما في الصورة

 

احفظ المشروع هكذا Make ACCDE

 

وطبعاً ، لازم تعمل باسوورد على الـ VBA 

[gamal gamal]

نفس السؤال المحير كيفية الحماية للبرامج ؟

الأستاذ / سامر

هل يمكن رفع برنامج فتح الشفت للتجربة

على برنامجى ؟

[سامر محمود]

في 14‏/12‏/2023 at 13:28, Foksh said:

أخي الكريم ، يجب ان تكون الصيغة التي تم حفظ المشروع فيها Accde وليس Accdb كما في الصورة

 

احفظ المشروع هكذا Make ACCDE

 

وطبعاً ، لازم تعمل باسوورد على الـ VBA 

اخي العزيز @Foksh

للاسف حاولت بس النسخة بتاعتي 2000 مفيش فيها التحويل للصيغة accde ياتري في طريقة تانية للتحويل 

اكون شاكر فضلك 

[Foksh]

الان, سامر محمود said:

بتاعتي 2000 مفيش فيها التحويل

Mde

[سامر محمود]

في 14‏/12‏/2023 at 19:20, gamal gamal said:

نفس السؤال المحير كيفية الحماية للبرامج ؟

الأستاذ / سامر

هل يمكن رفع برنامج فتح الشفت للتجربة

على برنامجى ؟

الاخ @gamal gamal

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

 

Gamal.accdb

37 دقائق مضت, Foksh said:

Mde

تمام فهمت اخ @Foksh

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

[Foksh]

27 دقائق مضت, سامر محمود said:

الاخ @gamal gamal

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

 

Gamal.accdb 636 kB · 1 download

تمام فهمت اخ @Foksh

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

ارسل مرفق بسيط اذا أحببت ، لنر أين المشكلة

[سامر محمود]

21 ساعات مضت, Foksh said:

ارسل مرفق بسيط اذا أحببت ، لنر أين المشكلة

الاخ الكريم @Foksh

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

بس في حاجة لقيتها من المنتدي بس مش عارف ايه المشكلة هو حاجة للاخ الكريم @jjafferr بس التحويل بتاعها مش بيفتح للاسف اكون شاكر لحضرتك لو القيت نظرة وتعم الفائدة للجميع 

Convert_mdb _n_accdb_to_mde_n_accde.mdb

[Foksh]

14 دقائق مضت, سامر محمود said:

بس في حاجة لقيتها من المنتدي بس مش عارف ايه المشكلة هو حاجة للاخ الكريم @jjafferr بس التحويل بتاعها مش بيفتح للاسف اكون شاكر لحضرتك لو القيت نظرة وتعم الفائدة للجميع 

 

لا أزايد على خبرة الأستاذ @jjafferr ، ولكن يبدو أن (.) سقطت سهواً 

في المديول mod_ConvertToaccDE استبدله بهذا الكود ، فقط .

Option Compare Database
Option Explicit

Public Function ConvertToaccDE(sourcedb As String, targetdb As String)
    Dim accessApplication As Access.Application
    Dim extn As String
    extn = db_Name_n_Extension(sourcedb)

    If Right(targetdb, 1) <> "\" Then
        targetdb = targetdb & "\"
    End If
    
    targetdb = targetdb & extn
    
    Set accessApplication = New Access.Application
    With accessApplication
        .SysCmd 603, sourcedb, targetdb
    End With

    Set accessApplication = Nothing

End Function

Public Function db_Name_n_Extension(db_name_n_path As String) As String

    Dim db_Extension As String
    Dim db_name As String
    
    db_Extension = Mid(db_name_n_path, InStrRev(db_name_n_path, ".") + 1)   'accdb or mdb
    db_name = Mid(db_name_n_path, InStrRev(db_name_n_path, "\") + 1)        'abc.accdb or abc.mdb
    db_name = Mid(db_name, 1, Len(db_Extension))                            'abc.
    
    If db_Extension = "accdb" Then
    
        db_Name_n_Extension = db_name & ".accde"
        
    ElseIf db_Extension = "mdb" Then
    
        db_Name_n_Extension = db_name & ".mde"
        
    End If
                
End Function

 

[سامر محمود]

7 دقائق مضت, Foksh said:

لا أزايد على خبرة الأستاذ @jjafferr ، ولكن يبدو أن (.) سقطت سهواً 

في المديول mod_ConvertToaccDE استبدله بهذا الكود ، فقط .

Option Compare Database
Option Explicit

Public Function ConvertToaccDE(sourcedb As String, targetdb As String)
    Dim accessApplication As Access.Application
    Dim extn As String
    extn = db_Name_n_Extension(sourcedb)

    If Right(targetdb, 1) <> "\" Then
        targetdb = targetdb & "\"
    End If
    
    targetdb = targetdb & extn
    
    Set accessApplication = New Access.Application
    With accessApplication
        .SysCmd 603, sourcedb, targetdb
    End With

    Set accessApplication = Nothing

End Function

Public Function db_Name_n_Extension(db_name_n_path As String) As String

    Dim db_Extension As String
    Dim db_name As String
    
    db_Extension = Mid(db_name_n_path, InStrRev(db_name_n_path, ".") + 1)   'accdb or mdb
    db_name = Mid(db_name_n_path, InStrRev(db_name_n_path, "\") + 1)        'abc.accdb or abc.mdb
    db_name = Mid(db_name, 1, Len(db_Extension))                            'abc.
    
    If db_Extension = "accdb" Then
    
        db_Name_n_Extension = db_name & ".accde"
        
    ElseIf db_Extension = "mdb" Then
    
        db_Name_n_Extension = db_name & ".mde"
        
    End If
                
End Function

 

استاذي العزيز @Foksh

استاذي العزيز @jjafferr

احسنت قولا وفعلا اخي الكريم تمام البرنامج ظبط جزاك الله خيرا وزادك الله من علمه ونفعنا بما علمك

[سامر محمود]

الاخ الفاضل @Foksh

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

اكون شاكر لحضرتك جدا

[Foksh]

6 دقائق مضت, سامر محمود said:

الاخ الفاضل @Foksh

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

اكون شاكر لحضرتك جدا

لا مشكلة في إنك تحولها ، أو تتركها دون تحويل ، هي الفكرة فقط في حال التطوير والتعديل فإنك تفقد هذه الصلاحية اذا قمت بتحويلها 😊

[سامر محمود]

1 دقيقه مضت, Foksh said:

لا مشكلة في إنك تحولها ، أو تتركها دون تحويل ، هي الفكرة فقط في حال التطوير والتعديل فإنك تفقد هذه الصلاحية اذا قمت بتحويلها 😊

مش عايزك تقلق طول ما اوفيسنا و  @Foksh موجود احنا في امان 😄💪💪💪

[Eng.Qassim]

57 دقائق مضت, سامر محمود said:

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

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