Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11795 / 76734

←次へ　｜　前へ→


	【70469】Re:7機でのBATがうまく動いてくれません

充実野菜 - 11/11/18(金) 17:16 -


	引用なし

	パスワード

kumatti さん　ありがとうございます

ご提示頂いたコードで
エクセルを管理者権限で起動させることが出来たみたいです・・・
が、良くわかりません

やりたい作業は
エクセルシート上のボタンで
Private Sub CommandButton5_Click()
　　Dim p As String
　　Dim myID　　　
　　ChDir ("C:\")　　
　　p = CreateObject("Wscript.Shell").SpecialFolders("desktop") & "\7_IP.bat"
　　myID = Shell(p, vbNormalFocus)
End Sub
を管理者権限で実行
その後の確認ダイアログは、使用者が手動で押す
です

CreateObject("Shell.Application")、"runas",
と
bat
で検索してみましたが、うまく見つけることが出来ませんでした

下記、アドバイス頂けると嬉しいです

Q1
ご提示頂いたコードで
エクセルexeが昇格していれば、そのなかのマクロも管理者権限で実行できるということなのでしょうか
起動したエクセルをどうすれば昇格できるかわからなかったので試すことが出来ませんでした

Q2
　　p = CreateObject("Wscript.Shell").SpecialFolders("desktop") & "\7_IP.bat"
　　myID = Shell(p, vbNormalFocus)
を
　　CreateObject("Shell.Application").ShellExecute "excel.exe", """" & ThisWorkbook.FullName & """", vbNullString, "runas", 1
スタイルに記述することは可能なのでしょうか

"runas"、BATで検索してみましたが、記載例を見つけることが出来ませんでした

よろしくお願いいたします

9 hits

▼

【70454】7機でのBATがうまく動いてくれません 充実野菜 11/11/17(木) 14:57