جلو گیری از اجرای محیط اکسل

[reshehri]

دوستان و اساتید گرامی

در Open Workbook یک فایل اکسل کد پنهان کردن Workbook و نمایش یک فرم ورود اطلاعاتی طراحی کرده اما برای چند لحظه فایل اکسل را نشان و بعد آنرا مخفی و فرم ورود اطلاعات را نشان می دهد سوال من این است که:
(چگونه می توان با کلیک روی فایل اکسل مربوطه از همان ابتدا فرم ورود اطلاعات را نشان دهد بدون اینکه صفحه اکسل باز شده باشد؟)

[mokaram]

RE: جلو گیری از اجرای محیط اکسل

میشه بگید چه کدی نوشتید؟

[reshehri]

RE: جلو گیری از اجرای محیط اکسل

جناب اقای امیری کد زیر را نوشتم:
Application.ActiveWorkbook.Application.Visible = False
UserForm1.Show

[MEYTI]

RE: جلو گیری از اجرای محیط اکسل

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

Application.WindowState = xlMinimized

[reshehri]

RE: جلو گیری از اجرای محیط اکسل

آقا مهدی حل نشد

[Almasi]

RE: جلو گیری از اجرای محیط اکسل

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

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.ActiveWorkbook.Application.Visible = False
UserForm1.Show
End Sub
و جهت نمایش ورک بوک پس از بستن یوزر فرم از کد زیر می توانید استفاده نمائید
Private Sub UserForm_Deactivate()
Application.ActiveWorkbook.Application.Visible = True

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.ActiveWorkbook.Application.Visible = True

End Sub

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

[m.estreji]

RE: جلو گیری از اجرای محیط اکسل

با سلام خدمت همه اساتيد
من يه فايلي تهيه كردم و از كد زير براي مخفي كردن صفحه اكسل استفاده كردم

Application.Windows.Application.Visible = False
userform1.show 

حالا وقتي فايلم رو باز ميكنم درسته صفحه اكسل مخفي ميشه و فرم يك من ظاهر ميشه ولي يه مشكل دارم
اونم اينكه اگر يه فايل اكسل ديگه باز كنم فايل اكسل من هم ظاهر ميشه
من ميخوام وقتي يه فايل ديگه باز ميكنم اون فايل قبليم كه مخفيش كرده بودم باز نشه
ممنون

[امين اسماعيلي]

RE: جلو گیری از اجرای محیط اکسل

با درود خدمت دوست عزيز

يه فايل قرار دادم كه تا انجايي كه تونستم تو شرايط سخت تستش كردم. ميتوني از كداش بهره ببري. سوالت به چالشمون كشيد. الانم كه ساعت 4 صبح هستش و ببين با ما چيكار كردي.

يه ايله ديگه هم دارم اماده ميكنم كه اكسلو مخفي نميكنه ولي دقيقن ميبره پشت فرمت قرار ميده به اندازه فرمت و اگر كد قفل شدن و فيكس شدن يوزر فرم رو كنارش قرار بدم فك كنم مفيد واقع بشه.

البته مطمئنم كه روش هاي بهتري هم هست.

از استاد شمس العلما هم در اين مورد حتما سوال خواهم كرد

لطفا نظرتونو بگين


http://uplod.ir/nna3tdrf7l9g/HideExcelExample.xls.htm

[m.estreji]

RE: جلو گیری از اجرای محیط اکسل

با درود خدمت دوست عزيز

يه فايل قرار دادم كه تا انجايي كه تونستم تو شرايط سخت تستش كردم. ميتوني از كداش بهره ببري. سوالت به چالشمون كشيد. الانم كه ساعت 4 صبح هستش و ببين با ما چيكار كردي.

يه ايله ديگه هم دارم اماده ميكنم كه اكسلو مخفي نميكنه ولي دقيقن ميبره پشت فرمت قرار ميده به اندازه فرمت و اگر كد قفل شدن و فيكس شدن يوزر فرم رو كنارش قرار بدم فك كنم مفيد واقع بشه.

البته مطمئنم كه روش هاي بهتري هم هست.

از استاد شمس العلما هم در اين مورد حتما سوال خواهم كرد

لطفا نظرتونو بگين


http://uplod.ir/nna3tdrf7l9g/HideExcelExample.xls.htm

دوست عزيزم جناب اقاي اسماعيلي
از پاسختون خيلي ممنونم ولي همچنان مشكل من حل نشده
ببينيد الان اگر يه فايل اكسل باز كنيد و بعدش فايل پيوستي خودتون رو باز كنيد هر دو تا ورك بوك هايد ميشن
من ميخوام فقط فايلي كه كدنويسي شده هايد بشه
استاد شمس العلما از يكي از اساتيد بنده هستن از ايشون هم كمك ميخوام انشاله كه راهي پيش پامون بزارن

[امين اسماعيلي]

