我有一個電子簽核 用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