اريد ان يعمل برنامج مصمم على اكسل على كمبيوتر واحد فقط

[amir501]

منذ فترة طويلة طرح موضوع جميل وهو ان لا يعمل اي برنامج اكسل الا برقم الهارد دسك ..اي اريد ان يعمل برنامج مصمم على اكسل الا على كمبيوتر واحد فقط

جزاكم الله كل خير

[دغيدى]

الأخ الفاضل

سلام الله عليكم

شاهد المرفق وهو مشاركة سابقة لأحد الزملاء الأفاضل

تحياتى

*** جمال دغيدى **

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

[amir501]

مشكور اخي دغيدي دائما سباق الى عمل الخير ...اذا كان لدي ملف اسمه حركة البيع واريد ان احفظه في السواقة f ما هو التعديل المطلوب في الكود جزاك الله كل خير

[دغيدى]

الأخ الفاضل / amir501

سلام الله عليكم

احفظه في السواقة f

قم بفتح الملف WORKBOOK OPEN (عن طريق Alt +f4)) من محرر ال VB ثم قم بتفعيل كل الأكواد بحذف كل علامات (') من بداية كل سطور الكود

ثم حماية الإطلاع على الأكواد من محرر ال VBA بكلمة سر لاتنساها

تم تعديل أغسطس 3, 2010 بواسطه دغيدى

[أبوعبد الله]

أخي العزيز /عامر

بالمرفق تم تعديل مسار (موقع حفظ) الملف وإسمه إلى ما طلبته وكل المطلوب منك نقل الأكواد من المرفق لملفك بالطريقة التي أشار إليها أخونا العزيز دغيدي ومن ثم تفعيل الأكواد بحذف علامة ' الموجودة ببداية كل سطر بالأكواد ثم احفظ الملف وإن شاء الله سيعمل الكود بنجاح .

تحياتي

أبو عبدالله

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

[amir501]

اخي ابو عبدالله اشكرك من كل قلبي ......واهنئك بقدوم شهر رمضان المبارك ...جعله الله يمناً وبركة لك ولعائلتك الكريمة ولكافة اخواننا في هذا المنتدى

اخوك/عامر

[بوحماد]

نزلت الملف وعدلت اسمة وكذلك موقع الملف بدلا من F وضعت فى H وكذلك اى غير فى الكود F - H والاسم بدلا من حركة البيع - البيع ولكن عندى فتح الملف يقفل

تم تعديل مايو 15, 2012 بواسطه دغيدى

[بوحماد]

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

Private Sub Workbook_Open()

'Dim MyPath As String

'  MyPath = "F:\"


'  If ThisWorkbook.Path <> MyPath Then

'	  Application.DisplayAlerts = False

'    ThisWorkbook.Close



'   End If

'Dim MyFlName As String

'  MyFlName = "ÍÑßÉ ÇáÈíÚ.xls"


'    If ThisWorkbook.Name <> MyFlName Then

'    Application.DisplayAlerts = False

'    ThisWorkbook.Close

'  End If

End Sub

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Dim lReply As Long

'  If SaveAsUI = True Then

'lReply = MsgBox("ÚÝæÇð áÇíãßäß ÍÝÙ åÐÇ ÇáãáÝ ÈÅÓã ÌÏíÏ .. åá ÊÑíÏ ÍÝÙ ÇáãáÝ ÈÅÓãå ÇáÍÇáí ¿", vbQuestion + vbOKCancel)

'	 Cancel = (lReply = vbCancel)

'   If Cancel = False Then Me.Save

'	 Cancel = True

'  End If

End Sub

[خالد الشاعر]

استاذ best

يجب ازالة هذه العلامة ' من الامر لكى يعمل

سوف يتحول لون اكلام من اخضر الى اسود

[بوحماد]

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

[خالد الشاعر]

ارفع الملف وسوف يساعدك كل الاخوة

انشاء الله

[بوحماد]

هذا ملف نريد ان يكون فى السوقة h والاسم نفس الاسم

bb3.rar