• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tam ekran

R

rekkezum

Katılım
15 Ocak 2008
Mesajlar
530
Excel Vers. ve Dili
office 2013 Ingilizce
Merhaba arkadaşlar,

foum da çok sıkrasladığım tam ekran sorunu ile alakalı farklı birşey sormak istiyorum. Açılışta dosya tam ekran açıldığı gibi hep tam ekran kalması mümkünmü acaba. Yani yapmış olduğum bir dosya var ve tüm detaylarını hallettim. artık düzeltecek birşey olmadığından hep tam ekran olsun istiyorum...
 
.

ThisWorkbook'a

Kod: 
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

kodlarını yazın.
 
kolay gelsin üstadım öncelikle yardımcı olduğun için çok teşekkür ederim. yanlız ilk açılışta tam ekran, minimize ettikten sonra taskbar da yukarı aldığımda tam ekrandan çıkmaktadır. sebebi ne olabilir?
 
Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Kod: 
Private Sub Workbook_Activate()
    Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .ShowStartupDialog = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = False
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = False
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbook_Deactivate
End Sub
 
Private Sub Workbook_Deactivate()
    Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = True
    Next
    Application.ScreenUpdating = True
End Sub
 
Korhan Ayhan' Alıntı:
Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Kod: 
Private Sub Workbook_Activate()
    Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .ShowStartupDialog = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = False
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = False
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbook_Deactivate
End Sub
 
Private Sub Workbook_Deactivate()
    Application.ScreenUpdating = False
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = True
    Next
    Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...

üstadım ellerine sağlık süper olmuş. fakat şu fotografta gördüğümüz kısmın da otomatik kapatılmasının ( tam ekran olmasını ) istiyorum bu code ye eklemek / uyarlamak mümkünmü ?
 

Ekli dosyalar

Selamlar,

Dikkat etmedim siz 2007 versiyonu kullanıyormuşsunuz. Aşağıdaki şekilde denermisiniz.

Kod: 
Private Sub Workbook_Activate()
    Application.ScreenUpdating = False
    
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .ShowStartupDialog = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = False
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = False
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbook_Deactivate
End Sub
 
Private Sub Workbook_Deactivate()
    Application.ScreenUpdating = False
    
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    For X = 1 To Application.CommandBars.Count
    Application.CommandBars(X).Enabled = True
    Next
    Application.ScreenUpdating = True
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst