有時候工作需要,禁止用戶在現(xiàn)有的工作薄中插入添加工作表。用基礎(chǔ)操作無法實現(xiàn)禁止插入(添加)工作表,可以使用VBA代碼來完成。
禁止插入(添加)工作表的方法一:
按下ALT+F11,打開VBE編輯器,在ThisWorkbook中添加以下代碼:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
下面是用VBA禁止插入(添加)工作表的一個截圖:
禁止插入(添加)工作表的方法二:
將方法一的代碼改為下面的:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
'關(guān)閉屏幕的刷新
Application.ScreenUpdating = False
'關(guān)閉刪除工作表時顯示的提示對話框
Application.DisplayAlerts = False
Sh.Delete
'打開屏幕刷新
Application.ScreenUpdating = True
End Sub
這樣也可以禁止在一個工作簿中添加插入工作表。這段代碼嚴(yán)格的是只是將新增加的工作表刪除。
禁止插入(添加)工作表的方法三:
代碼人性化直觀一些,用消息框提示:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox "你不能插入工作表"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
核心關(guān)注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:禁止插入(添加)工作表的方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139214772.html