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

[mo-aslani]

استاد واقعا که گل هستی
در ضمن در نمونه ارسالی ،یوزرفرم 2 تا زمانی که دکمه خــروج رو نزنم همچنان باقی میمونه و حذف نمیشه برای این مورد چکار باید کرد؟
یک دنیا تــــــــشـــــــــــــــ ــکــــــــــــــــــــر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[shamsololama]

با درود فراوان
خوب تا نبندیش که بسته نمی شه یا اینکه شما میخواهید بعد از باز شدن فرم 2 بعد از مدتی خودش بسته بشه؟

[mo-aslani]

استاد با درود مجدد
من منظورم این هست که وقتی روی کامندباتون 1 کلیک میکنیم بایستی صفحه اکسل نمایش داده بشه و یوزرفرم بسته بشه در حالی که الان اینطور نیست و وقتی روی کامندباتون 1 کلیک میکنیم صفحه اکسل باز میشه ولی همچنان صفحه یوزرفرم باقی میمونه و بایستی با کلید close(همون دکمه ضربدر بالای تمام فرم ها) یوزرفرم رو ببندیم
امیدوارم که تونسته باشم منظورم رو خوب بیان کرده باشم
بازهم ممنون از راهنمایی های مفید شما استاد بزرگوار

[MEYTI]

استاد با درود مجدد
من منظورم این هست که وقتی روی کامندباتون 1 کلیک میکنیم بایستی صفحه اکسل نمایش داده بشه و یوزرفرم بسته بشه در حالی که الان اینطور نیست و وقتی روی کامندباتون 1 کلیک میکنیم صفحه اکسل باز میشه ولی همچنان صفحه یوزرفرم باقی میمونه و بایستی با کلید close(همون دکمه ضربدر بالای تمام فرم ها) یوزرفرم رو ببندیم
امیدوارم که تونسته باشم منظورم رو خوب بیان کرده باشم
بازهم ممنون از راهنمایی های مفید شما استاد بزرگوار

دوست عزیز برای این کار در آخر کد کامند باتون کلمه (end) اضافه کن.

[shamsololama]

استاد با درود مجدد
من منظورم این هست که وقتی روی کامندباتون 1 کلیک میکنیم بایستی صفحه اکسل نمایش داده بشه و یوزرفرم بسته بشه در حالی که الان اینطور نیست و وقتی روی کامندباتون 1 کلیک میکنیم صفحه اکسل باز میشه ولی همچنان صفحه یوزرفرم باقی میمونه و بایستی با کلید close(همون دکمه ضربدر بالای تمام فرم ها) یوزرفرم رو ببندیم
امیدوارم که تونسته باشم منظورم رو خوب بیان کرده باشم
بازهم ممنون از راهنمایی های مفید شما استاد بزرگوار

دوست عزیز برای این کار در آ--- کد کامند باتون کلمه (end) اضافه کن.

با درود فراوان
بله همانطور که دوست عزیرم اشاره کردند می توانی در پایان کد کامند باتون یا end اضافه کنی و یا اینکه unload me
که هر دو باعث بسته شدم فرم می شوند و تفاوت آن دو این است که end تمام فرمهای باز را می بندد ولی unload me فقط همان فرم که کد در آن قرار دارد می بندد و اگر فرمی دیگری باز باشد باز می ماند

[mo-aslani]

واقعا ممنونم دوستان
یک دنیا تشکر

[MRDJAVANMARDI]

سلام لطفا بفرمایید چطور میشه یه cell رو تو اکسل پروتکت کرد البته با شرط مثلا درج 1 در سلول مشخص
لطفا اگه میشه فایلشو با ماکرو نمونه به ایمیل من هم بفرستید
mrdjavanmardi@gmail.com
mrdjavanmardi@yahoo .com

[MEYTI]

با سلام احترام
خدمت شما دوست عزیز قفل شرطی اگر نتوانشتسد دانلود کنید نمونه هم ایمیل کردم.
http://www.upload4files.tk/download....dd4b2b2e0cda56

[mokaram]

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

[m_d6712]

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

سلام خسته نباشيد، من مي خوام از طريق كدنويسي 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


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