Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Planning 2019").Activate
Sheets("Planning 2019").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End Sub
Private Sub Workbook_Open()
Sheets("Planning 2019").Activate
Sheets("Planning 2019").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1234"
End Sub