zhuhe

典藏資源

勸學新篇

學試算表

---

奏

山東巡撫 臣 孫氏奏

為禁止新增表

方法一

在ThisWorkbook中

Private Sub Workbook_NewSheet(ByVal Sh As Object)

MsgBox "提醒" & "禁止此操作"

Application.DisplayAlerts = False

ActiveSheet.Delete

Application.DisplayAlerts = True

End Sub

方法二

Private Sub Workbook_NewSheet(ByVal Sh As Object)

'關閉熒幕刷新

Application.ScreenUpdating = False

'關閉删除時顯示對話框

Application.DisplayAlerts = False

Sh.Delete

'打開熒幕刷新

Application.ScreenUpdating = True

End Sub

此代碼只是刪除新增恭摺具

陳伏乞

皇上聖鑒謹

奏

知道了

成憲庚子年五月廿二日