前言
 
删除工作表是VBA代码开发过程中经常用到的操作，一行代码就可以完成，这有啥可讲的呢！？代码一执行，是否就看到下面这个令人烦的窗口跳出来了。 
  
 此时，你就不得不点击【删除】按钮确认才可以删除工作表，如果要批量删除多个工作表，那么就需要不停的点击按钮，VBA代码实现自动化操作的目的就无法实现。
 
解决方案
 
Excel为了避免用户的误操作，每次删除工作表都会给出提示信息，用户确认后才会执行删除操作，这个机制是Excel的安全机制，无法取消。但是可以利用系统设置屏蔽这个提示信息，以实现无人干预的自动化操作。为了方便调用，将代码封装成独立的过程。
 
Sub DelSheets(vShtName, Optional sWkName As String)
    Dim sName
    With Application
        .DisplayAlerts = False
        On Error Resume Next
        If Len(sWkName) > 0 Then
            Set objWk = ActiveWorkbook
        Else
            Set objWk = Workbooks(sWkName)
        End If
        If VBA.IsArray(vShtName) Then
            For Each sName In vShtName
                objWk.Sheets(sName).Delete
            Next
        Else
            objWk.Sheets(sShtName).Delete
        End If
        On Error GoTo 0
        .DisplayAlerts = True
    End With
End Sub
 
DelSheets过程有两个参数：
 
vShtName是必选参数，用于指定需要删除的工作表名称, 可以单个工作表，也可以是多个工作表名称组成的数组。
sWkName是可选参数，用于指定工作表所隶属的工作簿。 
 调用代码如下：
 
'删除单个工作表
Call DelSheets("Sheet1")
'删除多个工作表
Call DelSheets(Array("Sheet1","Sheet3","Sheet3"))
 
代码解析
 
此过程的核心代码如下：
 
Application.DisplayAlerts = False
On Error Resume Next
 
第一行代码禁止显示系统告警信息，删除工作表时就不会出现提示对话框，在过程结束前，需要回复系统设置Application.DisplayAlerts = True。 
 第二行代码忽略系统错误，也就是忽略删除工作表可能产生的异常错误，在过程结束前，需要回复系统设置On Error GoTo 0。
 
VBA.IsArray(vShtName)用于判定参数vShtName是否是数组。
 
如果vShtName是数组，则返回值为True，属于批量删除工作表。For Each sName In vShtName遍历数组中的元素（工作表名称），然后逐个删除。
如果vShtName不是数组，那么就是单个工作表名称，可以直接进行删除操作。

在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表，那么运行时错误’1004‘就不期而遇的跳了出来。 
  
 老规则 —— 先删除再创建，删除工作表很简单嘛，Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口，Excel的产品经理考虑过宝宝们的用户体验吗！？删除工作表也搞得这么复杂，又不是从银行账户里转走500万。 
  
 每次都这么麻烦，必须拿出VBA来搞定它了。
 
Sub DelSheet(vShtName, Optional sWkName As String)
    Dim sName
    With Application
        .DisplayAlerts = False
        On Error Resume Next
        If Len(sWkName) > 0 Then
            Set objWk = ActiveWorkbook
        Else
            Set objWk = Workbooks(sWkName)
        End If
        If VBA.IsArray(vShtName) Then
            For Each sName In vShtName
                objWk.Sheets(sName).Delete
            Next
        Else
            objWk.Sheets(sShtName).Delete
        End If
        On Error GoTo 0
        .DisplayAlerts = True
    End With
End Sub
 
这个事儿整的似乎有点儿大，一句代码怎么被扩展成了20多行。莫急，俗话说工欲善其事，必先利其器，以后调用起来就so easy。
 
Sub Demo()
    '删除单个工作表
    DelSheet Array("sheet1")
    '删除多个工作表，并指定工作簿
    DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
End Sub
 
无论是当前工作簿还是其他工作簿，即可以删除单个工作表，又可以删除一组工作表，随心所欲一句代码就搞定。

为了防止用户误删除工作簿中的工作表，可以通过保护工作簿的方法来禁止删除工作表，方法如下：
 
    1. 在Excel 2003中，单击菜单“工具→保护→保护工作簿”。在Excel 2007中，选择“审阅”选项卡，在“更改”组中单击“保护工作簿→保护结构和窗口”。在Excel 2010中直接单击“保护工作簿”按钮即可。
 
    2. 在弹出的窗口中默认已选择了“结构”。在“密码”下方输入密码。
 
    
 
    单击“确定”，并再次输入密码。
 
    这样，就对工作簿的结构设置了保护，用户如果不知道密码则无法复制、删除或插入工作表，也不能修改工作表名称。如果在上述对话框中选择了“窗口”，会禁止用户更改工作表窗口大小和位置。
 
    另外，当设置了工作簿保护后，功能区中或菜单中的相关命令会出现一些变化，如Excel 2010会高亮显示“保护工作簿”按钮，Excel 2007会在“保护结构和窗口”命令前显示一个对勾，而Excel 2003菜单中的“保护工作簿”命令会变成“撤消工作簿保护”，通过这些就可以了解工作簿是否被设置了保护。

近期因工作之需需对Excel数据进行录入处理加工遂开始研究Excel的VBA编程以提高工作效率，将重复性的工作程序化。
需求① 在一个工作簿（workbook）中根据已知的工作表名称创建多个工作表并分别命名，可以创建同时当然需要研究增删改工作表。
思路：研究vba的基础语法，知道了workbooks（工作簿集）、workbook（工作簿）、worksheet（工作表）两个对象包含多种方法可分别对工作簿和工作表进行操作
主要代码如下：
'批量创建工作表
Sub CreateSheet_Click()
    Dim int_rows As Integer, rng As Range, rng1 As Range, int_rows1 As Integer
    int_rows = 0
    For Each rng In ThisWorkbook.Worksheets(1).UsedRange.Columns(1).Rows
        If rng.row > 1 Then
            int_rows1 = 0
            int_rows = int_rows + 1
            ThisWorkbook.Worksheets.Add Count:=1, after:=Sheets(int_rows)
            ThisWorkbook.Worksheets(int_rows + 1).Name = rng.Value
            For Each rng1 In ThisWorkbook.Worksheets(1).UsedRange.Columns(2).Rows
                If rng1.row > 1 Then
                    int_rows1 = int_rows1 + 1
                    ThisWorkbook.Worksheets(rng.Value).Cells(1, int_rows1).Value = rng1.Value
                End If
            Next
        End If
    Next
    MsgBox int_rows & "个工作表已创建完成"
End Sub
'批量删除工作表并不弹出警告框
Sub deleteSheet_Click()
    Dim int_rows As Integer, rng As Range
    int_rows = 0
    Application.DisplayAlerts = False
    For Each rng In ThisWorkbook.Worksheets(1).UsedRange.Columns(1).Rows
        'int_rows = int_rows + 1
        If WorksheetExists(ThisWorkbook, rng.Value) Then
        ThisWorkbook.Worksheets(rng.Value).Delete
        int_rows = int_rows + 1
        End If
    Next
    Application.DisplayAlerts = True
    MsgBox "共删除" & int_rows & "个工作表"
End Sub