نقل قول نوشته اصلی توسط hoomantt
با عرض سلام مجدد
استاد شما برای سؤال اول جواب دادین که میشه این کار را انجام داد .( فقط فایل در شبکه این شرکت باز شود و برای باز شدن در جایی دیگر نیاز به پسورد باشد .)
اگه زحمتی نیست میشه بفرمائید دقیقاً چه اطلاعاتی را نیاز دارین از این شبکه که من فراهم کنم و تقدیم کنم و شما زحمت ساختش رو بکشین.
بسیار ممنون . . .

امکان ساخت کامل فایل برای من موجود نیست.
شما باید یک شرط ورودی در سیستم اضافه کنید که اگر اسم دامنه سرور شما با یک اسم مشخص یکسان است فایل اجرا شود در غیر این صورت اجرا نشود. برای این کار از

DomainName = Environ("USERDNSDOMAIN")
If DomainName = "morteza.davari.kuleuven.be" Then
'you can have your own domain name like "*****.com"
MsgBox "success"
' you can add the whole code in the previous file here.
' some more statements
Else
MsgBox "fail"
' statements for failure
End If
استفاده کنید