コマンドボタンにセキュリティをかける(管理者のみ変更可能にする)

できること

　ボタンにパスワードを設けて、管理者以外機能を使えないようにできます。ボタン押してからの機能に関しては各自コードを記載してください。

'標準モジュールではなく、ボタンのあるシートにてコードを記載
Private Sub CommandButton1_Click()
  
'Long:長整数型、通常の整数型(int)よりも整数値を多く収納可能
Dim pass As Long

'ApplicationオブジェクトのInputBoxメソッドを使用
'prompt：InputBoxの中の文字列を指定する
'Type=1：”数値”を受け取る場合に使用、数値以外を入力するとエラー表示
'InputBox関数ではTypeを指定できないことが"Application.InputBox"との違い
   pass = Application.InputBox( _
     prompt:="パスワードを入力してください", Type:=1)



'<>：数値が異なれば動作する
  If pass <> "0429" Then
     MsgBox "パスワードが違います。"
     Exit Sub
  Else
     MsgBox "OK"
  End If