تفعيل المكرو

[محمود أبوالدهب]

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

غير تحويل الملف لملف تنفيذى 

لان الملفات التنفذية لا تعمل على جهاز العمل 

شكرا لكم جميعا 

[عبدالله بشير عبدالله]

السلام عليكم

من ابداعات عبدالله باقشير حفظه  الله

 

[محمود أبوالدهب]

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

مع العلم انى حاطيط الكود بمديول

لو هناك شرح لضبط الفروم ارجوا التوضيح اكثر لانى لم افهم جيدا من الشرح وشكرا جزيلا لك

مع العلم النسخ الى بالمرفق كلها فعلت فيها المرفق ولم تعمل ايضا

 

مع العلم انى اسخدم اوفس 2016 النسخة 64 بت ممكن تكون منه المشكلة 

تم تعديل يوليو 11, 2017 بواسطه محمود أبوالدهب

[محمود أبوالدهب]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True


deleted_all_for_close
'If Me.Saved = False Then Me.Save
Application.ScreenUpdating = True
 
ThisWorkbook.Save
End Sub


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
UserForm1.Show
Application.OnTime Now + TimeValue("00:00:00"), "inopen"

Application.ScreenUpdating = False
program.Select
 Range("b2").Select
'Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
'Application.DisplayFormulaBar = False
'ActiveWindow.DisplayHeadings = False
'Application.DisplayScrollBars = True
'Application.DisplayStatusBar = False
'ActiveWindow.DisplayWorkbookTabs = False
'Application.ScreenUpdating = True


End Sub

مع العلم اخى انى حاطة تلك لاكواد في الفح والغلق للملف

تم تعديل يوليو 11, 2017 بواسطه محمود أبوالدهب

[عبدالله بشير عبدالله]

اخي الفاضل

لا استطيع ان اجزم اين المشكلة ولكن لدي ملف اعمل عليه اوفيس 2007 32 بت والامور تمام

خبراء المنتدى لن يقصرو في توضيح المشكلة باذن الله