I know this is not exactly what you want but very simple:ActiveWorkbook.ActiveSheet.Visible = xlSheetHiddenNow the sheet is invisible. Son no Entry from keyboard or mouse can reach onit.