• DİKKAT

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

Şeridi yok etme

muratgunay48

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,452
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
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

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
 
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
 
O satır Excel'in değil, Windows işletim sisteminin parçası, kaldırılabileceğini düşünmüyorum.
 
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
 
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.
 
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
 
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.
Geri
Üst