Forums
-
MS Applications & Languages
-
- 14,445
- posts
-
- 317,956
- posts
-
- 156,996
- posts
-
- 37
- posts
-
- 14,759
- posts
-
- 1,006
- posts
-
- 4,596
- posts
-
- 1,753
- posts
-
- 242
- posts
-
- 393
- posts
-
- 969
- posts
-
- 89
- posts
-
- 34
- posts
-
- 31
- posts
-
- 6
- posts
-
- 25
- posts
-
- 548
- posts
-
- 66
- posts
-
- 4
- posts
-
-
Other Programming Languages and Tools
-
- 524
- posts
-
- 71
- posts
-
- 40
- posts
-
- 23
- posts
-
-
Management Topics and Software
-
- 350
- posts
-
- 25
- posts
-
- 427
- posts
-
- 124
- posts
-
- 114
- posts
-
-
Scientific Research and Data Science
-
- 14
- posts
-
- 13
- posts
-
- 10
- posts
-
- 25
- posts
-
- 5
- posts
-
- 2
- posts
-
- 5
- posts
-
-
General Section
-
- 1
- post
-
-
Forum Statistics
-
Total Topics73,438
-
Total Posts527,939
-
-
Member Statistics
-
Posts
-
-
By محمد صلاح1 · Posted
للرفع والمساعدة -
By محمد صلاح1 · Posted
أخي @SEMO.Pa3x بارك الله فيك هل بالإمكان عمل وحدة نمطية مماثلة بنفس طريقة حماية ملف الواجهة في هذا الموضوع لحماية فتح القاعدة الخلفية قاعدة الجداول في القواعد المرتبطة وإن كان ذلك ممكنا هل تتكرم بتنفيذ مثالاً لذلك لترحم أمثالنا من المبتدئين والبسطاء في علمهم وتطبيقهم من التشتت والبحث بدون فائدة كبيرة عن افضل طرق الحماية لأول أعمالهم حيث أنني بالفعل قد أصبحت في متاهه كبيرة نتيجة كثرة ما قرأته أثناء البحث بين تأكيد كبار المبرمجين علي أهتراء كافة سبل الحماية في الاكسس وبين تباين طرق ومحاولات المبرمجين للتصدي لذلك حتي أن احدهم لخص الأمر بقوله (أن الحماية في الاكسس ما هي إلا حيل ذكية مؤقتة لخبرة كل مبرمج) لذا ارجو أم يكون مثالك متمماً ومكملاً لشقي الحماية حماية القاعدة الواجهة (النماذج) وحماية القاعدة الخلفية (الجداول) ويصبح مرجعاً رئيسياً لمن يريد حماية قوية وكل الشكر والتقدير لشخصكم الكريم -
-
By سليم حاصبيا · Posted
زيادة في اثراء الموضوع هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$2" And _ Target.Count = 1 Then My_validation End If Application.EnableEvents = True End Sub Rem================================ Sub My_validation() Dim Bayanat As Worksheet: Set Bayanat = Sheets("البيانات") Dim Amaliate As Worksheet: Set Amaliate = Sheets("العمليات") Dim arr(), Ro%, t%, Col%, st$ Ro = Bayanat.Range("a:a").Find(Amaliate.Cells(2, 1)).Row Col = Bayanat.Cells(Ro, Columns.Count).End(1).Column For t = 2 To Col ReDim Preserve arr(1 To t - 1) arr(t - 1) = Bayanat.Cells(Ro, t) Next st = Join(arr, ",") With Amaliate.Cells(2, 2).Validation .Delete .Add xlValidateList, Formula1:=st End With Amaliate.Cells(2, 2) = arr(1) Erase arr End Sub المبف مرفق variable_data_val.xlsm
-
-
أحدث الموضوعات
-
-
Popular Contributors
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
Top Downloads
-
-
Popular Now
-
-
مدونات فرق الموقع
-
-
Who's Online (See full list)
- yahhia
- مركز تدريب
- عبد المنعم بنان
- abuaziz555
- عبد اللطيف سلوم
- عبدالسلام ابوالعوافي
- roross
- محب لله ورسوله
- محمد صلاح1
- وجيه شرف الدين
- jo_2010
- SAMO10125220.3
- Ali Mohamed Ali
- waloosky
- garefman
- ahmedwassouf
- أبو إبراهيم الغامدي
- acc2003
- محب العقيدة
- حلبي
- aboesa
- zoom10
- mohd khal
- مصطفى محمود مصطفى
- الشربيني123
- Cobone
- سليم حاصبيا
- GMSA
- الاجرد
- ياسر فاروق
- مهند 2002
- farid0647
- عصاام
