VBA是否有偵測刪除SHEET的事件？

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-6-7 16:56 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-6-7 17:10 編輯

回復 1# mtc0611
檔案加密如何交流??
原本是把巨集丟在SheetActivate 加上 xlShCount = Sheets.Count 來判斷是否有刪除工作表

Option Explicit
Dim xlShCount As Integer
Private Sub Workbook_Open()
整理
End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.EnableEvents = False
If Sheets("頁首").Index <> 1 Then
Sheets("頁首").Move Sheets(1)
Sh.Activate
End If
整理
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If xlShCount <> Sheets.Count Then 整理
End Sub
Private Sub 整理()
Dim xi As Integer
With Sheets(1)
.Columns(1) = ""
For xi = 2 To Sheets.Count
.Hyperlinks.Add Anchor:=.Cells(xi, "a"), Address:="", SubAddress:=Sheets(xi).[A1].Address(, , , 1), TextToDisplay:=Sheets(xi).Name
Next
End With
xlShCount = Sheets.Count
End Sub

複製代碼

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。