程式不會執行~"~ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 程式不會執行~"~

返回列表下一主題上一主題發帖

[發問] 程式不會執行~"~

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

1^# 跳轉到 »

發表於 2012-2-4 11:34 | 顯示全部帖子

回復 1# linsurvey2005
你活頁簿的第一個工作表是隱藏一4.0巨集表
Sub 自動認證()
   If Sheets(2).Cells(1, 1) = "100" Then
   ' If Sheets("Sheet1").Cells(1, 1) = "100" Then
   Call 使用認證
   Else
      ThisWorkbook.Saved = True
      Application.Quit
   End If
End Sub
你程式的名稱與表單名稱一樣  電腦會發瘋的
Sub 使用認證()
使用認證.Show
End Sub

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2012-2-4 12:48 | 顯示全部帖子

回復 3# linsurvey2005
我把A1的值100刪除後怎麼沒有關閉檔案傳上檔案看看
打開所有工作表

Sub Ex()
Dim e As Worksheet
MsgBox Sheets.Count
For Each e In Sheets
e.Visible = True
Next
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 2012-2-4 14:39 | 顯示全部帖子

回復 6# linsurvey2005
因為檔案開啟後優先執行 Workbook_Open 後,但還有程式Sheet1!Auto_Activate 要執行
所以 Application.Quit 就不起作用了

Private Sub Workbook_Open()
'''''''''''正常後這段沒作用可刪掉
Dim E As Name
For Each E In Names
MsgBox E.Name '會自動執行4.0巨集
E.Delete '刪除掉
Next
''''''''''''''''''''''''''
Call 自動認證
End Sub

複製代碼

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。

返回列表下一主題上一主題