|
こんにちわ。
どうしても不可解なエラーが出たので分かる方がいたら教えてください。
極稀な環境で、Excelファイル(私が作ったファイル)を開いただけで、
『オートメーションエラーです。エラーを特定できません。』
というエラーメッセージがでるのです。
私が動作チェックをした環境ではそのようなエラーが出たことは無かったので、非常に困っています。
ちなみに、そのエラーが出た環境はWindowsXP(Pro)+Excel2002です。
私がWindowsXP(Pro)+Excel2002で動作チェックした時にはそのような現象は起きませんでした。
パソコンの機種によってそのような現象が起きたりするということはあるのでしょうか。
ちなみに、Excelファイルを開いた時に実行されるマクロは、バージョン番号をSheet1に表示するための、このマクロだけです。
Private Sub Workbook_Open()
If Worksheets("Sheet1").ProtectContents = False Then
Worksheets("Sheet1").Range("AQ66").Value = 1.00
End If
End Sub
他に影響しそうなマクロがあるとしたら、各シートにシート名変更防止マクロを入れてあるくらいでしょうか。(http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=13640;id=excel)
Private Sub Worksheet_Calculate()
Dim ShName As String, MyPos As Long
ShName = Me.Range("CZ2").Value
MyPos = InStr(ShName, "]")
ShName = Right(ShName, Len(ShName) - MyPos)
If ShName <> "Sheet1" Then
MsgBox "シート名の変更は出来ません"
Me.Name = "Sheet1"
End If
End Sub
どうしても、エラーの原因が分からなくて困っています。
分かる方がいましたら、ぜひお願いします。
|
|