Sub Book()
Const MyPassword = "123"

With ThisWorkbook
.Protect Structure:=True, Windows:=False
.Protect Password:=MyPassword
End With
End Sub


Private Sub Workbook_Open()
Const MyPassword = "123" ' Указываем пароль на листы
      
    With Sheets("U") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With
    
     With Sheets("L") 'Указываем наименование листа
.Unprotect Password:=MyPassword
.EnableOutlining = True
.Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
    End With

End Sub