マクロを実行する前に個人認証できますか？

質問

教えてください。
マクロを組み込んだエクセルがあります。社員に公開して利用してますが、
マクロを実行させるボタンがいくつかあり、例えば、他部署はマクロボタンは照会ボタンのみ有効で算出ボタンとかは押したら、パスワードみたいなものが表示されパスワードを入力したとき実行される方法を考えてますが、
この方法をマクロでは可能でしょうか？
どうか　よろしくお願いします。

回答No.2

nobu555 · ベストアンサー

INPUTBOXを使って、パスワードを入力求める方法で
出来ますが如何でしょう。

参考までにマクロを記載します。
パスワードは、"AAAA"です。

Sub パスワード()
S = InputBox("実行するにはパスワードが必要です。" & Chr(10) & "パスワードを入力してください。")
If S = "AAAA" Then
MsgBox "マクロを実行します。"
Range("A1").Select
Else
MsgBox "パスワードが違います。" & Chr(10) & "作業を終了します。"
End If
End Sub

お礼

誠に有難う御座います。
InputBoxとIf分の組み合わせでしたか。目からウロコです。

回答No.1

hana-hana3

ユーザー名を取得する事は可能です。
部署分けするなら何らかのデータベースが必要になるでしょう。
ユーザーの部署が変わればデータベースを書き換える必要があるかと思います。