اريد تركيب كود على شيت اكسيل

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

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

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

 

وهذا رابط الموضوع

http://www.officena.net/ib/index.php?showtopic=48933&hl=

[أبو حنــــين]

السلام عليكم

انسخ هذا الكود في ThisWorkbook  في الحدث  Open  كما هو مبين

Private Sub Workbook_Open()

Dim MyPath As String
  MyPath = "D:\HOSAM"
  If ThisWorkbook.Path <> MyPath Then
      Application.DisplayAlerts = False
    ThisWorkbook.Close
   End If

End Sub

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

اخى الكريم لدى اكثر من كود فى الحدثWorkbook_Open

وحاولت كثيرا تركيب الكود ولكن يكون بإتلاف كود اخر وهذة هى الاكواد الموجودة بالحدث لدى فكيف اقوم بتركيب الكود مع الاحتفاظ بهذة بالاكواد

 

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
' الامر في السطرين السابقين يوضح طلب ان يجعل التطبيق المفتوح غير مرئي

' ثم بعد ذلك فتح الفورم1 في السطر التاللي
UserForm1.Show
'وهذا السطر معناه انه عند فتح ملف الاكسيل اظهر الفورم رقم 1

Workbooks.Application.Visible = True
    Application.ScreenUpdating = False
    Call ShowAllSheets
    Application.ScreenUpdating = True

'    و الامر في السطرالسابق يوضح طلب ان يجعل التطبيق المفتوح مرئي وذلك بعد المرور عبر الفورم

' ثم بعد ذلك اختيار الصفحة الرئيسية شيت 2
sheet2.Select
'ئوهذا السطر معناه اجبار الاكسيل علي الفتح علي بعد الفورم وادخال اسم المستخدم وكلمة الرور بالانتقال الي الصفحة الر
'الصفحة الرئيسية وهي هنا شيت 2
End Sub

[أبو حنــــين]

جرب هذا

Private Sub Workbook_Open()

Dim MyPath As String
  MyPath = "D:\HOSAM"
  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

sheet2.Select

End If
End Sub

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

اخى العزيز ابوحنين

جزاك الله كل خير تمت تجربة الكود ويعمل جيدا والحمد لله وجزاك الله كل خير

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

اخى الكريم ابو حنين هل من الممكن حذف MyPath = "D:\HOSAM"  محرك الاقراص D بمعنى انه لايس الضرورى تحديد المكان ولكن يهمنى اكثر ان يكون المجلد مكتوب علية نفس الاسم المراد فقط

[hggmvfn]

^{ياجماعة لو سمحتم انا عندى سؤال :}

^{عندى شيت اكسيل امتدادة على سطح الكتب كالتالى      c:\users\misrcomp\desktop\ahmed.xls}

^{المطلوب كود : عند فتح الاكسيل .... فى حالة ان الامتداد غير صحيح ....  يغلق الاكسيل}

^{وفى حالة ان الامتداد صحيح .... يفتح الاكسيل}

^{هل الكود التالى صحيح :( الكود نقلتة من حضراتكم وعدلت علية على حسب معرفتى القليلة )}

 

^{Private Sub Workbook_Open()}

 

^{myPath = "c:\users\misrcomp\desktop\ahmed.xls"z}

  <sup>If ThisWorkbook.Path <> myPath Then
      Application.DisplayAlerts = False
    ThisWorkbook.Close
    Else
    ThisWorkbook.Application.Visible = True
  End If
   

End Sub</sup>