Excel VBA オブジェクトマクロ 使用指定について
お詳しい方教えてください。
共通エクセルファイルに4つのオブジェクトを挿入して個々に別のマクロを組み込んだのですが、そのオブジェクト毎に専用の人しか使用できないという条件指定をする事は可能なのでしょうか?
※人物指定はUser Nameでいけそうな気がするのですが・・
例
オブジェクト1 Aさんのみ押せる
オブジェクト2 Bさんのみ押せる
間違え防止として表示などで注意喚起しても間違えてしまうらしく・・
以上 アドバイスいただけたら助かります
No.2ベストアンサー
- 回答日時:
こんにちは
>人物指定はUser Nameでいけそうな気がするのですが・・
使用者が限定できるのなら可能ですね。
>オブジェクト1 Aさんのみ押せる
オブジェクト1の実行プロシージャで
IF Application.UserName <> ”Aさん” Then Exit Sub
などとしておけば、Aさん以外では無反応になります。
とは言え、「無反応」というのもユーザーにとっては不親切なので、アラート等を表示するか、あるいはブックのOpenイベントで、そのユーザが使えるオブジェクトのみを表示しておくようにするなどの方がよさそうな気もします。
(こちらの方法なら、各オブジェクトのプロシージャでユーザーを判別する必要もなくなるでしょう)
No.1
- 回答日時:
こんな感じでしょうか
User Nameで
Sub sample()
Select Case Environ("USERNAME")
Case "AA": Call AA
Case "BB": Call BB
End Select
End Sub
Sub AA()
MsgBox "AA"
End Sub
Sub BB()
MsgBox "BB"
End Sub
ボタン登録はsample
USERNAMEで処理を分ける
"AA" "BB" は実際のログインユーザー名にします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CAD・DTP Autocad Scriptファイルからの入力とコマンドラインからの入力が違う 1 2023/08/01 09:13
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) <excel vba>selenium basicのWebDriverの自動更新のエラーについて 1 2022/10/01 17:07
- JavaScript javascript で外部サイトにデータ入力させて自動でボタンを押すことは可能ですか? 1 2023/01/30 16:23
- Excel(エクセル) テキストの背後にあるオブジェクトとは 3 2023/01/03 20:22
- PowerPoint(パワーポイント) パワーポイントのアニメーションについて 4 2023/06/14 16:25
- Java オブジェクト指向プログラミングの実践本を紹介してください 3 2022/09/19 04:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
ある文字列が全て数字であるか...
-
Excelでフィルタをかけると警告...
-
VBScriptでファイルの日時順(降...
-
VBAからPDFファイルにパスワー...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
VBからExcelのセルの書式設定を...
-
VBAでWebページにセルの値を入力
-
VBA:オートシェイプの線の長...
-
VBAで Set wb = Sheets(1).Cop...
-
Shell.ApplicationのNameSpace...
-
VBAでオプションボタンの設定
-
エクセルVBAでFor each文
-
エクセルマクロエラー「'Cells'...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報