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

[اصابة الهدف]

بسم الله الرحمن الرحيم

الاخوة الافاضل القائمين على هذا الصرح الرائع

كل عام وانتم بخير

استفساري هو

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

في انتظار ردكم الكريم

[طارق محمود]

السلام عليكم

من الممكن وضع قاعدة البيانات في ورقة منفصلة ثم إخفاؤها تماما باستخدام الكود التالي

' 

Sub Hide_WS2()

Worksheets(2).Visible = xlVeryHidden

End Sub

طارق

[ahmed00]

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

بعد اذن اخي طارق هذا الملف به فكرتك مع اعادة الورقة بعد اخفاءها حتى لا يصعب عليه اعادة الورقة مرة اخرى

أخوك

أحمد_________.rar

[اصابة الهدف]

الشكر موصول لاخي طارق واخي احمد

ولكن قد يكون سؤالي لم يفهم

سؤالي عن الاكواد التي اضعها داخل الفيجوال بيسك الخاصة بالاكسل واقوم بعمل حماية لها حتى لا يطلع عليها احد بوضع كلمة سر لها وهذه الطريقة اصبح من السهل على المتخصصين باستخدام احد البرامج فك كلمة السر الخاصة بها سواء باستخدام احد البرامج المتخصصة في ذلك او بطريقة اخرى

سؤالي كيف اقوم بحماية الاكواد التي داخل الفيجوال بيسك في ملف اكسل قمت بعمله ويحتوي على Modules و Forms

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

تحياتي

ومشكورين مقدما

اخوكم

[ahmed00]

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

أخي اصابة الهدف

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

وممكن ايضاً البحث عن كلمة تنفيذي وستجد كل ما يخص ذلك الموضوع

الرابط

http://www.officena.net/ib/index.php?showt...0&hl=تنفيذي

[اصابة الهدف]

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

اخوك/حسين محمد

[ahmed00]

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

أخي لو كنت قرأت المشاركات كلها كنت عرفت ان ملف ابو تامر فتحه اخونا ابو اكرم في نفس الرابط

أخوك

أحمد

الاكواد داخل الملف

 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
NoDelCode

End Sub

Private Sub Workbook_Open()
DelCode
    Dim Expiry As Date

    'If today's date > expiry date, the file will close



    Expiry = DateValue("28/12/2010")

    If Date > Expiry Then
        Application.EnableEvents = False
        Call MsgBox("ÚÝæÇ ÇáãáÝ ÇÛáÞ Ýì " & Expiry & ".  ãä ÝÖáß ÇÑÌÚ Çáì ãÔÑÝíä ãäÊÏì ÇæÝÓíäÇ áÔÑÇÁ ÇáäÓÎÉ ÇáÇÕáíÉ åÔÇã", vbCritical, "áÇ íãßäß ÝÊÍ ÇáãáÝ")


        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
        ActiveWorkbook.Close

        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        Application.EnableEvents = True

    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'NoDelCode
End Sub
Private Sub DelCode()
 Application.DisplayAlerts = False
On Error Resume Next
Dim oCtrl As CommandBarControl
MeNow = True
Dim num(5)
num(1) = 1561
num(2) = 488
num(3) = 30017
num(4) = 748
num(5) = 3
For X = 1 To 5
    For Each oCtrl In Application.CommandBars.FindControls(ID:=num(X))
            oCtrl.Enabled = MeNow
     Next oCtrl
Next X
    With Application
        .OnKey "%{F11}", ""
        .OnKey "%{F8}", ""
        .OnKey "%{F6}", ""
'
        .OnKey "{F12}", ""
        .OnKey "%{F2}", ""
        .OnKey "^s", ""
        .OnKey "+{F12}", ""
     End With
Application.CommandBars(14).Enabled = True
Application.CommandBars(103).Enabled = True
CommandBars("Toolbar List").Enabled = True
End Sub
Private Sub NoDelCode()
On Error Resume Next
Dim oCtrl As CommandBarControl
MeNow = False
Dim num(5)
num(1) = 1561
num(2) = 488
num(3) = 30017
num(4) = 748
num(5) = 3
For X = 1 To 5
     For Each oCtrl In Application.CommandBars.FindControls(ID:=num(X))
            oCtrl.Enabled = MeNow
     Next oCtrl
Next X
    With Application
        .OnKey "%{F11}", ""
        .OnKey "%{F8}", ""
        .OnKey "%{F6}", ""
'
        .OnKey "{F12}", ""
        .OnKey "%{F2}", ""
        .OnKey "^s", ""
        .OnKey "+{F12}", ""
     End With
Application.CommandBars(14).Enabled = False
Application.CommandBars(103).Enabled = False
CommandBars("Toolbar List").Enabled = False
End Sub

[اصابة الهدف]

مشكور اخوي احمد وكل عام وانت بالف خير

اخوك/حسين