رمز [بایگانی] - انجمن اکسل ایران

sonbol

2012/03/13, 11:56

با سلام
چطور میشه برا یه فایل اکسل که حاوی ماکرو و یوزر فرم هست رمز ورود گذاشت؟؟
از قسمت tools در save as که میرم بعد از رمز گذاشتن و باز کردن مجدد ماکروها رو غیرفعال میکنه؟

khakzad

2012/03/13, 12:53

با سلام
1 یوزرفرم ورود طراحی کنید. که در textbox رمز ورود بگیره و در صورت درست بودن وارد بشه.
اگر مشکلی هست بگید که فایل نمونه بذارم
موفق باشید

sonbol

2012/03/13, 13:01

فایلم خودش 10 تا یوزر فرم داره - لطفمیکنین اگه نمونه بذارین

khakzad

2012/03/13, 13:47

خدمت شما
سوالی بود در خدمتم
رمز هم exceliran

Javid Mokhtari

2012/03/13, 14:41

با سلام.

در این باره فرم های مختلفی آپلود شده.

فرم زیر برای شیت ها می باشد که برای خود فایل هم می توان انجام داد.
http://www.faupload.com/upload/90.1/Esfand/پخش-اطلاعات.xlsm

plc_pcb

2012/03/15, 11:18

با سلام
1 یوزرفرم ورود طراحی کنید. که در textbox رمز ورود بگیره و در صورت درست بودن وارد بشه.
اگر مشکلی هست بگید که فایل نمونه بذارم
موفق باشید

با سلام

فایلی که شما قرار دادید مشکل داره کافی فقط در هنگام باز کردن فایل کاربر دستش رو روی دکمه شیفت کیبورد قرار بده و بدون پسورد وارد فایل شما بشه
البته اگر با اکسل 2010 باز کنه

[hr]

با سلام.

در این باره فرم های مختلفی آپلود شده.

فرم زیر برای شیت ها می باشد که برای خود فایل هم می توان انجام داد.
http://www.faupload.com/upload/90.1/Esfand/پخش-اطلاعات.xlsm

با سلام
فایل شما هم مشکل داره

کافی کد زیر رو به برنامه اضافه شود

Sub UnhideAll()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
Next ws
Application.DisplayAlerts = True
End Sub

Javid Mokhtari

2012/03/15, 15:17

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

khakzad

2012/03/15, 16:16

سلام
چه جالب!!
نمی دونستم.مرسی که گفتین
خب حالا چیکار کنیم؟راهش چیه؟ یعنی کلید شیفت کلا کدها رو کنسل می کنه؟
یعنی اگر کدی بنویسیم که شیفت در اینجا کار نکنه حله؟[hr]
با جناب jansiz hayat موافقم
عزیزی که سوال رو می پرسه باسد پیگیری کنه که به نتیجه دلخواه با هم برسیم. چون به هر حال فضا مجازی هست و nتا برداشت از هر مسئله!!
و خیلی بهتره که اشکالات رو بهم بگیم.ممنون از پیگیری شما[hr]

khakzad

2012/03/16, 13:17

سلام دوستان
راه حلی تبود برای سوالی که پیش اومد؟؟؟؟؟؟؟؟؟؟؟[hr]
سلام دوستان
راه حلی تبود برای سوالی که پیش اومد؟؟؟؟؟؟؟؟؟؟؟

~M*E*H*D*I~

2012/03/16, 17:17

با سلام
چطور میشه برا یه فایل اکسل که حاوی ماکرو و یوزر فرم هست رمز ورود گذاشت؟؟
از قسمت tools در save as که میرم بعد از رمز گذاشتن و باز کردن مجدد ماکروها رو غیرفعال میکنه؟

سلام
من با همین روش پسورد گذاشتم مشکلی هم پیش نیومد ماکرو هم کار کرد

m_d6712

2012/03/16, 18:49

سلام دوستان عزیز! لطف کنید قبل از ایجاد تاپیک جدید و سوال نمودن در باره یک مبحث، در تالار دنبال موارد مشابه بگردید.
بیشتر سوال شما در تاپیک زیر پاسخ داده شده است.
http://forum.exceliran.com/thread-224.html

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

جواب همه عزیزان درست است.

چند نکته برای بالا بردن امنیت فایل و شیت هایتان.

1- از هر روشی برای ورود به فایل اکسل استفاده می کنید مطمئن شوید که شیت های مورد نظر حتما در ابتدا به صورت very hidden می باشند.
2- موقعی که قرار است فایل بسته شود. فایل save شود و هر مورد دیگری.. مطمئن شوید که دوباره شیت هارو به حالت very hidden باز گردانی کرده اید.
3- برای جلوگیری از ورود کاربر به محیط برنامه نویسی روی محیط برنامه نویسی خود و همچینین فایل اصلی اکسل پیسورد بگذارید.
4- نام شیت هایی که hidden کرده اید را سعی کنید رمز گونه انتخاب کنید. مثلا شیت user یا users نام های خوبی برای لیست اعضا نیست. چرا که می توان با یک فرمول ساده تمام اطلاعات اون رو در یک شیت جدید بازیابی کرد. می توان بجای این نام ها از users-123sdefr2fsw استفاده کرد.

