نوشته اصلی توسط
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
سلام
این کد رو بخش 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
علاقه مندی ها (Bookmarks)