طلب اخفاء المعادلات بباس لكي لاتظهر للعموم الا عبر ادخال الباس

[hicham2610]

السلام عليكم

من فضلكم

أريد كود يمكن من إخفاء المعادلات التي في جميع  الخلايا وفي جميع الأوراق دفعة واحدة

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

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

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

تم تعديل نوفمبر 23, 2018 بواسطه hicham2610

[Ali Mohamed Ali]

وعليكم السلام يمكنك وضع هذا الكود فى حدث الورقة المراد حماية المعادلات بها

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
MsgBox "ÇáãÚÇÏáÇÊ áä ÊÙåÑ"
'ActiveSheet.Protect
Else
'ActiveSheet.Unprotect
End If
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
UserInterfaceOnly:=False
Next MySheet
End Sub

 

[hicham2610]

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