程序代码

通过代码实现只允许打开特定Excel工作表的方法
处理数据时,有时为了保护Excel工作表,往往只对某些用户开放指定的工作表,而工作簿中其他工作表则不允许用户打开。在编写VBA程序时,可以通过在工作表的Deactivate事件过程中添加代码只允许特定的工作表被激活来实现这一功能。本文介绍通过在Excel工作表的Deactivate事件过程中添加代码实现只允许打开特定的工作表的方法。1、启动Excel并打开Visual Basic编辑器,在工程资源管理器中双击"Sheet1(Sheet1)"选项打开工作表Sheet1的“代码”窗口,在其中输入程序代码,。具体程序代码:Private Sub Worksheet_Deactivate()MsgBox"您只能查看当前工作表!"Sheets(1).ActivateEnd Sub 图1 在“代码”窗口中添加程序代码提示在Excel中,当用户单击其他工作表标签时,当前工作表将产生Deactivate事件过程,因此只要在这个事件过程中使用Activate方法使当前工作表再次被激活,就可以实现禁止打开其他工作表。

通过VBA编程实现Excel工作簿只显示指定工作表的方法
当Excel工作簿中有多个工作表时,有时希望只显示当前正在操作的工作表。本文介绍通过VBA编程来实现让Excel工作簿只显示指定的工作表的方法。1、启动Excel并打开Visual Basic编辑器,在工程资源管理器中双击"ThisWorkbook"选项打开其“代码”窗口,在其中输入程序代码,。具体的程序代码:Private Sub Workbook_Open()Dim sht As WorksheetFor Each sht In Me.WorksheetsIf Not sht Is Worksheets("主界面")Then sht.Visible=xlSheetHiddenNextEnd Sub 图1 在“代码”窗口中输入程序代码