[[20050210131459]]　『マクロ実行権限？？※パスワード』（なぞなぞくん）　ページの最後に飛ぶ

『マクロ実行権限？？※パスワード』（なぞなぞくん）

かなり初心者なのですがあるマクロを実行できる方の

を制限したく、実行のパスワード入力後にマクロが実行される

方法を教えて頂きたく投稿いたしました。

＜操作フロー＞

１．マクロ実行ボタンを押す

２．パスワード要求

３．パスワード一致によりマクロ実行←パスワードが合わないときはキャンセル

４．処理完了

以上です。　お力をお貸し下さい。

 dim x as string

 x=application.inputbox("pass")

 if x <> "123" then
   msgbox "ｘ"
   exit sub
 end if

 msgbox "o"

  (INA)

INAさん、迅速なご対応ありがとうございます。

４時間悩んだのですが一発解決しました＾＾；

本当にありがとうございました！

 もう見ているか解らないけれど
 さらに一歩進めて

 Private Sub 開放_Click()
     Dim MyValue As String

     MyValue = InputBox("これより先、管理者用パスワードが必要です。", "管理者より")
     If MyValue = "" Or MyValue <> "1234" Then
         MsgBox "「入力された管理者用パスワードが間違っています。」", vbCritical
         Exit Sub
     End If
     ～～～～～～～～～～　←ここに動かしたいマクロとか入れる
     ～～～～～～～～～～　←ここに動かしたいマクロとか入れる
 End Sub

 （わいがおうにわいがちゅうておもわいわいわいちゅうたよ）

 ＞もう見ているか解らないけれど
そりゃ見てないでしょう。
ログNo　20050210131459　から 2005/02/10 の投稿ログです。
(みやほりん)(-_∂)b　2009/12/24	13:40

コメント返信：

[ 一覧(最新更新順) ]

[[20050210131459]] 『マクロ実行権限？？※パスワード』（なぞなぞくん） ページの最後に飛ぶ

[[20050210131459]]　『マクロ実行権限？？※パスワード』（なぞなぞくん）　ページの最後に飛ぶ