كود منع تغيير اسم الشيت

كود منع تغيير اسم الشيت

هناك طريقتان لحماية ورقة العمل من تغيير التسمية الخاص بها

الطريقة الأولى

1. من قائمة Review
2. تضغط على Protect Workbook
3. تظهر نافذة تدخل بها كلمة مرور
4. ثم تقوم بتحديد داخل نفس النافذة Structure
5. ثم تضغط على زر OK
6. ثم تظهر نافذة تأكيد كلمة المرور، أعد ادخال كلمة المرور
7. ثم تضغط على زر OK

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

وتجد عند محاولتك بالضغط كليك يمين على اسم ورقة العمل تظهر القائمة وتجد أن معظم الأدوات التى بها غير مفعله

الطريقة الثانية

1. تضغط على ALT + F11
2. تضغط مرتين على ورقة العمل المراد حمايتها
3. نسخ ولصق الشفرة التالية

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveSheet.Name <> "يوضع هنا اسم ورقة العمل" Then
ActiveSheet.Name = "يوضع هنا اسم ورقة العمل"
End If
End Sub

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

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