シートをパスワードで保護するVBA

こんにちは皆さん ：-）
念のために言っておきますが、私のVBAの知識は主にコピーと貼り付けにまで及びますが、これが私が助けを求めているものです。 30枚以上のシートが入ったワークブックを持っています。開いたときにパスワードを要求し、そのパスワードに基づいて、そのパスワードの特定のシートのみを表示するvbaコードを開発するためのヘルプを探しています。 複数のパスワードに対してこれを設定し、そのパスワードに割り当てられたパスワード表示シートに応じて、XNUMXつのパスワードですべてのシートを表示できるようにしたいと思います。