كلا الكودين لكم ( كود الدوائر الحمراء وكود الحماية ) وعموماً هذا هو الكود : 
Sub AUTO_OPEN() 
MyPassword = "123" 
For Each MySheet In ActiveWorkbook.Sheets 
    MySheet.Protect _ 
        Password:=MyPassword, _ 
        DrawingObjects:=True, _ 
        Contents:=True, _ 
        Scenarios:=True, _ 
        UserInterfaceOnly:=True 
Next MySheet 
End Sub