وائل الاسيوطي

اخي الحبيب البرنامج لايعمل معي انا عندي اوفيس 2010

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

اذن سأنتظر ابداعات اخواني الافاضل ان شاء الله

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

اخي ابا الحسن والحسين عملك ابداع يضاف الي قائمه ابداعاتك القيمه التي نتمني من الله ان يجعلها في ميزان حسناتك ان شاء الله ولكن تعليقي الوحيد هو انه مادام المستخدم يملك كلمه المرور او استخدامه في الفتره المسموح بها فهو مالك الملف فيحق له ان يستخدم الملف بكامل امكانياته والحاله الوحيده التي يفتح بها الست اعمده فقط هي حاله دخول كلمه السر الخطأ وهذا مجرد رأي ليكمل الابداع

ملف محدد فتره الاستخدام حتي تاريخ معين وبعدها يطلب من المستخدم كلمه مرور السؤال هنا هل يمكن استبدال طلب كلمه المرور بادخال سيريال معين من خلاله يتم مد فتره استخدام الملف حتي التاريخ الذي يمثله السيريال

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

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

وعليكم السلام ورحمه الله وبركاته اخي الحبيب ابا الحسن والحسين مااروع ابداعاتك بالفعل تم حل المشكلتين الاولي والثانيه ببراعه تامه لكن هناك شئ اخر لما غيرت تاريخ الي 2016 لم يطلب مني كلمه السر وظهرت رساله التحذير ولكن ظهرت الست اعمده فقط وليس الملف كاملا

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

اخي وائل بالفعل الكود منع النسخ والقص من الماوس والكيبورد ولكنه لم يمنع اللصق من خلال الماوس اخي عبدالعزيز بالفعل الكود منع النسخ والقص من خلال الماوس والكيبورد ولكنه لم يمنع اللصق من خلال الماوس

تلميذ مبتدئ يخطئ اكثر مما يصيب ومن اساتذتنا نتعلم انا بالفعل جربت الكود بس فعلا بيعطل النسخ والقص من الماوس ولكن لا يعطلها من الكيبورد ولا يعطل نهائيا اللصق سواء من الماوس او من الكيبورد orders.rar

اعملي البرنامج علي الاكسيل وممكن يتحول ان شاء الله بكل سهوله

عملت كدا فعلا ومااشتغلش

انا الحمد لله لقيت الكود دا بس منع النسخ والقص ولم يمنع اللصق '*** In a standard module *** Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!" End Sub '*** In the ThisWorkbook Module *** Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub هو كملف فعلا شغال لكن لما نسخت الكود في ملف تاني لم يعمل غيرانه لم يعطل خاصيه اللصق

دا مثال فيه كود يمنع النسخ بس راضي يشتغل معاي لما نقلته لملف تاني ياتري هو ليه مدي معين ولا بيقفل الصفحه كلها DisableCopyPaste.zip

للرفع

ارفق الملف وان شاء الله سيكون لك ما تطلب

سلمت يداك اخي واستاذي عادل ووضعه الله في ميزان حسناتك ان شاء الله

ان شاء الله المثال هذا سيوضح مقصدي كيماس1.rar

شاكر مرورك اخي واستاذي عادل ماقصدته ان يتم تلوين المدي a1;d10 بناء علي قيمه الخليه i5

هذا الكود لاخي عبدالفتاح الكيره لتلوين الخلايا حسب القيمه كنت ارجو تغيير الخليه التي تعتمد عليها القيمه لتكون بعيده عن المدي المراد تلوينه كما المرفق كيماس.rar

انظر اخي عبدالعزيز الي هذه الصور ليوضح قصدي اكثر 22.zip

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

اخي عبد العزيز انت ما دمت تزيد عني علما فانت استاذي وهذا شرف لي وكونك اخي لي هذا شرف اكبر الموضوع ان الملف الذي اعمل سوف يكون فيه بيانات تخص المستخدم فانا لاريد ان اضره بغلق البيانات الخاصه به ولكني اريد غلق مايخصني في الملف فقط حتي اذا لم يرذ استخدام الملف مره اخري (A,B,C,D,E,F ) يمكنه نسخ بياناته بسهوله فمثلا اريد اخفاء صفحات الملف كامله ماعدا الاعمده من الصفحه الاولي