change worksheet

[sanandaji]

i have one procedure that user can put data in the worksheet by userform.
but sometimes it needs that user see the data in the worksheet . i show the sheet by next code:
(assume that my workbook name is "mybook" and mysheet name is "pruduce".

Workbooks("mybook").Worksheets("produce").Activate
Application.DisplayFullScreen = True
ActiveWorkbook.Protect Structure:=True, Windows:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

then the user can see the sheet , but the user can change the sheet by closing or minimized or maximized it . how can i perevent it ?

thanks