Sheets("الطلبه").Select
MyPassword = ""
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet
End Sub
End Sub
طلبت من اجد الاحوة كود يحمي الورق فاعطاني اياه وانقطعت اخباره في النت