كود الحماية لا يعمل على جميع اصدارات اكسل

[ناصراا]

 

أخي ناصر سبق وأن أخبرتك أن الحماية في الإكسيل قد تكون منعدمة

بالنسبة لباسورد VBA يمكن بكل سهولة التغلب عليه

 

 

 

جزاك الله خيرا استاذي الكريم 

 

على الأقل حماية من المتطفلين الهواة 

 

وممن لا يعرف هذه الأمور أو لا يرغب بها 

 

 

صدقا صنعت برنامج بالـvb.net

وشفرته وكسر فما بالك بالاكسل 

 

شرفتني بمتابعتك أخي ياسر 

 

 

بالفعل اخي ياسر اوافقك الرأي ان الحماية في الاكسل ضعيفة و يمكن كسرها بسهولة و  البرامج كثيرة

 

Password.jpg

 

اخي ناصر بالنسبة ل:

 وسؤالي عن التكست لأضع فيه رقم الهارد في مكان ما في الجهاز 

 

 

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

 

كلك خير وبركة أخي الكريم 

 

معطاء بلا حدود 

 

 

ان وجدت وقتا فأتمنى أن تدرج مثالا او رابطا لهذه الطريقة 

 

شاكرا ومقدرا جهودك استاذي الكريم 

[ابو تراب]

هلا ناصر ... هذا مثال للكتابة و القرأة من سجل النظام.

 

عن طريق الكود سيتم انشاء مفتاح على المسار التالي:  MyApp/subfolder/key1

 

 

Option Explicit


Public Const APP_NAME As String = "MyApp"
Public Const SECTION_NAME As String = "Subfolder"
Public Const HD_SER_KEY As String = "key1"
Public Const HD_SER_VALUE As String = "123456789"
Public Const KEY_NOT_FOUND As String = ""


Sub Button1_Click()


'انشئ او حدث قيمة المفتاح
SaveSetting APP_NAME, SECTION_NAME, HD_SER_KEY, HD_SER_VALUE


'اقرأ قيمة المفتاح
MsgBox GetSetting(APP_NAME, SECTION_NAME, HD_SER_KEY, KEY_NOT_FOUND)


'احذف مجلد البرنامج و جميع المجلدات الفرعية مع مفاتيحها
DeleteSetting APP_NAME


'تأكد من صحة عملية الحذف
If GetSetting(APP_NAME, SECTION_NAME, HD_SER_KEY, KEY_NOT_FOUND) = KEY_NOT_FOUND Then
    MsgBox "تم حذف المفتاح"
End If


End Sub