tbar.Visible=TrueWorksheets(“第项”).Activate上述语句的功能是：设置工具栏的可见属性，选择“第项”为当前工作表