[حل شده] فول اسکرین کردن اکسل

[SOFTERA]

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

Private Sub Worksheet_Activate()

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

End Sub
Private Sub Worksheet_Activate()

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

End Sub

[SOFTERA]

کسی نیست جواب بدهد

[ali.b]

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

Private Sub Worksheet_Activate()

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

End Sub
Private Sub Worksheet_Activate()

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

End Sub

سلام
این کد رو بخش workbook قرار بده با

Private Sub Workbook_Open()

Application.Windows.Application.Visible = FalseApplication.WindowState = xlMaximized
Set myRange = ActiveSheet
   Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
   Application.DisplayFormulaBar = False
   Application.DisplayStatusBar = Not Application.DisplayStatusBar
   ActiveWindow.DisplayWorkbookTabs = True


   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
            Application.DisplayFormulaBar = False
           End With
   Next wsSheet

بعدش اگه اکسلت قابلیت چندکاربرده با قابلیت ورود رمز ورود داره و می خوای برای فقط شما همه منو های رو نشون بده در بخش ادرس مختص به خودت این کد رو قرار بده در غیر این صورت همون اولی کفایت می کنه

If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") ThenApplication.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If
Application.DisplayFormulaBar = True

[SOFTERA]

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

[ali.b]

سلام
وارد کدها بشین یا همون alf+f11 رو از روی صفحه کلید انتخاب کنید وارد محیط کد نویسی میشد تو بخش this workbook شما کدها رو اونجا باید قرار می دادی
البته تو کد باالا اینکد باید حذف شه

[COLOR=#333333]Application.Windows.Application.Visible = False[/COLOR]

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

[SOFTERA]

همینو واسه منم خطا میداد: Application.Windows.Application.Visible = False
بسیار ممنون
عالی بود عالییییییییییییییییی