標題: [發問] 程式不會執行~"~ [打印本頁]

---

作者: linsurvey2005    時間: 2012-2-4 10:50     標題: 程式不會執行~"~

請教前輩我寫的內容大要如下
認證條件1:Sheets(1).Cells(1,1)="100"
認證條件2:輸入姓名 密碼
認證完成=執行 Else 關閉
[attach]9424[/attach]

---

作者: GBKEE    時間: 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

---

作者: linsurvey2005    時間: 2012-2-4 12:36

回復 2# GBKEE


    感謝前輩指正"程式名跟表單"一樣,電腦真的發瘋了
       問題已經解決,可是自己覺得很奇怪Sheets(1)我沒有隱藏
       而且在編輯器裡面看到的也是Sheet1(Sheet1)怎麼會這樣
       請前輩指點

---

作者: linsurvey2005    時間: 2012-2-4 12:40

我把A1的值100刪除後怎麼沒有關閉檔案
昏倒內 請前輩指點

---

作者: GBKEE    時間: 2012-2-4 12:48

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

1. Sub Ex()
   
2.     Dim e As Worksheet
   
3.     MsgBox Sheets.Count
   
4.     For Each e In Sheets
   
5.         e.Visible = True
   
6.     Next
   
7. End Sub

複製代碼

---

作者: linsurvey2005    時間: 2012-2-4 13:38

本帖最後由 linsurvey2005 於 2012-2-4 13:57 編輯

回復 5# GBKEE


    [attach]9428[/attach]
   

前輩可以使用了
[attach]9429[/attach]
我把整個檔案更新之後就可以了
結果:請前輩把A1的值刪除或更改~可得關閉程式

---

作者: GBKEE    時間: 2012-2-4 14:39

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

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

複製代碼

---

作者: linsurvey2005    時間: 2012-2-6 13:28

回復 7# GBKEE
感謝前輩的再三指導
受益良多
感覺前輩好細心~^.^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)