اخقاء الجداول

[غسان علي]

السلام عليكم

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

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

تقبلوا تحياتي وتقديري

[محمد قاسم 12]

متابع

[ابو ياسين المشولي]

كود لاخفاء الجداول والاستعلامات

كلمة السر 123

Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef
Dim qry As QueryDefs
Set dbs = Application.CurrentData
Set db = CurrentDb
For Each obj In dbs.AllTables
Set tdf = db.TableDefs(obj.NAME)
If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next
For Each obj In dbs.AllQueries
SetHiddenAttribute acQuery, obj.NAME, True
Next obj
Application.SetOption "Show Hidden Objects", 0
Application.SetOption "Show System Objects", 0
Set tdf = Nothing
db.Close
Set db = Nothing


وهذا اظهار الاستعلامات
Retry:
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
Dim MyPassword As String
str_Title = "كلمة السر مطلوبه"
str_Prompt = "أدخـل كـلـمـة الـسـر لاظهار الجداول والاستعلامات"
MyPassword = InputBox(str_Prompt, str_Title)
Select Case MyPassword
Case "123"
Beep
MsgBox "الأن... يـمكـنـك  اظهار الجدالول", vbOKOnly + vbInformation

Case Else
Beep
If MsgBox("    عــفــوا .. كــلــمــة الــســر خــاطــئــة  " & vbCrLf & "    مــن  حــســن  إســـلام الـمــرء  تــركــه  مــا لا يــعــنــيــه  ", vbInformation + vbRetryCancel) = vbRetry Then GoTo Retry

        
 Exit Sub
 MsgBox "تم الرجوع", vbInformation, "إلغاء العملية"

End Select

Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim qry As QueryDefs
Set dbs = Application.CurrentData
Set db = CurrentDb
For Each obj In dbs.AllQueries
SetHiddenAttribute acQuery, obj.NAME, False
Next obj
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
    If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 _
    And tdf.Attributes = 1 Then
            tdf.Attributes = tdf.Attributes - dbHiddenObject
    End If
    Next tdf
    Set dbs = Nothing

db.Close
Set db = Nothing

 

تم تعديل أغسطس 25, 2018 بواسطه ابو ياسين المشولي

[fantap]

من فضلك اين اضع هذه الكواد  داخل البرنامج

في حدث معين  او في وحدة نمطية

شكرا لك

 

[ابو ياسين المشولي]

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

من فضلك اين اضع هذه الكواد  داخل البرنامج

في حدث معين  او في وحدة نمطية

شكرا لك

 

في اي امر تختارة في النموذج

[محمد قاسم 12]

50 دقائق مضت, ابو ياسين المشولي said:

في اي امر تختارة في النموذج

ممكن لو سمحت مثال

 

[ابو ياسين المشولي]

1 ساعه مضت, محمد قاسم 12 said:

ممكن لو سمحت مثال

 

اتفضل

اخفار واظهار.accdb

[محمد قاسم 12]

بارك الله فيك

 

[ابو ياسين المشولي]

1 دقيقه مضت, محمد قاسم 12 said:

بارك الله فيك

 

بارك الله في الجميع

[غسان علي]

الشكر والتقدير على هذا المجهود الرائع والاستجابة السريعة

تحياتي وتقديري