
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
VBAでサーバーにアクセスするにはどうすればいいの?
Access(アクセス)
-
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Access(アクセス)
-
-
4
共有フォルダにアクセスする際のパスワード入力を自動化したい
Mac OS
-
5
エクセル(VBA)でWindowsのサインイン情報(パスワード)と照合可能か
Windows 10
-
6
会社のネットワーク上のファイルを開けない こんにちわ 今大変困ってます 会社のネットワーク上のファイ
Visual Basic(VBA)
-
7
VBAでサーバー上のファイルを開く
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
net useのユーザー名を変数で通したい
Access(アクセス)
-
12
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
13
ExcelVBA サーバーの(共有フォルダ)中のファイル移動
Excel(エクセル)
-
14
Access サブフォームでの選択行の取得
その他(データベース)
-
15
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
16
VBA ネットワーク上のファイルでカレントフォルダを取得するには?
Visual Basic(VBA)
-
17
VBAでインターネットに接続しているかの確認
Visual Basic(VBA)
-
18
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
19
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
20
net use /d の強制実行
iOS
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Steamのアカウントにログインで...
-
メールを返信したら、英語のメ...
-
Excelのセルにユーザー名...
-
インスタのアイコンについてるN...
-
「そのメールアドレスはすでに...
-
ユニクロやGUのシフト管理アプ...
-
インスタの乗っ取り解除につい...
-
存在しないアドレスにメールを...
-
verify@twitter.comから、メー...
-
CSVファイルを添付するときにパ...
-
LINE TCBというところからLINE...
-
Yahooメールにログインできません
-
よく妊活アカウントで見かける...
-
~@live.jpのメール受信につい...
-
WPS office のシリアル番号の確...
-
メールアドレスから個人を特定...
-
runas実行した時にきかれるパス...
-
インスタの捨て垢で友達のスト...
-
インスタで他人のアカウントに...
-
メールアドレスについて質問が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
不正ログインされました。対応...
-
Excelのセルにユーザー名...
-
CSVファイルを添付するときにパ...
-
インスタの乗っ取り解除につい...
-
Steamのアカウントにログインで...
-
メールを返信したら、英語のメ...
-
verify@twitter.comから、メー...
-
ユニクロやGUのシフト管理アプ...
-
カカオで退会せずに、アプリだ...
-
pixivで新規登録しようと思い、...
-
YouTubeが毎回ログインしないと...
-
「そのメールアドレスはすでに...
-
「@」(アットマーク)の無いメ...
-
runas実行した時にきかれるパス...
-
インスタのアイコンについてるN...
-
携帯電話を解約してもSMSの受信...
-
インスタの捨て垢で友達のスト...
-
Excelを開くと、上画面に「サイ...
-
Twitterの こうしたアク...
-
メールアドレスを人に教えるの...
おすすめ情報