EXCELLバーコードコントロールを使うと印刷マクロが使えない

Question

マクロ初心者です。よろしくご教授下さい。
EXCELLで表（請求書）を作り送付状をつけて発送します。請求書、送付状の各シートの宛名にデーターを読み込んでそれぞれを印刷するマクロを設定しました。送付状にバーコードも印刷したくて、最近その方法を知りバーコードコントロールから設定しました。しかしバーコードコントロールを設定してからマクロを組んだ印刷ボタンを押すと「アプリケーション定義またはオブジェクトエラーです」となって印刷できません。バーコードコントロールの設定を削除するとちゃんと印刷できます。どこに問題があるのでしょうか。
それとバーコードコントロール設定後ファイルを開くと「このアプリケーションは安全でない可能性のあるActiveXコントロールを初期化しようとしています。このドキュメントの提供元が信頼出来る場合は[はい］を押してください。コントロールはドキュメントの設定を使用して初期化されます」というメッセージが表示されます。これにはどのように対応したらよいのでしょうか。
よろしくお願いいたします。

Wendy02 · Accepted Answer

こんにちは。

少し遅くなりすみませんでした。やっと、2点は再現することができました。郵便番号バーコードを出力できました。

確かに、おっしゃるとおりの現象なのでしたが、VBAの問題については、何か理由が分かりません。ただ、一度、マクロが通れば通るようになるはずです。

たぶん、セキュリティの関係で、マッチングが悪いのかもしれません。

試したコードです。(これでコードはパスしています。)
'-------------------------------------------

Private Sub CommandButton1_Click()
Dim 部数 As Integer
　部数 = 1 '印刷部数を指定する ※１
　With Worksheets("送付状")
　 .PrintOut Copies:=部数
End With
End Sub

'-------------------------------------------
それと、

「アプリケーションは安全でない可能性のあるActiveXコントロールを初期化しようとしています」
は、カスタムインストール・ウィザード(OAK に入っています)で処理しようとしましたが、該当するmsi ファイルが見つかりませんでしたので、

レジストリで処理しました。処理は、落ち着いて邪魔が入らないときにやらなくてはなりません。バックアップを取っておいたほうがよいです。

#レジストリ設定を UFIControls = 1 に変更する

Wendy02 · Answer

こんばんは。

私のコードを実現するためには、もう少し基礎的な力が必要だと思うのですが。

>たとえばCtrl+F11を押して「Macro」のシートに貼り付けるというようにお教え願いないでしょうか。

厳しいようですが、モジュール名や、その開き方は、どこかのマクロの入門サイトを探していだけないでしょうか。内容にもよりますが、今回の場合は、そういうところからの出発点ですと、おそらく、もうこれ以上先にはもう進めないないように思います。

>お教えいただいたコードはファイル名を入力した時点で新規ファイルとして保存されるのでしょうか。

それはできても、前回書いたように、抜け落ちしないような作り方をするときは、本当に、その仕組みを理解しないと、マクロ自体の保存が元のブックにできないと思います。また、マクロとブックを別にする方法もありますが、それは、アドインにすることです。しかし、それは、また別にややこしい部分が出てきてしまうし、モジュールの位置がはっきりしていない以上は、無理なのです。一通り、マクロの使い方を覚えてからにしていただきたいのです。

（なお、ここの掲示板は、回答者の著作権を規約上、認めていませんのでどうしても、こういうところでは、内容的に制約はあります。)

あしからずご理解くださるようお願いします。

参考
http://oshiete1.goo.ne.jp/qa5302737.html
マクロの学習の仕方が書かれています。どうやら、私も他の方の基本ラインは同じようです。

Wendy02 · Answer

補足：

john-noviさんのご希望には、足らないものですが、インスタンスをボタンに設けるというサンプルです。その掲示で書いたとおりですが、複数のボタンをひとつのモジュールに集約するというのは、同種類のボタンは、イベントが同時に働いてしまうので、それで難しくなるのです。

http://oshiete1.goo.ne.jp/kotaeru.php3?qid=5280581

Wendy02 · Answer

こんにちは

#＞なお、お礼側に書いたものは、直接メールされますが、補足側に書かれたものは、メールはありません。補足側で細かいことを書いて、メール側にちょっとでも書けば、こちらは見落とすことはありません。

