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

[ar133212]

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

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

[mehr2245]

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

با سلام آفيس من 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]

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

[COLOR=#333333]ActiveSheet.Protect DrawingObjects:=True, Contents:=True,    Scenarios:=True, AllowFormattingRows:=True[/COLOR]

[ahwaznoname]

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

[sahelgolestani]

ممتونم

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