怎样使用VBA删除指定字符则工作簿删除？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Dim cell As Range, bool As Boolean, temp As String

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableCancelKey=xlDisabled
  If bool Then
    If Len(cell)=0 Then
      If MsgBox("你真的要删除" & temp & "吗？" & Chr(13) & "删除后则工作簿立即自杀！" _
        & Chr(13) & "继续请按是，要保留请按否。", vbYesNo, "警告")=vbYes Then
        Application.DisplayAlerts=False
        ActiveWorkbook.ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        Application.Quit
      Else
        Target=temp
        Exit Sub
      End If
      End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set cell=Target
bool=Target Like "*中国*" Or Target.Value Like "*中华*"
temp=Target.Text
End Sub

5、如果在对话框中选择“否”，则原单元格删除的字符自动还原；如果选择“是”，则工作簿立即自我删除