نکات پیشرفته تر:
اگر اطلاعات خیلی مهمی در شیت هایتان ذخیره می کنید. با هر روشی اون که بخواهید از یوزر و پسورد استفاده کنید، (غیر از رمز گذاری روی خود فایل)، اگر فردی واقعا بخواهد به فایل شما دسترسی داشته باشد. می تواند این کار را به راحتی از طریق ایجاد یک فایل اکسل جداگانه و اتصال از طریق برنامه نویسی تمام اطلاعات شما را بدون هیچ گونه دردسری بازیابی کند. البته اگر پسورد روی خود فایل اکسل بگذارید برای اتصال پسورد هم باید در کد نویسی اضافه شود.

نمونه این کار:
Sub Connect()
If Not isconn Then
Set cn = New ADODB.Connection
cn.Provider = "MSDASQL"
cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "; ReadOnly=True;"
isconn = True
End If
End Sub

و همچنین می توانید این تاپیک را مشاهده نمایید.
http://forum.exceliran.com/thread-253-post-720.html#pid720

البته راه هایی برای جلوگیری از این مورد هم وجود دارد.

شما میتوانید دو تابع encode و decode نوشته و در توسط آن اطلاعات خود را encode و decode نمایید.

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

با تشکر

5-

khakzad

2012/03/16, 21:15

سلام
فرمایشات شما متین. دیگه چون سوال مطرح شده بود سعی کردیم جواب رو بذاریم
اما این مسئله که اقای مهندس فرمودن با نگه داشتن شیفت براحتی وارد فایل میشیم، چطور مرتفع میشه؟(در مورد فایلی که بنده گذاشتم)[hr]
سلام
فرمایشات شما متین. دیگه چون سوال مطرح شده بود سعی کردیم جواب رو بذاریم
اما این مسئله که اقای مهندس فرمودن با نگه داشتن شیفت براحتی وارد فایل میشیم، چطور مرتفع میشه؟(در مورد فایلی که بنده گذاشتم)

m_d6712

2012/03/16, 23:57

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

من خودم با 2010 زیاد کار نکردم. الان نصب کردم 2010 رو ولی بازم نتونستم بدون وارد کردن پسورد وارد فایل بشوم.

شما هم فایل داخل این پست رو دانلود کنید. و سعی کنید بدون وارد کردن پسورد وارد شوید. اگر موفق شدید اون موقع باید بیشتر بحث کنیم.
http://forum.exceliran.com/thread-224-post-704.html#pid704

ممنون.

khakzad

2012/03/17, 00:05