私のこの発言について、詳しく説明させていただくと、ここのサイトには、「あげ」がありませんので、日にちが経たないものは、補足側に書かれても、上にあるので書き込みは楽なのですが、1週間も経ちますと、かなり離れてしまうのです。そうすると、だんだん対応が遅れてしまいます。お礼側に書いたものは直接、メールで連絡がきますので、忘れることはありません。できれば、補足とお礼は上手に使い分けてくれると助かります、ということでした。

一応、自分の発言リストは、Excelで4年分あるので、気になるものはマーキングしてあります。しかし、最近、ここの質問と回答のバランスが崩れているのと、また、自称「専門家」さんの専門家らしくない回答が、私のテンションを下げているのが本音のところです。

それから、Excel VBAの勉強は、なかなか難しくなっています。専門レベルの資料が、まったくなくなってしまいました。一時期、Office でVBAはやめるという噂が出ました。(発表元は、Microsoft の別チームらしい)。しかし、その後、Microsoft側は、VBA を当分の間やめません、と開発のチームリーダーが、それを否定した発表しています。それゆえに、Mac 側のOffice のVBAも復活しました。

日本の場合、Excel2000時代、つまり、2000年前後に、まとまって専門書は出されましたが、その後、すべて絶版になってしまいました。私の場合は、遡って、Excel Ver.5,Ver.4 について学びました。必要か不必要かは別として、今、VBAは、一定のレベルまでは学ぶことができますが、VB6自体がなくなって以来、本当の上級が学びにくくなっています。ここの掲示板のレベルは、もともとあまり高くはありませんが、質問者さんが、混乱させられる発言も多くあるように思います。

Wendy02 · Answer

こんにちは。

今のところ、どこまで、望んでいるのか、状況がつかめなかったからです。
上書きを完全になくす方法はあるのですが、他人には分からない、上書きを許すオプションを付けないことには、マクロコードさえ保存できなくなってしまうからです。コマンドボタン自体に、インスタンスを設けて、そこで操作させる方法です。詳しい方なら分かるはずですが、ここの掲示板では、あまり見られないものです。

一応、私は、書き込むときは「一般」という立場(常連は暗黙のマナーがあるようです)ですが、それでも、実は、無料の掲示板ではシステムに近いものは、公開しにくいのです。公開しますとは書いたものの、できれば、今の路線で収まってほしいなっていう期待がありました。言いにくいことでしたので、申し訳ありません。

補足にある

>また
>＞ThisWorkbook 側は、行ったり来たりするので、少しややこしいです。
>
>はどうしたらよいのでしょうか。
>お手数をおかけしますが具体的にお教えくださるとありがたいです。

コードの流れを追いかけると、そのようになるので、ステップモード以外には、特に問題ではありません。読むのにややこしいということです。

＞Ctrl + S のショートカットは生きています。もし、この部分なども、上書き保存の監視範囲に入れる場合は、ご相談ください。
>あまりショートカットキーは使わないのですが、念のため監視範囲に入れていただくとありがたいです

Ctrl + S だけをなしにしてしまうのでしたら、

標準モジュール側の　Auto_Open で、

Application.OnKey "^s","DummyMcr"

を入れて、

Auto_Close で、

Application.OnKey "^s"

として、DummyMcr は、

Sub DummyMcr()
　'空にしておく
End Sub

'-------------------------------------------
これ以外にも、コマンドボタンの上書きボタンを、使用不可にする方法もあります。

しかし、完全な形にするには、#6で書いたコードとは、まったく違うものです。

#6で書いたように、
「オブジェクトを作って、コマンド・ボタンにインスタンスを設けることですが、オブジェクトが壊れやすいのです。」

とは書いたものの、どうしたものかなって思っています。
コードを貼り付けるだけではなく、そういうことを理解していただけるレベルなら良いのですが……。そうしないと、メインテナンスで困ってしまうのです。

なお、お礼側に書いたものは、直接メールされますが、補足側に書かれたものは、メールはありません。補足側で細かいことを書いて、メール側にちょっとでも書けば、こちらは見落とすことはありません。

Wendy02 · Answer

こんばんは。
>「基本データ入力」シートの「C6」に請求日を入力するとファイル名が自動生成するようにしてあり、そのファイル名を作業中のブックのファイル名に自動で換えられないかと考えているのですがいかがでしょうか。

