作者jongshianns (tompig)
看板Visual_Basic
標題[VBA ] 隱藏模塊錯誤?
時間Mon Nov 24 18:00:21 2014
我有一個電子簽核 用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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1416823223.A.53A.html
1F：推 Marty: "應用程式的版本、平台或架構不相容" 這就是解答 11/24 23:29
但是在他沒執行過之前，這個檔案任何人都可以執行，而且我也去嘗試其他版本和
重新安裝office了，我想這和版本沒有關係。
※ 編輯: jongshianns (106.185.31.128), 11/25/2014 09:01:42
2F：推 Marty: "其他電腦去點採購部輸入密碼不會" <= 你自己都寫了唷~ 11/25 09:29
3F：推 Marty: 應用程式的"版本"、"平台"或"架構"不相容 有三個可能的原因 11/25 09:32
4F：→ Marty: 一一排除吧 11/25 09:32
我已經找到答案了，原因在於採購部使用wps office 而這個軟體會夾帶一個檔案在巨集
裡面，只要排除WPS即可。
謝謝Marty指點。
※ 編輯: jongshianns (106.185.31.128), 11/25/2014 10:37:26
5F：推 Marty: 金山的東西還是少碰為妙 XD 11/25 15:12
沒辦法 我們是台商 加上資訊管理方面沒有很好 希望能夠逐一改善..
※ 編輯: jongshianns (106.185.31.128), 11/28/2014 10:48:58