まずマクロ自体を変更されないように任意のパスワードを設定。それにはExcelでプロパティーを表示。(ALT+F11キー)。マクロを選択、詳しくは左ペインのエクスプローラから、「VBAProject(ファイル名)」’をクリック、次に右ボタンをクリックし、’「VBAProjectのプロパティ(E)」’を選択してダイアログが出てくるので、タブの「保護」をクリックします。右に表示されている中、’「プロジェクトを表示用にロックする(V)」’をチェックにして、下部のパスワード内に任意のパスワード。これでまずマクロの改変を防ぎます。続いてマクロの中に
Excel
1Sub checkpassword()
2Dim passwd As String
3passwd = InputBox("パスワードを入れてください")
4If Len(passwd) = 0 Then
5MsgBox "入力がありません"
6Exit Sub
7End If
8If passwd <> "実行用パスワード" Then
9MsgBox "パスワードが異なります"
10Exit Sub
11End If
12'実際の処理
13End If
14End Sub
で実現できると思いますが。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。