اين الخطاء فى ذلك الكود

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخوة الافاضل 

لماذا يظهر الخطاء فى ذلك الكود 

الحطاء بالون الاحمر

 

 

 

 

Private Sub Workbook_Open()
Sheets("MyDate").Range("E3:IT3").ClearContents
For I = 2 To Sheets.Count
Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name
Next
'UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("moving").Activate
Application.ScreenUpdating = False
For I = 2 To Sheets.Count
(Sheets(I).Unprotect (5240
Next
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Cancel = True
If SaveAsUI = True Then
    Me.Save
    Cancel = True
End If
End Sub

 

[سليم حاصبيا]

يجب ان تستبدل السطر الأحمر بما يلي

  sh.Unprotect Password:=myPassword

 

حيث   sh  هو اسم الشيت

و mypassword   هي كلمة السر

[رجب جاويش]

أخى الفاضل / أبو حنين

الرسالة الموجودة فى الصورة تقول أن كلمة المرور التى أدخلتها غير صحيحة

[سليم حاصبيا]

ربما يجب ان تضع كلمة السر بين مزدوجين  " "

[عبدالله المجرب]

ضع المرفق وستجد الحل

[۩◊۩ أبو حنين ۩◊۩]

السلامعليكم

 

الساده الافاضل  تم التغلب على المشكله ولاكن ظهرت مشكله لا استطيع التغلب عليها

تظهر رساله عند غلف الملف 

 

مرفق الملف 

 

إسم المستخدم
الباسورد
الدعم الفني
111

 

 

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

وبدون ذلك لا يفتح الملف نهائى

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

 

ترقيه بصلاحيات مستخدم.rar

تم تعديل مايو 19, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[إبراهيم ابوليله]

 

السلام عليكم 

الاخوة الافاضل 

لماذا يظهر الخطاء فى ذلك الكود 

الحطاء بالون الاحمر

 

 

 

 

Private Sub Workbook_Open()
Sheets("MyDate").Range("E3:IT3").ClearContents
For I = 2 To Sheets.Count
Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name
Next
'UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("moving").Activate
Application.ScreenUpdating = False
For I = 2 To Sheets.Count
(Sheets(I).Unprotect (5240
Next
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Cancel = True
If SaveAsUI = True Then
    Me.Save
    Cancel = True
End If
End Sub

 

الخطأ الذى يحدث عند الضغط على زر تعديل كلمة السر

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

فقط قم بتغير اسم الشيت

من ورقه1

الى SHEET1

[۩◊۩ أبو حنين ۩◊۩]

الرجاء النظر فى المرفق فى المشاركة رقم 6

عند علف الملف يحدث خطاء

اين الخطاء

 

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[طارق محمود]

السلام عليكم

إحتمالات كثيرة لهذا الخطأ

في الكود الأول

Private Sub Workbook_Open()
Sheets("MyDate").Range("E3:IT3").ClearContents
For I = 2 To Sheets.Count
Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name
Next
'UserForm1.Show
End Sub

 

(1)  تأكد أن  لديك بالملف شيت إسمه MyDate

 

في الكود الثاني

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("moving").Activate
Application.ScreenUpdating = False
For I = 2 To Sheets.Count
(Sheets(I).Unprotect (5240

 

(2)  تأكد أن  لديك بالملف شيت إسمه moving

(3) أعد كتابة السطر الأخير 

(Sheets(I).Unprotect (5240

ولكن تأكد أن مود الكتابة إنجليزي لأن الأقواس في هذا السطر قد يكون منها ماهو عربي