- 帖子
- 49
- 主題
- 15
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- W7
- 軟體版本
- IE8
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-10-10
- 最後登錄
- 2014-5-10
|
12#
發表於 2010-11-9 23:17
| 只看該作者
程式開啟只有這一段
Sub auto_open()
Sheets("總表").Select
Range("A1").Select
MsgBox ("版權所有，複製必究，請勿非法使用" _
& Chr(13) & "本程式僅供 ............ 使用" _
& Chr(13) & "歡迎檢舉非法使用" _
& Chr(13) & "設計者：............ " _
& Chr(13) & "EXCEL程式屬Microsoft公司所有，使用者須自行購買")
End Sub
PS.
最新的測試結果，開啟後不做任何動作，約十幾分鐘後再操作就會出現錯誤
沒問題的電腦還是沒問題(一次也沒發生過)
 |
|
發表於 2010-11-9 22:48
| 