نمی دونم چرا mediafire فیلتر شده:-(
فیلترشکنم اذیت می کنه.
ببینید، فایل بنده رو ببینید، موقعی که می خواید بازش کنید، دستتون ذو بذارید رو shift
یهو میبینید صفحه بازه و خبری از فرم نیست!![hr]
نمی دونم چرا mediafire فیلتر شده:-(
فیلترشکنم اذیت می کنه.
ببینید، فایل بنده رو ببینید، موقعی که می خواید بازش کنید، دستتون ذو بذارید رو shift
یهو میبینید صفحه بازه و خبری از فرم نیست!!

m_d6712

2012/03/17, 00:48

من فایل شما رو هم چندین بار باز کردم در حالی که دستم روی شیفت بود. اما یوزر پسورد اومد.

هر چند نمی دونم چه اتفاقی می افته. فکر می کنم مال تنظیمات اکسل شما باشه.

به هر صورت من گمان می کنم که وقتی شیفت رو نگه میدارید. ماکرو ها غیر فعال میشه.

کاری که شما باید بکنید اینه که تمام شیت ها رو very hidden کنید. و روی محیط ویژوال بیسیک هم پسورد بگذارید.
دو حالت اتفاق می افتد:

1- اگر فرم باز نشود. چون کاربر نمی تواند شیت هارو از حالت very hidden خارج کند. به اطلاعات داخل فایل دسترسی ندارد.
2- اگر فرم باز شود. مجبور از یوزر و پسورد استفاده کند.

این لینک رو امتحان کنید:
http://md6712.com/files/userpass.xlsm

plc_pcb

2012/03/18, 11:54

من فایل شما رو هم چندین بار باز کردم در حالی که دستم روی شیفت بود. اما یوزر پسورد اومد.

هر چند نمی دونم چه اتفاقی می افته. فکر می کنم مال تنظیمات اکسل شما باشه.

به هر صورت من گمان می کنم که وقتی شیفت رو نگه میدارید. ماکرو ها غیر فعال میشه.

کاری که شما باید بکنید اینه که تمام شیت ها رو very hidden کنید. و روی محیط ویژوال بیسیک هم پسورد بگذارید.
دو حالت اتفاق می افتد:

1- اگر فرم باز نشود. چون کاربر نمی تواند شیت هارو از حالت very hidden خارج کند. به اطلاعات داخل فایل دسترسی ندارد.
2- اگر فرم باز شود. مجبور از یوزر و پسورد استفاده کند.

این لینک رو امتحان کنید:
http://md6712.com/files/userpass.xlsm

با سلام

فایلی که شما ارسال کردین رو من مشاهده کردم
من فایل شما رو با اکسل 64 بیتی باز کردم و ارور کامپایل ماژول یک رو داد
به نظر میرسه که از dll توی برنامتون استفاده کردین.

ولی من شیت هایی که شما هیدن کرده بودین رو باز کردم

کاری که من کردم این بود

1- من یک فایل اکسل جدید باز کردم
2- فایل شما رو هم باز کردم
3- توی محیط ویژوال بیسیک فایل جدید رفتم و یک ماژول جدید درست کردم و توی اون کد زیر رو زدم

Sub UnhideAll()
Dim wb As Workbook
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each wb In Workbooks
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = True
Next ws
Next wb
Application.DisplayAlerts = True
End Sub

4- برنامه رو اجرا کردم و شیت های مخفی باز شدند

در مورد دکمه شیفت هم این رو بگم که این از قابلیت های اکسل 2010 برای امنیت بیشتر است که اگر کاربر فایل اکسل مشکوکی رو باز میکنه که میخواد به درد سر نیفته با نگه داشتن دکمه شیفت ماکروها اجرا نمیشه
توی تنظیمات اکسل هم من جایی رو ندیدم که بشه این قابلییت رو غیرفعال کرد

plc_pcb

2012/03/18, 17:11

من فایل شما رو هم چندین بار باز کردم در حالی که دستم روی شیفت بود. اما یوزر پسورد اومد.

هر چند نمی دونم چه اتفاقی می افته. فکر می کنم مال تنظیمات اکسل شما باشه.

به هر صورت من گمان می کنم که وقتی شیفت رو نگه میدارید. ماکرو ها غیر فعال میشه.

کاری که شما باید بکنید اینه که تمام شیت ها رو very hidden کنید. و روی محیط ویژوال بیسیک هم پسورد بگذارید.
دو حالت اتفاق می افتد:

1- اگر فرم باز نشود. چون کاربر نمی تواند شیت هارو از حالت very hidden خارج کند. به اطلاعات داخل فایل دسترسی ندارد.
2- اگر فرم باز شود. مجبور از یوزر و پسورد استفاده کند.

این لینک رو امتحان کنید:
http://md6712.com/files/userpass.xlsm

علت اینکه برای شما و دوستان دیگر این اتفاق نمیفته و باید پسورد بزنید اینکه قبلا شما یک فایل اکسل باز کردین و نبستینش برای رفع این مشکل یا سیستم خودتون رو لاگ آف کنید و دوباره لاگین کنید وفایل رو اجرا کنید و یا اینکه در Task Manager برنامه EXCEL.EXE رو End Process کنید.

m_d6712

2012/03/18, 18:26

با سلام

فایلی که شما ارسال کردین رو من مشاهده کردم
من فایل شما رو با اکسل 64 بیتی باز کردم و ارور کامپایل ماژول یک رو داد
به نظر میرسه که از dll توی برنامتون استفاده کردین.

ولی من شیت هایی که شما هیدن کرده بودین رو باز کردم

کاری که من کردم این بود

1- من یک فایل اکسل جدید باز کردم
2- فایل شما رو هم باز کردم
3- توی محیط ویژوال بیسیک فایل جدید رفتم و یک ماژول جدید درست کردم و توی اون کد زیر رو زدم
4- برنامه رو اجرا کردم و شیت های مخفی باز شدند

سلام و تشکر

از اینکه این همه دقت کردید. واقعا حواسم نبود به فایل. درسته الان فایل به طور کامل secure نیست. اما این مشکل به راحتی بر طرف می شود.

http://www.mediafire.com/?i3ap12liuild89k (من نمی دونم چه سرور هایی فیلتر نیست اگر لطف کنید بگید تا از این به بعد روی اونا آپلود کنم. ممنون)

این اقدامات رو به فایل اضافه کردم:
1- workbook رو protect کردم با پسورد exceliran
2- تغییراتی در محلی که sheet هارو تغییر میدهم دادم.

یک نکته که باید توجه داشته باشیم. هر چقدر فایل هایمان از امنیت بیشتری برخوردار باشه احتمال اینکه باز بشه کمتر هست ولی یک نفر باز هم بخواد میتونه بازش کنه. البته زمان بیشتری نیاز داره.

موفق باشید.

khakzad

2012/03/18, 22:18

با سلام و تشکر از همه دوستان
بحث به شدت تخصصی شده:huh:
سرور www.bfileupload.com
فیلتر نیس
ممنوون

plc_pcb

2012/03/19, 20:31

با سلام و تبریک سال نو به همه دوستان

به نظر من مخفی کردن شیت ها روش مناسبی نیست

من فایل اکسلی که شیت های آن مخفی بود رو با برنامه Access باز کردم

فایلی که دوست خوبم آقای m_d6712 ارسال نمودند نیز به همین روش باز شد.