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

linsurvey2005

請教前輩我寫的內容大要如下
認證條件1:Sheets(1).Cells(1,1)="100"
認證條件2:輸入姓名 密碼
認證完成=執行 Else 關閉
練習鎖碼V0.4.1上傳xls.zip (11.95 KB)

下載次數: 3

2012-2-4 10:44

GBKEE

回復 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

回復 2# GBKEE


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

linsurvey2005

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

GBKEE

回復 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

回復 5# GBKEE


    練習鎖碼V0.4.2-刪.zip (13.87 KB)

下載次數: 3

2012-2-4 13:38

   

前輩可以使用了
練習鎖碼V0.4.3.zip (12.34 KB)

下載次數: 3

2012-2-4 13:54

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

GBKEE

回復 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

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