كود اخفاء المعادلات يعطل عمل الماكرو

[roushdy]

[السادة الكرام مراقبين ومشرفى منتدانا الغالى]

وجدت مساهمة لأحد الأعضاء بكود يخفى المعادلات بورقة العمل

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

فهل يتكرم السادة الكرام بايجاد حل لهذه المشكله

وكود اخفاء المعادلة:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.HasFormula Then

MsgBox"الخلية محمية"

ActiveSheet2.Protect

Else

ActiveSheet2.Unprotect

End If

End Sub

[ابو اسامة العينبوسي]

السلام عليكم

ارفق ملف مع الماكرو المعطل

[نزار سليمان عيد]

السلام عليكم

عليك اضافة الكود ادناه

MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet

مع الشكر

ابو خالد

[roushdy]

شكرا الأستاذ نزار

وسيكون الكود بالشكل الأتى :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.HasFormula Then

MsgBox "Sorry"

'ActiveSheet2.Protect

Else

'ActiveSheet2.Unprotect

End If

MyPassword = "123

For Each MySheet In ActiveWorkbook.Sheets

MySheet.Protect _

password:=MyPassword, _

DrawingObjects:=True, _

Contents:=True, _

Scenarios:=True, _

UserInterfaceOnly:=True

Next MySheet

End Sub