どこでタイミングを取るかだけの問題です。今回、ある程度、こちらで、決めてしまいました。ファイル名が自動生成するというのも、単に、数式で、例えは、TEXT関数を使ったものなのでしょうか。以下のマクロは、手入力した時に、ファイル名が変更されるものです。いろんな方法を考えてみましたが、あまり凝ったものを作ると、プロジェクトのプロテクトが必要になってしまいます。それは、オブジェクトを作って、コマンド・ボタンにインスタンスを設けることですが、オブジェクトが壊れやすいのです。(とは言っても、イメージが沸かないと思います。試作で作ってみました。ご希望なら、公開します。)

以下は、シートモジュールと、ThisWorkbookブックにそれぞれイベントを設けましたので、コードを貼り付けてください。それほど高度な内容ではありませんが、ThisWorkbook 側は、行ったり来たりするので、少しややこしいです。

mPath = Application.DefaultFilePath & "\請求書\"　'要変更
ここは、デフォルトパスの下にフォルダを設けているというスタイルですから、実際に合わせて換えてください。

なお、この行は、通常ではTarget との位置関係は逆です。
If Intersect(Range("C6"), Target) Is Nothing Then Exit Sub 

コメントに、「Target セルはひとつではない」と書かれているように、イベント対象セルは複数でも、働くように考えました。

データ入力シートのC6に手書きで入れたときに、反応するようになっていますから、イベントの種類が違うなら変更してなくてはなりませんが、そのセルに、F2--Enter だけでも、稼動します。また、コードをほかのイベントでも使えるように、Function Check_Save(rng As Range)　の関数プロシージャで処理するように抜き出してあります。

なお、これは、
Mid$(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".xl"))
Office 2007 も想定に入れているからです。

終了時に、
"ファイル名とC6が違います。このまま終了しますか？
仮に、OK を押して、終わらせようとしても、Excelのアプリ側のメッセージで、保存するかどうか聞いてきます。二重の警告になります。

基本的には、既存のファイル名は同じフォルダには保存できません。

コードを修正するときは、バックアップを取ったほうがよいです。私は、気が付かないまま、二度ばかりコードを失ってしまいました。Ctrl + S のショートカットは生きています。もし、この部分なども、上書き保存の監視範囲に入れる場合は、ご相談ください。私個人では、あまりしっかりしたものを作ると、今度は修正するときに、どうするか分からなくなってしまうことがありますので、抜け道を置いておきます。

'---------------------------------------------------------
'-------------------------------------------
'"基本データ入力シート"
'-------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C6"), Target) Is Nothing Then Exit Sub 'Target セルはひとつではない
If Range("C6").Value = "" Then Exit Sub

Application.EnableEvents = False
　 Call Check_Save(Range("C6"))
Application.EnableEvents = True

End Sub
Function Check_Save(rng As Range)
Dim mPath As String
Dim fn As String
Dim ext As String
'パスの登録
mPath = Application.DefaultFilePath & "\請求書\"　'要変更
　　If Not ThisWorkbook.Name Like rng.Value & "*" Then
　　　　fn = mPath & rng.Value
　　　　If InStrRev(fn, ".xl") = 0 Then
　　　　　　ext = Mid$(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".xl"))
　　　　　　fn = fn & ext
　　　　End If
　　　　If Dir(fn) = "" Then
　　　　　　ThisWorkbook.SaveAs fn
　　　　Else
　　　　　 MsgBox fn & vbCrLf & "は、すでに存在しています。", vbExclamation
　　　　　 Check_Save = True
　　　　End If
　　End If
End Function

'-------------------------------------------
'ThisWorkbook モジュール
'-------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fn As String
Dim ext As String
Dim ret As Variant
Dim mPath As String
　mPath = Application.DefaultFilePath & "\請求書\"
　fn = mPath & Worksheets("基本データ入力").Range("C6").Value
　If InStrRev(fn, ".xl") = 0 Then
　　　　ext = Mid$(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".xl"))
　　　　fn = fn & ext
　 End If
　
　If ThisWorkbook.FullName <> fn Then
　　Application.DisplayAlerts = False
　　　 With Worksheets("基本データ入力")
　　　 ret = .Check_Save(.Range("C6"))
　　　 Cancel =ret
　　　 If ret Then
　　　　　 Application.Goto .Range("A1")
　　　　　If MsgBox("ファイル名とC6が違います。このまま終了しますか？", vbInformation + vbOKCancel) = vbCancel Then
　　　　　　 Cancel = True
　　　　　End If
　　　 End If
　　　 End With
　　Application.DisplayAlerts = True
　End If

