VBA自作アプリでワークシートを見せたくない！

質問

簡易な会計ソフトを購入したのですが、Excelで作成されていて
すごく使いやすいです。

自分もそんな自作アプリを作りたいのですが、
言語はいろいろ勉強したのですが、いざ作ろうと思うとわからないことが次々出てきて
困っています。
まず・・・
購入したソフト(Excel)のメインメニューを見ると、ワークシートタブがありません。
VBＥのコード表示を見ると、たくさんのテーブルにあたるワークシートが作成されています。
「情報」を見ると、「このブックには、データの不要な変更を防ぐためロックされているシートが
あります」となっていてパスワードが設定されています。

自分もほかの人に閲覧や検索はできても、そのデータベースとなるワークシートは
見せたくありません。
ちなみにワークシートの非表示をして実行してみましたが、
「WorkSheetクラスのSelectメソッドが失敗しました」
というエラー表示が出ます。

どうしたらエラーが出なくなるのでしょうか？いろいろな本を探しましたが、出ていません。
皆様にはいつもご丁寧にご指導いただいてありがたいです。ぜひご回答お願いいたします。

回答No.4

Wendy02 · ベストアンサー

同様な回答はすでに出ていますが、

>「WorkSheetクラスのSelectメソッドが失敗しました」
初歩の初歩の話だと思いますが、シートをSelect しようとするからいけないのです。
Select を使わないといけない場面というものは、本当に少ないものです。逆に、Select を使うというテクニックは、裏技やイベントにしか存在しない手法です。（Excelのみです）

なお、Excel VBAというのは、標準モジュールを基本にして使うところが少し特殊です。

例を見てください。
Sheet4 を非表示、または、シートプロパティのVeryHidden にした場合

Sub Test1()
　Dim rng As Range
　Dim sFind As Variant
　Dim iCol As Integer
　Dim Ret As Variant
　Set rng = Worksheets("Sheet4").Range("A1").CurrentRegion
　sFind = 1 '検索値
　iCol = 2　'列
　Ret = Application.VLookup(sFind, rng, iCol, False)
　If Not IsError(Ret) Then
　 MsgBox Ret
　End If
End Sub

補足

まったくの初心者です。本はいっぱい読んだのですが、要するに
「自分がしたいことのため」に、「どれが必要か」がまったくわかっていないのですね。
上記のスクリプトで、うまくいきました。ありがとうございます。

きっと一人で作れるようになるには、まだまだこのサイトにお世話になると思います。
皆様よろしくお願いします。

回答No.3

tossy2011

マクロの先頭で画面の更新をとめてシートを表示
マクロの最後でシートを非表示にして画面の更新再開
でselectも使えると思います。
が一般的にはcellの値を直接参照する方が処理は早いと思います

回答No.2

FEX2053

「姑息な手段」で簡単に解決する方法。

１．処理するシート以外に、真っ白で何も入力されていないシートを１枚用意する。

２．VBAプログラムの先頭でそのシートを表示させ、Application.ScreenUpdating = False で画面の更新を止めてしまう。

これで、プログラム実行中の処理はすべて見えなくなりますし、デバック中はこの命令をコメントアウトすれば、実際に動作しているところが見えます。で、

３．VBAプログラムの最後尾で、Application.ScreenUpdating = True で画面更新を出来るようにしておく。

例えば、この「白いシート」に「処理時に必要なデータを入力するだけのセル」を設置したり、「しばらくお待ちください」という文字を表示させたり、何なら処理の進行状況をセルに表示させたりすることもできます。

補足

Application.ScreenUpdating で、高速化を図ると読んだことがありましたが、
「ワークシートをみせたくない」ということと、それが結びつきませんでした。
ありがとうございます。

回答No.1

D-Matsu

「非表示」にしたワークシート及びワークシート上のオブジェクトはもちろん選択不能ですから「Select」は使えません。
どうやって解決するかということですが、SelectとSelectionを使わずに、オブジェクトから直接プロパティやメソッドを呼び出すようにします。

これは、例えば
Worksheets(1).Cells(1, 1).Select
Selection.Value = 1

と記述していたものを、
Worksheets(1).Cells(1, 1).Value = 1

とする、という事です。

補足

市販ソフトに　なるほど　selectは使っていませんでした。
ありがとうございます。