نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: فول اسکرین کردن اکسل

  1. #1


    آخرین بازدید
    2017/09/18
    تاریخ عضویت
    August 2017
    نوشته ها
    5
    امتیاز
    10
    سپاس
    2
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    فول اسکرین کردن اکسل

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

    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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2017/09/18
    تاریخ عضویت
    August 2017
    نوشته ها
    5
    امتیاز
    10
    سپاس
    2
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  4. #3


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط 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


  5. سپاس ها (3)


  6. #4


    آخرین بازدید
    2017/09/18
    تاریخ عضویت
    August 2017
    نوشته ها
    5
    امتیاز
    10
    سپاس
    2
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  7. #5


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    سلام
    وارد کدها بشین یا همون alf+f11 رو از روی صفحه کلید انتخاب کنید وارد محیط کد نویسی میشد تو بخش this workbook شما کدها رو اونجا باید قرار می دادی
    البته تو کد باالا اینکد باید حذف شه
    کد:
    Application.Windows.Application.Visible = False
    چون برنامه می ره حالت زمیمه و نشون نمیده و انتها هم باید به یک شیت ادرس بدین
    تو فایل نمونه هست
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar Book.rar اطلاعات (11.2 کیلو بایت, 66 نمایش)


  8. سپاس ها (2)


  9. #6


    آخرین بازدید
    2017/09/18
    تاریخ عضویت
    August 2017
    نوشته ها
    5
    امتیاز
    10
    سپاس
    2
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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


اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

فول اسکرین کردن در اکسل

فول اسکرین در اکسل

چطور فایل اکسل را از فول اسکرین خارج کنیم

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است