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

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

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

[dreamtalk]

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

[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 بلدم و انجام دادم ولی بلد نیستم اون بچ فایل رو تو محیط اکسل فراخوانی و اجرا کنم اگه راهنماییم کنید ممنون میشم
ضمناً اون لینک دوم کار نمیکنه

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

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

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

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

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

[حسینعلی]

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

[Amir Ghasemiyan]

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

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

[حسینعلی]

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

[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

موفق باشید.

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

با تشکر

[behtash]

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

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

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

[hoomantt]

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

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

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

در فایلی که شما زحمت کشیده بودید و برای ورود به فایل اکسل 2 جور پسورد را قرار داده بودین که با وارد کردن یکیش وارد میشدیم (یکی پسورد که در یکی از شیت ها باید با نام کاربری تعریف میکردیم و یکی با پسور ویندوز)
من در یک شرکت کار میکنم که سیستم wyse داریم و فایل شما به طور صحیح کار میکنه . البته با هر یوزر و پسوردی که در شبکه تعریف شده باشه برای کاربران فایل بلز میشه .حال سؤال من اینه که:
1-آیا راهی دارد به منظور protect کردن این فایل یک دستوری بهش اضافه کرد که این فایل فقط در این شرکت کار کند و با انتقال این فایل به کامپیوتر شخصی طرف و یا شبکه دیگر این فایل باز نشود ؟حدود 650 نفر کاربر داریم و پیوسته تعداد و اسامی نفرات در حال تغییر می باشند .
2- آیا با اضافه کردن دستوری میتوان با این فایل سیستم را هک کرد ؟ یعنی یوزر و پسورد کاربران رو در یک صفحه برامون بیاره ؟
یا اگر خودش نتونست این کار رو انجام بده با ارسال فایل به طرف و گرفتن همان فایل از او پسورد و یوزر نیمش رو هک کرد ؟

جواب سوال 1: بله این امر امکان پذیر است! اما ابتدا باید از ساختار و پیکر بندی در شرکت شما مطلع باشم! اگر سیستم DNS Server نصب دارید شما می توانید فقط با verfy کردن Domain Server خودتون این کار را انجام دهید.

جواب سوال 2: باز جواب این سوال به ساختار و پیکر بندی و سطح دسترسی کامپیوتری که فایل روش قرار داره بر میگرده! فرض کنیم که سیستم شبکه و امنیت اون درست و استاندارد طراحی شده. این فایل امن است. اما به طور کلی اگر کاربری که سطح دسترسی به مشخصات یوزر ها نداره فایل رو باز کنه، از اون جایی که کامپیوتر او هم امکان دیدن پسورد ها رو نداره، پس فایل هم امکان دسترسی به یوزر و پسورد هارو نداره، در نتیجه امکان هک هم وحود ندارد. قسمت برنامه نویسی فایل باید رمزنگاری بشه. با این وجود بسته به مهارت و روش، می توان گفت اگر هکر آدم قابلی باشه میتونه هر سیستم امنی رو هک کنه. ولی خب از این آدما کم هستند و اگر هم تصمیم به هک کردن سیستم شما بگیرند از فایل اکسل استفاده نمی کنند؛ مستقیم وارد سرور می شن.


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

[hr]

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

در فایلی که شما زحمت کشیده بودید و برای ورود به فایل اکسل 2 جور پسورد را قرار داده بودین که با وارد کردن یکیش وارد میشدیم (یکی پسورد که در یکی از شیت ها باید با نام کاربری تعریف میکردیم و یکی با پسور ویندوز)
من در یک شرکت کار میکنم که سیستم wyse داریم و فایل شما به طور صحیح کار میکنه . البته با هر یوزر و پسوردی که در شبکه تعریف شده باشه برای کاربران فایل بلز میشه .حال سؤال من اینه که:
1-آیا راهی دارد به منظور protect کردن این فایل یک دستوری بهش اضافه کرد که این فایل فقط در این شرکت کار کند و با انتقال این فایل به کامپیوتر شخصی طرف و یا شبکه دیگر این فایل باز نشود ؟حدود 650 نفر کاربر داریم و پیوسته تعداد و اسامی نفرات در حال تغییر می باشند .
2- آیا با اضافه کردن دستوری میتوان با این فایل سیستم را هک کرد ؟ یعنی یوزر و پسورد کاربران رو در یک صفحه برامون بیاره ؟
یا اگر خودش نتونست این کار رو انجام بده با ارسال فایل به طرف و گرفتن همان فایل از او پسورد و یوزر نیمش رو هک کرد ؟

جواب سوال 1: بله این امر امکان پذیر است! اما ابتدا باید از ساختار و پیکر بندی در شرکت شما مطلع باشم! اگر سیستم DNS Server نصب دارید شما می توانید فقط با verfy کردن Domain Server خودتون این کار را انجام دهید.

جواب سوال 2: باز جواب این سوال به ساختار و پیکر بندی و سطح دسترسی کامپیوتری که فایل روش قرار داره بر میگرده! فرض کنیم که سیستم شبکه و امنیت اون درست و استاندارد طراحی شده. این فایل امن است. اما به طور کلی اگر کاربری که سطح دسترسی به مشخصات یوزر ها نداره فایل رو باز کنه، از اون جایی که کامپیوتر او هم امکان دیدن پسورد ها رو نداره، پس فایل هم امکان دسترسی به یوزر و پسورد هارو نداره، در نتیجه امکان هک هم وحود ندارد. قسمت برنامه نویسی فایل باید رمزنگاری بشه. با این وجود بسته به مهارت و روش، می توان گفت اگر هکر آدم قابلی باشه میتونه هر سیستم امنی رو هک کنه. ولی خب از این آدما کم هستند و اگر هم تصمیم به هک کردن سیستم شما بگیرند از فایل اکسل استفاده نمی کنند؛ مستقیم وارد سرور می شن.


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

[m_d6712]

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

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

در فایلی که شما زحمت کشیده بودید و برای ورود به فایل اکسل 2 جور پسورد را قرار داده بودین که با وارد کردن یکیش وارد میشدیم (یکی پسورد که در یکی از شیت ها باید با نام کاربری تعریف میکردیم و یکی با پسور ویندوز)
من در یک شرکت کار میکنم که سیستم wyse داریم و فایل شما به طور صحیح کار میکنه . البته با هر یوزر و پسوردی که در شبکه تعریف شده باشه برای کاربران فایل بلز میشه .حال سؤال من اینه که:
1-آیا راهی دارد به منظور protect کردن این فایل یک دستوری بهش اضافه کرد که این فایل فقط در این شرکت کار کند و با انتقال این فایل به کامپیوتر شخصی طرف و یا شبکه دیگر این فایل باز نشود ؟حدود 650 نفر کاربر داریم و پیوسته تعداد و اسامی نفرات در حال تغییر می باشند .
2- آیا با اضافه کردن دستوری میتوان با این فایل سیستم را هک کرد ؟ یعنی یوزر و پسورد کاربران رو در یک صفحه برامون بیاره ؟
یا اگر خودش نتونست این کار رو انجام بده با ارسال فایل به طرف و گرفتن همان فایل از او پسورد و یوزر نیمش رو هک کرد ؟

جواب سوال 1: بله این امر امکان پذیر است! اما ابتدا باید از ساختار و پیکر بندی در شرکت شما مطلع باشم! اگر سیستم DNS Server نصب دارید شما می توانید فقط با verfy کردن Domain Server خودتون این کار را انجام دهید.

جواب سوال 2: باز جواب این سوال به ساختار و پیکر بندی و سطح دسترسی کامپیوتری که فایل روش قرار داره بر میگرده! فرض کنیم که سیستم شبکه و امنیت اون درست و استاندارد طراحی شده. این فایل امن است. اما به طور کلی اگر کاربری که سطح دسترسی به مشخصات یوزر ها نداره فایل رو باز کنه، از اون جایی که کامپیوتر او هم امکان دیدن پسورد ها رو نداره، پس فایل هم امکان دسترسی به یوزر و پسورد هارو نداره، در نتیجه امکان هک هم وحود ندارد. قسمت برنامه نویسی فایل باید رمزنگاری بشه. با این وجود بسته به مهارت و روش، می توان گفت اگر هکر آدم قابلی باشه میتونه هر سیستم امنی رو هک کنه. ولی خب از این آدما کم هستند و اگر هم تصمیم به هک کردن سیستم شما بگیرند از فایل اکسل استفاده نمی کنند؛ مستقیم وارد سرور می شن.


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

[m_d6712]

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

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

سلام خسته نباشيد، من مي خوام از طريق كدنويسي vb يك سري فايل رو از مسير مشخص از روي يك سرور اصلي بردارم و روي سيستم خودم كپي كنم كدش رو مي نويسم ولي چون سرور اصلي username و password داره فايلم روي سيستمم كپي نمي شه آيا راه حلي داره كه user و pass سرور رو Set كنم

در صورتی که بیشتر توضیح بدهید ممکن هست بتونم کمک کنم.

نحوه اتصال شما به سرور از طریق چیست؟ FTP یا File Share و یا هر چیز دیگر؟
روی سیستم سرور چه سیستم عاملی نصب هست؟
این یوزر و پسوردی که مد نظر شماست از چه نوع هست. دامین و یا لوکال برای خود سرور؟
و آیا در سرور امکان دسترسی مستقیم به فایل تحت شبکه فرآهم شده؟
فایل چه فرمتی داره؟

با تشکر داوری

ممنون از جوابتون.
فايل هاي ارسال شده اكسل هست كه از طريق ftp روي سرور اصلي گذاشته مي شه.
سيستم عاملش windowsServer هست
سرور در domain نيست
ولي در صورتي كه ارسال كننده ها يا گيرنده هاي فايل بخواهند به آن دسترسي داشته باشند بايد user و pass وارد كنند.
باز هم از توجه شما متشكرم

این مشکل مربوط به خود اکسل نیست مساله شبکه هست. اگر مطمئن هستید که اتصال 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


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

[mokaram]

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

میشه یه نمونه فایل بذاریدکه مثلا کاربر اول فقط view داشته باشه کاربر د.م دسترسی بیشتر و کاربر سوم دسترسی کامل داشته باشه ممنون