حذف منو از بالای صفحه اکسل و فول اسکرین کامل

[shamsololama]

با درود فراوان
زمانی که صفحه اکسل را بصورت دستی و یا بایک ماکرو و کد تمام صفحه می کنیم (فول اسکرین)نوار منو همچنان دیده می شود و
گاهی نیاز داریم تمام صفحه بصورتی باشد که نوار منو هم مشاهده نشود و یا اینکه نوار منو در دست رس کار بر قرار نگیرد
همانطور که می دانید تولز بار را هم می توان مخفی کرد و هم میتوان غیر فعال کرد که در اینجا مخفی کردن آن را انجام توضیح می دهم
در اینجا این کدها را بصورت دو ماکرو نوشته ایم که اگر آنها را در زیرروال های زیر یعنی
قرار دهیم هنگام ورود به شیت مذکور فول اسکرین و منوبار نیز مخفی می شود و هنگام خروج از شیت به حالت اصلی بر می گردد این دحالتی است
که برای یک شیت در نظر گرفته باشیم که میتوان این کد را روی کل ورک بوک نیز اعمال کنیم
Private Sub Worksheet_Activate()

With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With

End Sub
و

Private Sub Worksheet_Deactivate()

With Application
.DisplayFullScreen = False
.CommandBars("worksheet menu bar").Enabled = True
End With

End Sub



و بصورت ماکرو اینچنین خواهد بود

برای مخفی کردن و فول اسکرین
Sub Toolbars1()
With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With
End Sub


برای خارج کردن از فول اسکرین و نمایش تولز بار
Sub Toolbars2()
With Application
.DisplayFullScreen = False
.CommandBars("worksheet menu bar").Enabled = True
End With
End Sub

[mr.mahlouji]

بسيار عالي و كاربردي بود.
واقعا بي نظيره.

[shamsololama]

بسيار عالي و كاربردي بود.
واقعا بي نظيره.


شما لطف دارید دوست عزیزم

[afshin160]

سلام ..
دوست عزيز لطف مي كنيد در فايل ضميمه تمام حالت هاي lock كردن و فول اسكرين كردن را با كد توضيخ دهيد .
با تشكر

[shamsololama]

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

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

[shamsololama]

درود فراوان

اگر برای دانلود مشکلی وجود داشت میل کنم

http://www.xlpar.com/fcmep750vxn9/غیر_فعال_کردن_منو_اکسل.zip.html

[afshin160]

shamsololama عزيز متشكرم .
ولي غير فعال كردن منوي فايل كار نمي كنه . ممكنه بخاطر ورژن باشه .؟ براي من 2010 هست . يعني يه چيزي پسوند و پيشوند فايل باشد كه بايد اضافه كنيم[hr]
ويه سوال ديگه هم پيش مياد اينه كه فكر نكنم بشه alt+f11 را lock كرد . درسته ؟
ولي خوب ميشه براي كد ها password گذاشت كه البته اون هم با برنامه هاي recovare باز ميشه . شما راه بهتري ميشناسيد ؟

[afshin160]

دوباره سلام :blush:
چرا هر دو كد :



With Application
.CommandBars("worksheet menu bar").Enabled = False
End With

و كد



With Application
.CommandBars("File").Enabled = False
End With


يه كارو انجام ميدهند .؟!!!!:huh::huh::huh:

هيچ كدام قسمت file را لاك نميكنند .!!!!!!!

[【★ tv_kade ★】]

با یکلار کوچک بزرگ گردن لیست اکسل
دستوری که برای فول اسکرین و خذف منوها قرار دادین از بین میره و دوباره نوار منو ظاهر میشه

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

[afshin160]

دقيقا" همين طوره!!!

[hamed bhiraee]

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

[shamsololama]

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

این که می فرمائید دوباره منو به حالت اولیه برمیگرده و بخاطر اینه که در 2007 و یا 2010 هست و برای اینکه این مشکل رو حل کنی باید این کد رو تو زیر روال ریسایز می تونید بزارید دیگه با این کار از حال فول اسکرین و منو ها بر نمی گرده یعنی به این صورت

Private Sub Workbook_WindowResize(ByVal Wn As Window)
With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With


End Sub

[intro]

سلام بادرود فراوان
جناب شمس اللما ممكنه به من هم ايميل بفرماييد نتونستم دانلود كنم
ممنون ميشم

[shamsololama]

سلام بادرود فراوان
جناب شمس اللما ممكنه به من هم ايميل بفرماييد نتونستم دانلود كنم
ممنون ميشم


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


Private Sub Workbook_WindowResize(ByVal Wn As Window)
With Application
.DisplayFullScreen = True
.CommandBars("worksheet menu bar").Enabled = False
End With

[ar133212]

تشکر فراوان عالی بود .

[mehr2245]

با سلام آفيس من 2007 هست و اين كد را در جاهاي مختلف امتحان كردم منوهاش حذف نمي شوند فقط كد فول اسكرين عمل مي كند آن هم موقع ماگزيمم كردن فعال ميشه بايد چكار كرد لطفا راهنمايي بفرماييد.[hr]
سلام
براي اين كه كسي نتواند وارد اكسل آپشن شود چه كدي را بايد بنويسيم؟

[naser1357]

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

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

[abootorab]

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

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

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

[naser1357]

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

[ali.b]

سلام از این کد استفاده کنید

Private Sub Workbook_Open()Set myRange = ActiveSheet
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False

Dim wbBook As Workbook
Dim wsSheet As Worksheet

Set wbBook = ThisWorkbook

For Each wsSheet In wbBook.Worksheets
If Not wsSheet.Name = "Blank" Then wsSheet.Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
'ActiveSheet.EnableSelection = xlUnlockedCells
End With
Next wsSheet

myRange.Select


End Sub

[ali.b]

درضمن اگه ننمیخواین پروتگت باشه این کد رو حذف کنید

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

[ahwaznoname]

لطفا فایلهای نمونه دوباری آپلود شوند . هیچگدام از لینکها کار نمیکند .

[sahelgolestani]

واقعا ممنونم از این کد کاربردی و مفیدتون چیکار کنم که به محض باز شدن برنامه صفخه بزرک بشه و منو بار پنهان بشه