مطلوب كود الرقم السرى لشيت الرضد بباسوورد

[الهيثم2012]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,, ودمتم لكل خير ارجو من الزملاء اعطائى كود لعمل االرقم السري لشيت رصد الدرجات له كلمة سر

[Ali Mohamed Ali]

أهلا وسهلا بك فى منتدانا الكريم ..من الأفضل ارسال الملف للعمل عليه ..ولكن تفضل هذا الكود والباسورد به 123

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