Şeridi yok etme

muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,313
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2026
Arkadaşlar, sayın hocalarım, şu şekilde menü kısmını gözükmez yapabiliyoruz ama en üstteki çubuk kısmını da gözükmez yapmak mümkün mü acaba?
Teşekkür ederim.
Saygılarımla.
 

Ekli dosyalar

RBozkurt

RBozkurt

𐱅𐰇𐰼𐰚
Altın Üye
Katılım
10 Ocak 2018
Mesajlar
745
Excel Vers. ve Dili
Microsoft Office 2024
Google Sheets
Altın Üyelik Bitiş Tarihi
19-12-2026
Deneyiniz,

C++: 
Private Sub Workbook_Open()
    ' Ribbon'u gizle
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    ' Formül çubuğunu gizle
    Application.DisplayFormulaBar = False
    
    ' Durum çubuğunu gizle
    Application.DisplayStatusBar = False
    
End Sub
255953
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,313
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2026
RBozkurt' Alıntı:
Deneyiniz,

C++: 
Private Sub Workbook_Open()
    ' Ribbon'u gizle
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
   
    ' Formül çubuğunu gizle
    Application.DisplayFormulaBar = False
   
    ' Durum çubuğunu gizle
    Application.DisplayStatusBar = False
   
End Sub
Ekli dosyayı görüntüle 255953
Genişletmek için tıkla ...

Hocam cevabınız için teşekkür ederim. Diğerlerini biliyorum. Ben şu çubuğu kastettim. Menü kısmı yok olurken o kalıyor. Yok etmek mümkün mü?
Saygılarımla.

1739107544380.png
 
RBozkurt

RBozkurt

𐱅𐰇𐰼𐰚
Altın Üye
Katılım
10 Ocak 2018
Mesajlar
745
Excel Vers. ve Dili
Microsoft Office 2024
Google Sheets
Altın Üyelik Bitiş Tarihi
19-12-2026
O satır Excel'in değil, Windows işletim sisteminin parçası, kaldırılabileceğini düşünmüyorum.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,382
Excel Vers. ve Dili
2019 Türkçe
Api kodları ile mümkün.
Yeni bir modüle oluşturup aşağıdaki kodları kopyalayın.
FullScreenMode her şeyi gizler RestoreScreenMode geri getirir

Kod: 
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_THICKFRAME = &H40000

Sub FullScreenMode()
    Dim hWnd As LongPtr
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False
    hWnd = FindWindow("XLMAIN", Application.Caption)
    SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION And Not WS_THICKFRAME
    DrawMenuBar hWnd
End Sub

Sub RestoreScreenMode()
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True
    Dim hWnd As LongPtr
    hWnd = FindWindow("XLMAIN", Application.Caption)
    SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION Or WS_THICKFRAME
    DrawMenuBar hWnd
End Sub
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,313
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2026
Muzaffer Ali' Alıntı:
Api kodları ile mümkün.
Yeni bir modüle oluşturup aşağıdaki kodları kopyalayın.
FullScreenMode her şeyi gizler RestoreScreenMode geri getirir

Kod: 
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_THICKFRAME = &H40000

Sub FullScreenMode()
    Dim hWnd As LongPtr
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False
    hWnd = FindWindow("XLMAIN", Application.Caption)
    SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION And Not WS_THICKFRAME
    DrawMenuBar hWnd
End Sub

Sub RestoreScreenMode()
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True
    Dim hWnd As LongPtr
    hWnd = FindWindow("XLMAIN", Application.Caption)
    SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION Or WS_THICKFRAME
    DrawMenuBar hWnd
End Sub
Genişletmek için tıkla ...
Hocam çok teşekkür ederim. Elinize emeğinize sağlık. Buydu aradığım. Bir iki şey sorsam.
Her şeyi kaldırdı, ben buna kaydırma çubuğu da ekledim. Yalnız olduğu büyüklüğü ile silemez mi? Yani tam ekran yapmadan.
Üst kısmı Modüle, alt kısmı Private Sub Workbook_Open() şeklinde Çalışma kitabına yazsam. Açılışta olması için.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,382
Excel Vers. ve Dili
2019 Türkçe
Bu kodu kullanın.
Kod: 
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_THICKFRAME = &H40000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000

Sub CustomScreenMode()
    Dim hWnd As LongPtr
    
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False

    
    hWnd = FindWindow("XLMAIN", Application.Caption)
    If hWnd <> 0 Then
        SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION And Not WS_THICKFRAME And Not WS_MINIMIZEBOX And Not WS_MAXIMIZEBOX
        DrawMenuBar hWnd
    End If
End Sub

Sub RestoreScreenMode()
    Dim hWnd As LongPtr
    
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True

    
    hWnd = FindWindow("XLMAIN", Application.Caption)
    If hWnd <> 0 Then
        SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
        DrawMenuBar hWnd
    End If
End Sub
 
muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,313
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2026
Muzaffer Ali' Alıntı:
Bu kodu kullanın.
Kod: 
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_THICKFRAME = &H40000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000

Sub CustomScreenMode()
    Dim hWnd As LongPtr
   
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False

   
    hWnd = FindWindow("XLMAIN", Application.Caption)
    If hWnd <> 0 Then
        SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION And Not WS_THICKFRAME And Not WS_MINIMIZEBOX And Not WS_MAXIMIZEBOX
        DrawMenuBar hWnd
    End If
End Sub

Sub RestoreScreenMode()
    Dim hWnd As LongPtr
   
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True

   
    hWnd = FindWindow("XLMAIN", Application.Caption)
    If hWnd <> 0 Then
        SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
        DrawMenuBar hWnd
    End If
End Sub
Genişletmek için tıkla ...
Hocam çok teşekkür ederim. Var olun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst