No.1
- 回答日時:
色々と面倒です。
社内で使用するのでしょうか?
VBAコード中に平文でユーザー名とパスワードを記述するのはまずいのでは?と。
仮にVBAProjectを保護し内容を隠したとしても
こじ開けるツールが巷に出回っています。
上司の許可は得られるのでしょうか?
問題ないと仮定して…
'接続
Sub Net_Add()
Dim WshNetwork As Object
Const 共有名 = "\\パソコン名\共有名"
Const パスワード = "himitsu"
Const ユーザー名 = "ore"
Set WshNetwork = CreateObject("Wscript.Network")
On Error Resume Next
WshNetwork.MapNetworkDrive "N:", 共有名, , ユーザー名, パスワード
On Error GoTo 0
Set WshNetwork = Nothing
End Sub
'切断
Sub Net_Del()
Dim WshNetwork As Object
Set WshNetwork = CreateObject("Wscript.Network")
On Error Resume Next
WshNetwork.RemoveNetworkDrive "N:"
On Error GoTo 0
Set WshNetwork = Nothing
End Sub
但し、
>マクロを使用時のみの接続
は難しいです。分かりませんでした。
上記Net_Del でネットワークドライブを削除しても
エクスプローラなどで共有フォルダを開いていたり等々すると
共有フォルダへの接続は維持されたままになります。
別件で共有フォルダへ接続していた場合に強制的に切断されては困るので
仕方のない事かと思います。
コマンドプロンプトの、Net Use でも同様な結果でしたね。
以上、ご参考まで。
私からは以上です。
ご回答、ありがとうございます。
返答が遅くなり申し訳ありません。
ご指摘の通り、使用は会社でを想定しておりました。
VBAコード中にユーザー名とパスワードを記述する事に何も思っておりませんでしたが、
確かに相談すべき内容である事を認識させて頂きました。
ありがとうございます。
さて本題ですが、『MapNetworkDrive "N:"』とありますが、ネットワークドライブではなく、
単にホルダーが共有されているだけですが、これでできるのでしょうか?
実際にやってみれば良いのですが、他が忙しく、まだ手を付けていない状態です。
ご教授頂けると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Wi-Fi・無線LAN PCWi-Fiの設定方法がわからなくて困っています。 4 2022/12/28 18:30
- その他(OS) Windows11のファイル共有 1 2022/12/08 10:42
- サーバー ネットワークの構成に困っています 3 2023/07/05 11:55
- ルーター・ネットワーク機器 AU光10G回線について 6 2022/07/25 00:12
- UNIX・Linux raspberry piを使ったWebサーバー制作をしています、接続するネットワークを変更したときに 1 2023/01/09 15:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- ネットワーク ネットワーク資格情報について 2 2022/08/05 12:50
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- セキュリティホール・脆弱性 テレワークで会社支給パソコン以外でVPN接続を制限するやり方 教えて下さい 3 2022/08/31 12:40
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
共有フォルダにアクセスする際のパスワード入力を自動化したい
Mac OS
-
VBAでサーバーにアクセスするにはどうすればいいの?
Access(アクセス)
-
-
4
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Access(アクセス)
-
5
VBAでサーバー上のファイルを開く
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
8
エクセルでエラーが出て困っています。
Excel(エクセル)
-
9
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
10
エクセル(VBA)でWindowsのサインイン情報(パスワード)と照合可能か
Windows 10
-
11
会社のネットワーク上のファイルを開けない こんにちわ 今大変困ってます 会社のネットワーク上のファイ
Visual Basic(VBA)
-
12
VBAでネットワーク上のバッチジョブを実行したい
その他(プログラミング・Web制作)
-
13
マクロを実行中に、msgbox を表示させたまま、ワークシートを上下左右に移動表示させたい。
Excel(エクセル)
-
14
VB6.0 SHELLで起動したプログラムを終了さしたいのですが
Visual Basic(VBA)
-
15
VBAでこんなことできますか?
PowerPoint(パワーポイント)
-
16
【excelVBA】Findメソッドで検索対象を複数列
Excel(エクセル)
-
17
Excel VBA:特定の文字列以降(あるいは以前)のテキストをすべて取得する方法
Visual Basic(VBA)
-
18
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
19
VBA ネットワーク上のファイルでカレントフォルダを取得するには?
Visual Basic(VBA)
-
20
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのセルにユーザー名...
-
メールをパスワードつきで送る方法
-
メールアドレスで上付きのハイフン
-
メールのマナー編
-
email.ne.jpのメールアドレスを...
-
LINE Payで友だちに送金しよう...
-
メールを返信したら、英語のメ...
-
CSVファイルを添付するときにパ...
-
メールアドレス 上バーの入力...
-
インスタでログインログアウト...
-
エクセルで複数ファイルに同一...
-
runas実行した時にきかれるパス...
-
CDにパスワードをかける
-
LINE TCBというところからLINE...
-
YouTubeが毎回ログインしないと...
-
iPhoneのiCloudメールなよです...
-
高一男子です 僕が絶対に悪いん...
-
URLとメールアドレス
-
Outlookで、パスワード付のメー...
-
ワードに入力したメールアドレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルにユーザー名...
-
大学定期試験過去問サイト「過...
-
LINE TCBというところからLINE...
-
メールをパスワードつきで送る方法
-
メールを返信したら、英語のメ...
-
メールのマナー編
-
インスタの捨て垢で友達のスト...
-
YouTubeが毎回ログインしないと...
-
メールアドレスで上付きのハイフン
-
メールアドレス 上バーの入力...
-
メールエラー
-
CSVファイルを添付するときにパ...
-
メールアドレスから個人を特定...
-
カカオで退会せずに、アプリだ...
-
インスタのアイコンについてるN...
-
email.ne.jpのメールアドレスを...
-
ユニクロやGUのシフト管理アプ...
-
メールアドレスを人に教えるの...
-
星の王子さまというアプリで、 ...
-
「@」(アットマーク)の無いメ...
おすすめ情報