طلب تعديل فى كود

[حسام عبدالمحسن]

السلام عليكم

الاخوة عمالقة المنتدى

 

اريد تعديل فى هذا الكود والخاص بتشغيل الملف فى مسار معين وهو بارتيشن ال d وفى فولدر اسمة حسام اريد تحديد ايضا اسم معين للشيت وليكن يناير2015 وجزاكم الله كل خير

 

 

 

Private Sub Workbook_Open()
Dim MyPath As String
  MyPath = "E:\حسام"
  If ThisWorkbook.Path <> MyPath Then
    Application.DisplayAlerts = False
    ThisWorkbook.Close
   
Else
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
Workbooks.Application.Visible = True
    Application.ScreenUpdating = False
    Call ShowAllSheets
    Application.ScreenUpdating = True

sheet1.Select

End If
End Sub

[ibn_egypt]

أخى الفاضل

 

ضع هذا الكود في اى موديول لديك وخصص زر لتفيذ الكود في اى شيت لديك

Sub getfile()
'فتح الملف المسمي
'1.xlsx
'الموجود بالمسار
'D:\احمد
'وتحديد الشيت المسمي
'يناير 2015

'تعريف المتغيرات
Dim FileName As String
'هنا يتم تحديد مسار الملف الذي سيتم فتحه
Const FilePath = "D:\احمد\"
' اسم الملف الذي سيم فتحه وامتداده مع الاشارة لمساره الذي تم تحديده سابقا
FileName = Dir(FilePath & "1.xlsx")
'فتح الملف الموجود بالمسار المحدد والاسم المحدد
Workbooks.Open FileName:=FilePath & FileName
'اختيار الشيت
ActiveWorkbook.Sheets("يناير2015").Select
ThisWorkbook.Close
End Sub

تحياتي  

[حسام عبدالمحسن]

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

وشكرا وجزاك الله خيرا

 

اذن صرف بعد 222222222 مؤمنالتعديل.rar

[ياسر خليل أبو البراء]

تفضل أخي الحبيب كود الكبير ابن مصر في ملف مرفق

أولا لابد من وجود مجلد في البارتشن D باسم حسام ، وفي داخل المجلد الملف باسم 1 والامتداد xlsx..وأن يحتوي المصنف على ورقة عمل باسم (يناير2015)

قم بالنقر على زر الأمر في الملف المرفق ليقوم بفتح المصنف في المسار المذكور .. ويقوم بتحديد ورقة العمل (يناير 2015)

فتح المصنف في المجلد حسام بالبارتشن دي.rar

[حسام عبدالمحسن]

اخى العزيز

YasserKhalil

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

(انا اسف ممكن اكون معرفتش اوصل لحضاراتكم اللى انا عايزة صح)

اريد عمل الملف فى هذا المسار غير ذلك لم يتم تشغيل الملف فى اى مكان اخر وليكن هذا المسار

D/HOSAM ABDEL MOHSEN/HOSAM.XLSM

 

وجزاك الله خير وجعلة فى ميزان حسانتك