یوزر و پسورد موقع ورود به اکسل

[m_d6712]

RE: یوزر و پسورد موقع ورود به اکسل

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

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

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
استفاده کنید

[behtash]

RE: یوزر و پسورد موقع ورود به اکسل

باسلام
لطفاً طریقه کپی کردن کد در vba رو توضیح بدین من یک فایل اکسل میخوام بسازم که با هر یوزر یک شیت باز بشه امکان داره
باتشکر

[Amin_D]

RE: یوزر و پسورد موقع ورود به اکسل

یک فایل برایتون آپلود کردم:

http://www.mediafire.com/file/83ojc03c2pl2jfr/UserPass.xlsm

در این فایل دو نوع Authentication مورد بحث قرار گرفته شده است:


اولی همون Auth که در پاسخ قبلی داده بودم هست که با استفاده از User و Pass سیستم عامل و یا شبکه قابل دسترسی می باشد. دقت نمایید که برخی سیستم ها User هایی دارند که Pass ندارد و مثل خود من! من برای یوزر های کامپیوترم پسورد نمی ذارم! در این حالت ویندوز ایرادی نمیگیرد اما اگر سسیتم شما عضوی از domain باشد ایراد می گیرد! در Authentication که من در VBa براتون گذاشتم اصل بر Domain است! برای همین شما نمیتوانید با یوزری که پسورد ندارد وارد شوید. لطفا این قسمت را با یوزری امتحان کنید که پسورد دارد. یوزر Guest هم به همین دلیلی که ذکر کردم قابل استفاده نمی باشد.

دوم حالت عادی است. یک لیست از User و Pass در Sheeet اول ایجاد شده که این شیت Hidden شده است. و کاربران نمی توانند آن را ببینند.

شیت اصلی اطلاعات نیز Hidden می باشد که پس از اعتبار سنجی کاربر نمایش داده می شود.

برای اینکه کاربر نتواند کد های نوشته شده را ببیند بر روی آن پسورد گذاشته شده است:

در این فایل پسورد محیط Vba در زیر نوشته شده است:
exceliran

پسورد روش اول: یکی از یوزر و پسورد های خود ویندوز شما
پسورد روش دوم: قابل اضافه کردن است:
به عنوان مثال:

یوزر: excel
پسورد: iran

موفق باشید.

با سلام و تشکر دوست گرامی
منتهی اگر شیت جدیدی اضافه شد دیگه اون شیت ، عملیات رمز شاملش نمیشه!
بعد جایی هم مشخص نشده که یوزرها کی وارد شده اند و چیکار کردند؟

با تشکر

[حسینعلی]

مطالب خیلی عالیه ولی فایل اماده ای نیست که بتونم کدهای ارائه شده را کنترل و بررسی کنم و ببینک چی شده؟
بهتره یه فایلی قرار بدید که فرم درج یوزرو پسورد هم بیاد روی صفحه
خیلی ممنون دارتون هم میشم اگه اینکارو بکیند

[Amir Ghasemiyan]

مطالب خیلی عالیه ولی فایل اماده ای نیست که بتونم کدهای ارائه شده را کنترل و بررسی کنم و ببینک چی شده؟
بهتره یه فایلی قرار بدید که فرم درج یوزرو پسورد هم بیاد روی صفحه
خیلی ممنون دارتون هم میشم اگه اینکارو بکیند

به پست 9 مراجعه بفرماييد دوست عزيز

[حسینعلی]

استادبزرگوارجناب اقای شمس العلما بنابود نمونه ای بزارند ولی هنوز فایلی رو قرارندادند

[~M*E*H*D*I~]

بزودی در این مورد مطلب جامع و کاملی ارائه خواهد شد

[~M*E*H*D*I~]

بزودی در این مورد مطلب جامع و کاملی ارائه خواهد شد

پکیج آموزشی ایجاد فایل چندکاربره با سطح دسترسی مشخص

