مشكلة فى ملفى الاكسيل

[هشــــام الســـورى]

تم عمل برنامج صغير بالاكسيل وتم عملة بالفورم VBA

بس لو اى حد قفل الماكرو يقدر يوصل للبيانات بسهولة

1- هل يوجد اى كود اضعة لا يفتح الملف حتى لو قفل الماكرو ؟ 

لا يفتح البرنامج الا بعد فتح الماكرو

2- محتاج كود منع اخذ الملف كوبى لجهاز اخر .

 

تم تعديل يناير 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 بواسطه (حسام خطاب) الصقر

[هشــــام الســـورى]

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

يطلب منى VBA PROJECT PASSWORD

بكنسل اكثر من 15 مرة عشان تختفى

ومش ععارف احلها ازاى هل دى مشكلة من عندى

الرسالة دى مش بتروح الا لو فتحت باسورد المشروع

 

[الصـقر]

اخى الكريم

الكود ده حساس شوية

ادخل على ملفك وضع الكود باستثناء الجزء الخاص بالاغلاق اللى هو ده

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

واعمل حفظ واخرج 

ثم افتح الملف مره اخرى

وادخل على المودويل وضيف الكود الخاص بالاغلاق واقفل الملف وشوف النتيجة

تقبل تحياتى

----------------------------------------------------------------------------------------------------------