Excelのシートに隠し文字列を持たせたい

質問

Excel2007を使用しています。

マクロを使用して、特定のシートだけ、
特定の処理を行わせたいと思っています。

そのときに、隠し情報を持たせたシートだけを対象にしたいのですが、
どのようにしたら良いかが、分かりません。
※タイトルにある「隠し文字列」を持たせる方法でなくても構いません。

どのように実現させたら良いのでしょうか？
アドバイス頂けませんか？
よろしくお願いいたします。

回答No.2

keirika · ベストアンサー

シートのオブジェクト名として文字列を持たせてはどうでしょう。

シートのプロパティの(オブジェクト名)を変更します。

マクロで使用する場合の例としては以下のようになります。

例：目次シートのＡ１を選択
目次シート.RANGE("A1").SELECT

これで見た目を変えず情報を持たせることが出来ると思います。

お礼

オブジェクト名にすることにしました。
マクロでも都合が良かったですので。
ご回答ありがとうございました。

回答No.4

fujillin

思いつきのレベルですがとりあえず・・・

＜シートに記録する案-1＞
　最も簡単な方法
　使用しないセルに地色と文字色を同じにしておいて記録

＜シートに記録する案-2＞
　1だと間違ってそのセルを操作される可能性もないとは言えないので
　使用しないセルに記入し、その列（または行）を非表示にしておく

＜シートに記録する案-3＞
　2でも誤って消去する可能性はあるので・・・
　コントロール（ラベルでもテキストボックスでも可）をおき、そのテキストを隠し文字とし、VisibleをFalseに設定
　編集モード（デザインモード）から出ると非表示になります。

＜別表に記録する案＞
　隠し文字列用シートを用意し、シート名と隠し文字列の対照表を作成する。このシートを非表示にしておく。
　ただし、シート名をそのまま記録すると、ユーザがシート名を変えたときに参照できなくなるので、シート名はそのシートのA1セルを参照する式などとして記録しておく。（これにより、シート名変更時もエクセル側で整合を保ってくれる）

他にも、コメントを利用するとか、ファイルのプロパティを利用するとか、いろいろありそうですね。
お薦めは最後の別シート案かな。

お礼

今回はオブジェクト名で設定することにしましたが、
別表を作成できるのであれば、
別表がきれいですね。
ご回答ありがとうございます。

回答No.3

mshr1962

各シートのA1に実行のフラグ(1[隠し文字])を立てる場合は
Sub MACRO()
Dim ST As Object
For Each ST In Worksheets
　If ST.RANGE("A1") = 1 Then
　　特定の処理
　End If
Next ST
End Sub

一枚のシートに実行するシート名を設定する場合は
Sheet1でA列にシート名、B列に実行のフラグ(1)として
Sub Macro()
　Dim RG As Range
　For Each RG In Worksheets("Sheet1").Range("A:A")
　　If RG = "" Then Exit For
　　　If RG.Offset(0,1) = 1 Then
　　　　Worksheets(RG.Value).Active
　　　　特定の処理
　　　End If
Next RG
End Sub

お礼

上の例ではA1、下の例ではB1の値を
見て判断するのですね。
これでは、ユーザーの見た目が変更となってしまいますね。
シートの見た目（値など）を変更したくなかったので、
オブジェクト名で判断することにしました。
ご回答ありがとうございました。

回答No.1

xls88

質問の意図がイマイチ理解できません。

>Excelのシートに隠し文字列を持たせたい
>そのときに、隠し情報を持たせたシートだけを対象にしたいのですが
フォントカラーを白にする？
行、あるいは列を非表示にする？
シートを非表示にする？

”隠し文字列”
”隠し情報”
とはどういうものでしょうか。

お礼

ご回答ありがとうございます。
説明が悪くて申し訳ございません。

シートの名称や、色は変更したくないのです。
ユーザーからの見た目は全く変えずに
シートに情報を持たせたいのです。

このシートは「目次のシート」です。
このシートは「詳細のシート」です。
などという具合に。。。
この場合の「詳細のシート」のシート名はバラバラでして、
シート名から判断することはできません。

この状態で、シートに隠し情報を持たせることで、
「詳細のシート」を判断したいのです。

説明は伝わりますでしょうか？
よろしくお願いいたします。