急vb操作excel时，代码没有执行结束怎么让excel不可操作

急！vb操作excel时，代码没有执行结束如何让excel不可操作
如题
如何让excel，在vb的代码没有执行完之前，excel工作表处于被锁的状态，关闭和选中某个单元格这种操作都不能做
因为代码还在执行的时候，如何在excel上随意操作的话，代码会报错

请路过的大大们帮忙

------解决方案--------------------
ActiveSheet.Protect
------解决方案--------------------
哈哈,我的方法是:用程序打开EXCEL:
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003
newxls.Visible = False
在程序运行完了后
newxls.Visible = true