エクセルを起動すると、Visual Basic !無効なオブジェクトライブラリです。または定義されていないオブジェクトへの参照を含んでいます。と警告され。BOOK名 BenriQAT.basと言うbookが自動的に開き、Attribute VB_Name = "MD_QATBENRI"
Option Explicit
Const Benri As String = "便利ツール.xls!"
Private Sub Auto_Open()
Application.OnTime Now + TimeValue("0:0:2"), ThisWorkbook.Name & "!Start_Proc"
End Sub
Private Sub Start_Proc()
Dim wb As Workbook
Application.ScreenUpdating = False
ThisWorkbook.Saved = True
If ThisWorkbook.ReadOnly = False Then ThisWorkbook.ChangeFileAccess xlReadOnly
ThisWorkbook.IsAddin = False
ThisWorkbook.Windows(1).Visible = False
ThisWorkbook.Saved = True
For Each wb In Application.Workbooks
If wb.Windows(1).Visible = True Then
Exit For
End If
Next
If wb Is Nothing Then
Workbooks.Add
End If
Set wb = Nothing
Application.ScreenUpdating = True
End Sub
Public Sub QAT_はんこ設定()
Application.Run Benri & "CMD_はんこ設定"
End Sub
Public Sub QAT_押印1()
Application.Run Benri & "CMD_押印1"
End Sub
Public Sub QAT_押印2()
Application.Run Benri & "CMD_押印2"
End Sub
Public Sub QAT_押印3()
Application.Run Benri & "CMD_押印3"
End Sub
Public Sub QAT_目次作成()
Application.Run Benri & "CMD_目次作成"
End Sub
Public Sub QAT_ページ設定情報一覧()
Application.Run Benri & "CMD_ページ設定情報一覧"
End Sub
Public Sub QAT_ページ設定情報複写()
Application.Run Benri & "CMD_ページ設定情報複写"
End Sub
Public Sub QAT_一括取り込み()
Application.Run Benri & "CMD_一括取り込み"
End Sub
Public Sub QAT_一枚取り込み()
Application.Run Benri & "CMD_一枚取り込み"
End Sub
Public Sub QAT_ピクセル_列幅行高()
Application.Run Benri & "CMD_ピクセル_列幅行高"
End Sub
Public Sub QAT_数式セルのロック()
Application.Run Benri & "CMD_数式セルのロック"
End Sub
Public Sub QAT_結合セルを含む範囲の値複写()
Application.Run Benri & "CMD_結合セルを含む範囲の値複写"
End Sub
Public Sub QAT_結合セルの行高の自動調整()
Application.Run "CMD_結合セルの行高の自動調整"
End Sub
Public Sub QAT_セル内改行のあるセルの列幅自動調整()
Application.Run Benri & "CMD_セル内改行のあるセルの列幅自動調整"
End Sub
Public Sub QAT_極細罫線_格子()
Application.Run Benri & "CMD_極細罫線_格子"
End Sub
・・・・・続く・・と言った文字が毎回出ます。以前便利ツールをインストールしていたせいだと思いますが、直し方が分かりません。オフィスのインストールし直しなどしましたが変わりません。どうすればいいのですか?お願いします。
お礼
直りました。プログラムではアンインストール出来ていても、appdataの先にしっかりと残っていました。それを削除したら普通に戻りました。
補足
アドインには便利ツールは無く、電子印鑑・kt関数・look upウィザード・テンプレートユーティリティー・分析ツールVBAのみチェックされた状態です。因みに、もう一度便利ツールをインストールしようとしても、エラーになりました。