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

موضوع: نمایش full screen اکسل

  1. #1


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

    نمایش full screen اکسل

    سلام
    این کد رو در قسمت thisworkbook محیط vb اکسل کپی کنید
    باعث میشه کل فایل اکسل به صورت تمام صفحه مانیتور نمایش بده و هم فرمول بار و چیزای دیگه رو غیر فعال میگنه تا نیاز به مخفی کردن فرمول و نگرانی از تغییر اونها نباشید
    کد:
    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
    اینم ی حالت دیگه
    کد:
    Private Sub Workbook_Activate()    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        Application.DisplayFormulaBar = False
        Application.DisplayStatusBar = Not Application.DisplayStatusBar
        ActiveWindow.DisplayWorkbookTabs = False
     
    End Sub
     
    Private Sub Workbook_Deactivate()
     
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        Application.DisplayFormulaBar = True
        Application.DisplayStatusBar = True
        ActiveWindow.DisplayWorkbookTabs = True
     
    
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.



  2.  


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

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

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

موضوعات مشابه

  1. Full Screen User Form
    توسط Haji hadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/10/05, 18:43
  2. غیرفعال کردن Splash Screen در آفیس 2010
    توسط ~M*E*H*D*I~ در انجمن microsoft office
    پاسخ ها: 0
    آخرين نوشته: 2012/09/06, 21:41

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

کلید میانبر اکسل full screen

کلمات کلیدی این موضوع

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

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

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