هشــــام الســـورى قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 (معدل) تم عمل برنامج صغير بالاكسيل وتم عملة بالفورم VBA بس لو اى حد قفل الماكرو يقدر يوصل للبيانات بسهولة 1- هل يوجد اى كود اضعة لا يفتح الملف حتى لو قفل الماكرو ؟ لا يفتح البرنامج الا بعد فتح الماكرو 2- محتاج كود منع اخذ الملف كوبى لجهاز اخر . تم تعديل يناير 7, 2016 بواسطه أتـــــــــش تعديل رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 (معدل) اخى الكريم / اتش ضع هذا الكود فى مودويل هو كود للعلامه القدير استاذى / عبدالله باقشير ' هذة الاكواد للتغلب على مشكله مستوى الامان فى الماكرو فى الاكسيل 'الكود من اعمال الرائع العلامه عبدالله باقشير Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.Calculation = xlCalculationAutomatic End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub هذا الملف المرفق لطلبك الثانى لمنع فتح الملف على جهاز اخر هو لاحد الاساتذه بالمنتدى لا اعلم من صراحه تقبل تحياتى ------------------------------------------------ كود تشغيل البرنامج على جهاز واحد فقط.zip تم تعديل يناير 7, 2016 بواسطه (حسام خطاب) الصقر رابط هذا التعليق شارك More sharing options...
هشــــام الســـورى قام بنشر يناير 7, 2016 الكاتب مشاركة قام بنشر يناير 7, 2016 شكرا اخى حسام تم وضع الكود بالفعل من قبل ولكن عند كل مرة اقفل فيها البرنامج يطلب منى VBA PROJECT PASSWORD بكنسل اكثر من 15 مرة عشان تختفى ومش ععارف احلها ازاى هل دى مشكلة من عندى الرسالة دى مش بتروح الا لو فتحت باسورد المشروع رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 اخى الكريم الكود ده حساس شوية ادخل على ملفك وضع الكود باستثناء الجزء الخاص بالاغلاق اللى هو ده Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub واعمل حفظ واخرج ثم افتح الملف مره اخرى وادخل على المودويل وضيف الكود الخاص بالاغلاق واقفل الملف وشوف النتيجة تقبل تحياتى ---------------------------------------------------------------------------------------------------------- رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.