[afshar_yan]

دوستی سوال فرمودند:


این مشکل مربوط به خود اکسل نیست مساله شبکه هست. اگر مطمئن هستید که اتصال ftp هست روش زیر جواب میدهد:

ابتدا FTPC.dll را به مجموعه reference ها اضافه می کنید. ابتدا FTPC.dll را دانلود کنید. از برای این کار در محیط ویژوال بیسیک اکسل Tools و متعاقبا references را انتخاب کنید. Browse را بزیند و در محلی که FTPC.dll ذخیره شده است بروید و آن را Add کنید.


سپس از کد زیر را برای اتصال استفاده می کنید:


'To use the object, declare it then create a new instance of it
Dim WithEvents objFTPC As FTPClient
Set objFTPC = New FTPClient
'To connect, supply it with required parameters
objFTPC.Username = "Anonymous"
objFTPC.Password = "Guest"
objFTPC.PassiveMode = True
objFTPC.RemoteHost = "ftp.ftphost.com"
objFTPC.RemotePort = 21
objFTPC.Connect
'To upload data,
objFTPC.OpenDataConnection
'Wait for Data socket to be connected
Do Until objFTPC.DataState = DS_CONNECTED
DoEvents
Loop
'Upload data
objFTPC.UploadFile "readme.txt"
'Then upload ur data whenever NeedData event is fired
Private Sub objFTPC_NeedData()
objFTPC.SendData "My data"
End Sub

'To download data,
objFTPC.OpenDataConnection
'Wait for Data socket to be connected
Do Until objFTPC.DataState = DS_CONNECTED
DoEvents
Loop
'Download data
objFTPC.DownloadFile "readme.txt"
'Then download ur data whenever IncomingData event is fired
Private Sub objFTPC_IncomingData(BytesTotal As Long)
Dim sData As String
objFTPC.GetData sData
End Sub
'That cover the basics. For more advance functions, post it here

اگر مساله ورود از طریق ftp نیست و کامپیوتر ها به صورت peer to peer به هم وصل هستند. در صورتی که از تنظیمات شبکه خود مطمئن باشید (به این مفهوم که سطح دسترسی تعریف کرده باشید برای یک یوزر شبکه و فایروال هم تنظیماتش انجام شده باشد، من فکر می کنم مشکل شما با این پست حل می شود:

http://forum.exceliran.com/thread-224-post-554.html#pid554

موفق و پیروز باشید.

با سلام و تشکر از رهنمایی های شما
محل کار من یه شبکه داخلی با ip مشخص داره و میخوام هر کاربری بتونه روی سیستم خودش از طریق فایل اکسلی که من بهش میدم یه سری اطلاعات رو وارد کنه و در نهایت بعد از تبدیل به فرمت تکست اون فایل رو از طریق ftp یا هر راه دیگه به سیستم من ارسال کنه ) و البته با ماکرو )
مشکل من توی ارسال فایله
دسترسی به سیستم همه ندارم که بشه تنظیمات add و refrenc و غیره رو انجام بدم
ارسال رو از طریق یه بچ فایل و تو محیط cmd بلدم و انجام دادم ولی بلد نیستم اون بچ فایل رو تو محیط اکسل فراخوانی و اجرا کنم اگه راهنماییم کنید ممنون میشم
ضمناً اون لینک دوم کار نمیکنه

[dreamtalk]

با سلام
من میخوام که هر کاربری که با یوزر جوین به دامین وارد اکسل شد، نام کاربریش و ساعت ورودش و حتی اگه تغییراتی انجام داد بر روی اکسل، در یکی از سلول های اکسل نامش را نمایش بده.
ممنون میشم کمک کنین.

[ابوالفضل براتی]

این چه مدل کمک کردن و پاسخ دادنه میخوای بگی خیلی اکسل بارته تو اگه چیزی بارت بود اینجوری مطلب یاد یکی که ازت کمک خواسته نمیدادی