End Sub

Wendy02 · Answer

こんばんは。

>[.PrintOut Copies:=部数]のコードが黄色く塗られています。

この部分で、VBAのコードがエラーを発生するということは、まず考えられないことです。セキュリティが原因かもしれませんが、こちらでは分かりません。

実行できないのは、想定外で問題で、当面、以下のふたつを試していただくしかありません。

1)新規のブックでも同様になるか、どうか。

2)プリンタのドライバをアップデートして、どうなるか。

ということです。

Wendy02 · Answer

こんにちは。

>実行すると「コンパイルエラー　Sub Endが必要です」のメッセージが出てしまいます。

マクロはほとんど詳しくなかったのですね。

Private Sub CommandButton1_Click()　'←コマンドボタンのイベント型マクロ
Dim 部数 As Integer
部数 = 1 '印刷部数を指定する ※１
With Worksheets("送付状")
　.PrintOut Copies:=部数
End With
End Sub

これは、コマンドボタンにつけるものでしたのですが、付け替えるなら、

Sub 送付状印刷()　'←Subプロシージャ型マクロ
Dim 部数 As Integer
部数 = 1 '印刷部数を指定する ※１
With Worksheets("送付状")
　.PrintOut Copies:=部数
End With
End Sub

となります。ただ、最初、通らない可能性がありますが、ステップモード(F8を押しながら進める)を繰り返してみてください。繰り返すと、通るようになりました。

>「アプリケーションは安全でない可能性のあるActiveXコントロールを初期化しようとしています」についてはご指示のマイクロソフトの説明も読みましたが、UFIControls = 1に設定して今後セキュリティ上などで大丈夫なのでしょうか。

これについては、一般論として安全性については、お約束できません。しかし、だからといって、本来、メッセージが出たとしても、ActiveX コントロールなどの危険性を防ぐ手立てなどはないような気がします。選択肢は、「はい」しかありませんから。

本来、危険なものというのは、コントロールの中でも「未知」のものなのです。EXCELでは、数百種類のActiveX コントロールを選ぶことが可能ですが、分からないものも数多く存在します。分かっているものしか選ばない、ということでしかありません。

>ここも「はい」がよろしいのでしょうか。
使うためには、おっしゃるとおり「はい」しかないのです。「いいえ」を押したら、まったくバーコードが変化していないはずですし、更新されないだけでなく、バーコードは、使えないはずです。LinkedCell で、変更ができないはずです。

Wendy02 · Answer

こんにちは、

私は、最初に確認するべきでしたが、「バーコードコントロール」は、
　「Microsoft バーコード・コントロール　9.0」
でしょうか？

郵便番号バーコードを出力できるのでしょうか。郵便番号バーコードは、単に縦線が並んでいるものではないようですが。

Wendy02 · Answer

こんにちは。

>バーコードコントロールを設定してからマクロを組んだ印刷ボタンを押すと

バージョンにもよると思いますが、今、Excel 2003 で、試してみましたが、特に問題は発生しません。マクロ自体の問題ではないでしょうか？それは、コードを見てみないと分かりません。

「「このアプリケーションは安全でない可能性のあるActiveXコントロールを初期化しよう……」
これは、
http://support.microsoft.com/kb/827742/ja
で、レジストリエディタか、グループポリシーで、設定を換えてあげるのがよいかと思います。
マクロでも可能ですが、それは、セキュリティの問題で、申し訳ありませんが、自主規制しています。インターネット検索しても、日本語に関しては出てこないと思います。

EXCELLバーコードコントロールを使うと印刷マクロが使えない

こんにちは。

この回答への補足

こんばんは。

補足：

こんにちは

こんにちは。

こんばんは。

この回答への補足

こんばんは。

この回答への補足

こんにちは。

この回答への補足

こんにちは、

この回答への補足

こんにちは。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング