[VBA ][已解決] 隱藏模塊錯誤?

看板Visual_Basic作者jongshianns (tompig)時間10年前 (2014/11/24 18:00)推噓4(4推 0噓 1→)

留言5則, 1人參與討論串1/1

我有一個電子簽核用EXCEL VBA 做成的檔案只要該部門主管看完文件後點選按鈕再輸入對應文字(密碼)下面就會產生"核准" 最近只要是採購部這台電腦點過的(其他電腦去點採購部輸入密碼不會) 之後的人完全會發生 http://ppt.cc/Ds4c 以下訊息：隱藏模組中發生編譯器錯誤: 模?1 當程式碼與這個應用程式的版本、平台或架構不相容時，最常發生這個錯誤。如需如何修正這項錯誤的資訊，請按一下 [說明]。重點是我在程式碼裡面找不到任何隱藏的模組... 不知道有沒有人碰到類似情況....這個問題很急.... 以下是原始程式碼 Sub approve1() in1 = InputBox("輸入密碼") If in1 = "pt225" Then Worksheets("data").TextBox1 = "核准" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("B2:B3").Locked = True Worksheets("data").Range("D2:G3").Locked = True Worksheets("data").Range("A5:E29").Locked = True Worksheets("data").Range("F36:G36").Locked = True Worksheets("data").Protect Password:="banana" Else MsgBox "輸入錯誤,重新輸入ﾌ" Worksheets("data").TextBox1 = "" End If End Sub Sub approve2() Dim j As Integer For j = 5 To 29 If Worksheets("data").Cells(j, "A") <> 0 And Worksheets("data").Cells(j, "D") <> 0 Then If Worksheets("data").Range("I35") <> 1 Then MsgBox "輛歎/傖掛帤冪徹核准" GoTo finish End If End If Next in2 = InputBox("輸入密碼") If in2 = "wzbc6" Then in2t = InputBox("茠种窒掘蛁") Worksheets("data").TextBox2 = "核准" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("B31") = in2t Worksheets("data").Range("B2:B3").Locked = True Worksheets("data").Range("D2:G3").Locked = True Worksheets("data").Range("A5:E29").Locked = True Worksheets("data").Range("F36:G36").Locked = True Worksheets("data").Protect Password:="banana" Else MsgBox "輸入錯誤,重新輸入ﾌ" Worksheets("data").TextBox2 = "" End If finish: End Sub Sub approve3() Dim i As Integer For i = 5 To 29 If Worksheets("data").Cells(i, "A") <> 0 And Worksheets("data").Cells(i, "D") <> 0 Then If Worksheets("data").Range("I35") <> 1 Then MsgBox "輛歎/傖掛帤冪徹核准" GoTo finish End If End If Next in3 = InputBox("輸入密碼") If in3 = "lyy856" Then in3t = InputBox("茠珛窒掘蛁") Worksheets("data").TextBox3 = "核准" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("B30") = in3t Worksheets("data").Range("B2:B3").Locked = True Worksheets("data").Range("D2:G3").Locked = True Worksheets("data").Range("A5:E29").Locked = True Worksheets("data").Range("F36:G36").Locked = True Worksheets("data").Protect Password:="banana" Else MsgBox "輸入錯誤,重新輸入ﾌ" Worksheets("data").TextBox3 = "" End If finish: End Sub Sub approve4() in4 = InputBox("輸入密碼") If in4 = "cgb123.." Then Worksheets("data").TextBox4 = "核准" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("I35") = 1 Worksheets("data").Range("D5:D29").Locked = True Worksheets("data").Protect Password:="banana" Else MsgBox "輸入錯誤,重新輸入ﾌ" Worksheets("data").TextBox4 = "" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("I35") = 0 Worksheets("data").Protect Password:="banana" End If End Sub Sub approve5() in5 = InputBox("輸入密碼") If in5 = "design" Then Worksheets("data").TextBox5 = "核准" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("I35") = 1 Worksheets("data").Range("D5:D29").Locked = True Worksheets("data").Protect Password:="banana" Else MsgBox "輸入錯誤,重新輸入ﾌ" Worksheets("data").TextBox5 = "" Worksheets("data").Unprotect Password:="banana" Worksheets("data").Range("I35") = 0 Worksheets("data").Protect Password:="banana" End If End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 106.185.31.128 ※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1416823223.A.53A.html

推

Marty

11/24 23:29, , 1^F

11/24 23:29, 1^F

但是在他沒執行過之前，這個檔案任何人都可以執行，而且我也去嘗試其他版本和重新安裝office了，我想這和版本沒有關係。 ※ 編輯: jongshianns (106.185.31.128), 11/25/2014 09:01:42

推

Marty

11/25 09:29, , 2^F

11/25 09:29, 2^F

推

Marty

11/25 09:32, , 3^F