RE: جلو گیری از اجرای محیط اکسل

لطف دارين

من تا اونجا كه ميتونستم. يعني سعيمو كردم. سرچم كردم. اگه راه حل بهتري پيدا كردم . حتما ميزارم. كه همه استفاده كنن. اين ايراد مهمه.

يه ايراد ديگه هم بود كه بر طرف كردم. اونم اينكه اگه يكي macro رو فعال كنه دسترسي به صفحه اطلاعات نداشته باشه


واسه مشكل شما و همون يه كاره ديگه هم ميشه كرد. اونم اينه كه همه شيت ها به غير از يه شيت فك كنم . شايدم همشون رو very hide كنيم كه اگرم صفحه ورك بوك نمايش داده شد اطلاعات نمايش داده نشه و يه دكمه هم توي اون شيت كه قرار نيست هايد بشه بزاريم و بهش بگيم كه اگه مثلا توي فلان سل فلان تكست نوشته شده بود و ما تورو كليك كرديم تمام شيت هارو واسمون از هايد در بيار. و واسه قسمت ماكرو هم پسورد بزاريم كه دسترسي به كد ها محدود بشه. اگرم كه ماكرو ها رو غير فعال كنه بازم كاري از دستش بر نياد.

[m.estreji]

RE: جلو گیری از اجرای محیط اکسل

ممنون از لطف تون ومن مطمئنم كه راهي ميتونيد پيدا كنيد

[Almasi]

RE: جلو گیری از اجرای محیط اکسل

با سلام
پیشنهاد میکنم موضوع را با آقای مهندس شمس العلماء هم مطرح نمائید .

[امين اسماعيلي]

RE: جلو گیری از اجرای محیط اکسل

با درود فراوان خدمت دوستان عزيز و گرامي


دوستان من يه سرچ كردم ببينيد فايل زير ميتونه كمكي بهتون بكنه يا نه؟
لطفا نظر بدين

فايل زير دو تا دكمه دار كه task bare رو واستون هايد يا در صورت نياز unhide mikone

http://uplod.ir/7ammlbzvy01n/HideUnhide.zip.htm


در پناه خداوندگار ايران زمين باشيد و پيروز[hr]

اين قسمتم ميتونه كمك كنه يه نگاهي به اين بخش اكسلتون بندازين.


Hide or display workbook windows on the Windows taskbar

Click the Microsoft Office Button Button image, click Excel Options, and then click the Advanced category.

Under Display, clear or select the Show all windows in the Taskbar check box.
[hr]
Application.ShowWindowsInTaskbar = False
اينم كمك ميكنه اما اگر فايل دوم رو كه باز ميكنيم با ضربدر كوچيك تر ببنديم فايل بازم نمايش داده ميشه.[hr]
Application.ShowWindowsInTaskbar = False
اينم كمك ميكنه اما اگر فايل دوم رو كه باز ميكنيم با ضربدر كوچيك تر ببنديم فايل بازم نمايش داده ميشه.[hr]
دوستان وقتي از كد هاي هيدن تسك بار استفاده ميكنين توي فايل اكسل خودتون مثلا وقتي كه open ميشه ورك بوكتون بايد كد ظاهر شدنشم توي يه بخشي از فرم كه داره اكسل بسته ميشه بزارين كه هنگام بسته شدن تسكبار دوباره نمايش داده بشه.


البته بايد يه اعترافي كرد كه بازهم يه راه درو داره . فهميدنش با شما؟

[امين اسماعيلي]

RE: جلو گیری از اجرای محیط اکسل

با درود فراوان

دوستان عزيز و گرامي
فايل زير وقتي باز ميشه صفحه اكسل مينيمايزه و اگرم بخواين ماكزيمايزش كنين نميشه. مگه كه برين تو قسمت كدهاي ماكرو و تغييراتو لحاظ كنين. در صورتيم كه يه فايل ديگه اكسل باز كنين بازم همين حالت براش هست. حالا اگه واسه vba تون پسورد بزارين. فك كنم حله. كافيه تويه يوزر فرمتون خاصيت ماكزيمايز شدن رو درستش كنين به شرطي كه مثلا يوزر و پسورد كه تو يوزرفرمتون (كه حتما تعبيه ميكنين(درست باشه اين خاصيت درست بشه و قبل از بسته شدن دوباره به همين حالت در بياد.


http://uplod.ir/ouvoxhpcjo54/rahe_hale_1.xlsm.htm

دوستان در مورد اينكه وقتي يه فايل ديگه رو باز ميكنين و با زدن دكمه ضربدر اون فايل به كلي يوزر شما هم بسته ميشه از كد زير كه به نظرم خيلي كاربردي هستش استفاده كنين.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

در قسمت workbook واردش كنين.

در پناه خداوندگار ايران زمين باشيد و پيروز

[m.estreji]

RE: جلو گیری از اجرای محیط اکسل

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