أبوبسمله قام بنشر فبراير 2, 2016 قام بنشر فبراير 2, 2016 السلام عليكم ورحة الله وبركاته اخوانى الافاضل بما اننى قد سالت على امكانية تشغيل كود من ملفات نصيه او امتداد R.reg وهو خاص بالريجيسترى لامكانية خفض درجة الامان دون تدخل المستخدم على الرابط التالى استفسار فاحببت ان اشارككم هذه المرفقات من روائع اختى زهره بقسم الاكسيس جزاها الله كل خير قمت بتغيير جزء الاكسيس وجعلته للاكسيل وتم باذن الله وهذا على نسخة اوفيس 2003 ينقصه شىء واحد فقط انه عند فتح المصنف يتم تشغيل هذه الاكواد الا اننى لم استطع تنفيذها لقلة خبرتى بالتعامل مع vba واما ما يخص نسخة الاوفيس 2007 فما فوق فلها اكواد خاصه سوف اشارككم بها عند ظبطها وان لم استطع ساضعها هنا لتشاركوننى فى التعديل ولكن اسمحوا لى ان اجرب تعديلها اولا وجزاكم الله كل خير قم برفع درجة الامان وجرب بعد تحميل المرفقات ستجدون ملف اكسيل ومعه ملفان ريجسترى تشغيل اول ملف zaMachineSecurityLevel ثم الاخر وفى محرر الاكواد ستجدون كود ليتم ظبطه عند تشغيل الملف يقوم بعمل ذلك مباشرة دون تدخل ولكنى لم استطع تنفيذه Call Shell("regedit.exe /s """ & CurrentProject.Path & "\zaMachineSecurityLevel.reg""", 0) Call Shell("regedit.exe /s """ & CurrentProject.Path & "\zaUserSecurityLevel.reg""", 0) تقبلوا منى فائق الاحترام وجزاكم الله كل خير تخفيض الأمان برمجيا.rar
مختار حسين محمود قام بنشر فبراير 2, 2016 قام بنشر فبراير 2, 2016 مع أنى لا أحبذ تخفيض درجات الأمان الا فى الضرورة الضرورة القصوى جرب الكود التالى يوضع فى حدث الملف Private Sub Workbook_Open() CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaMachineSecurityLevel.reg""" CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaUserSecurityLevel.reg""" End Sub 2
أبوبسمله قام بنشر فبراير 2, 2016 الكاتب قام بنشر فبراير 2, 2016 بارك الله فيك اخى مختار وجزاك الله كل خير بالتوفيق
أبوبسمله قام بنشر فبراير 3, 2016 الكاتب قام بنشر فبراير 3, 2016 في 2.2.2016 at 14:12, مختار حسين محمود said: مع أنى لا أحبذ تخفيض درجات الأمان الا فى الضرورة الضرورة القصوى جرب الكود التالى يوضع فى حدث الملف Private Sub Workbook_Open() CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaMachineSecurityLevel.reg""" CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaUserSecurityLevel.reg""" End Sub الاخ الغالى مختار بعد التحيه اود ان اقول لك اننى عند تجربه الكود لتشغيل ملفات الريجيسترى المرفقه لم يعمل معى ويعطينى خطأ ارجو التجربه وافادتى وجزاكم الله كل خير بالتوفيق اخى الغالى
مختار حسين محمود قام بنشر فبراير 4, 2016 قام بنشر فبراير 4, 2016 أنا مجرب من غير ما تقول تأكد من أن ملفات الريجسترى فى نفس مسار ملف الاكسل يعنى معاه أو جنبه داخل مجلد واحد 1
أبوبسمله قام بنشر فبراير 4, 2016 الكاتب قام بنشر فبراير 4, 2016 اهلا بك اخى واستاذى الفاضل مختار جزاك الله كل خير نعم اخى هى بنفس الملف ساجرب مره اخرى عند العوده من العمل ان شاء الله على جهاز اخر واوافيك بالرد بالمساء إن شاء الله جزاك الله كل خير
ياسر خليل أبو البراء قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 أخي الكريم أحمد الأكواد لن تعمل في حدث فتح المصنف طالما أن الماكرو غير مفعل .. يمكنك استخدام ملف الريجستري المناسب لنسخة الأوفيس التي لديك لتفعيل الماكرو لديك .. من الملفات الموجودة في الملف المرفق جرب وأعملنا بالنتيجة تقبل تحياتي Enable Macros.rar
أبوبسمله قام بنشر فبراير 17, 2016 الكاتب قام بنشر فبراير 17, 2016 جزاك الله خيرا اخى ياسر ان شاء الله اجربه غدا فى العمل على جهازى هناك 2003 و 2010 و 2007 واوافيك بالنتيجه فاكر لما طلبت فكرة تنفيذ كود من ملف نصى نوت باد مثلا او ملف ريجسترى الريجسترى لهذه الحالات والنصى لحالات اخرى ولا اعلم هل ينفع ام لا الى الان افرضلك حاله مثلا لو حابب ان اخلى عند فتح الملف يتاكد ان كان هناك ملف اسمه تشغيل امتداده نوت باد وبه كود كود بكلمة سر فى مسار معين ان كان موجود يشتغل وان لم يكن موجود لا يعمل جزاك الله اخى ابو البراء بارك الله فى وقتك وعملك وزادك الله من فضله وعلمه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.