[發問] 請問是否能禁止新增sheet的方式

z71078170

因需要讀取A檔案第一個sheet的內容
故不想讓使用者在A檔案新增其他sheet
若移動sheet順序，導致程式錯誤
目前只有想到如果可以禁止新增其他sheet就能解決!
各位大大怎麼看?

jackyq

回復 3# c_c_lai


大大好
完全不會有堆疊負荷問題

z71078170

目前先使用 GBKEE大大的方式，目前方式使用上沒有問題，謝謝
倘若改為工作表的屬性視窗判別順序
許多程式要修改了XD
最近比較忙一些，打算未來有空閒一點 在更正
謝stillfish00指點

stillfish00

回復 1# z71078170
可以不要用順序來讀取該工作表內容
你可以看該工作表的屬性視窗
例如
(Name)屬性為XXX
Name屬性為YYY

可以用 XXX.Range("A1")
或用 Sheets("YYY").Range("A1")

准提部林

保護活頁簿較實在,
NewSheet應該無法偵測工作表複製~~

GBKEE

回復 3# c_c_lai
會的 ,但要執行5000 多次後.

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Debug.Print Sh.Name
   
5.     Sh.Delete
   
6.     Application.DisplayAlerts = True
   
7. End Sub
   
8. Sub Ex()
   
9.     Dim I As Long
   
10.     On Error Resume Next
    
11.     Do
    
12.         Debug.Print I
    
13.         I = I + 1
    
14.         DoEvents
    
15.         Sheets.Add Sheets(1)
    
16.     Loop
    
17. End Sub

複製代碼

c_c_lai

回復 2# GBKEE
請教您！
如此重複地執行 Sh.Delete，
會不會造成 Excel 內部堆壘的
負荷？

GBKEE

回復 1# z71078170

下載 (79.35 KB)

2015-11-27 08:35

試試看

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Sh.Delete
   
5.     Application.DisplayAlerts = True
   
6. End Sub

複製代碼