sadece belirli hücreler görünmesi

[acar6783]

http://www.excel.web.tr/f14/sadece-hucrelerin-gorunmesi-t85029.html

Soruda aslında benim istediğim soru sorulmuş fakat sonuç alamadım.
Sadece meraktan aklıma gelenbirşey.

Sayfa açıldığında mesele sadece A1:M30 arasını gösterebilirmiyiz.

Mesela sadece userformu gösteriyoruz ya( apllication.visible=false ) onun gibi birşey .

 

[Korhan Ayhan]

Excel menüleri gizlenerek bir şeyler üretilebilir.

Alternatif olarak Userform üzerine SpreadSheet nesnesi ekleyerek dilediğiniz hücreleri görüntüleyebilirsiniz.

 

[acar6783]

Korhan bey merhaba;

SpreadSheet nesnesi her pc olmayabilir sanırım.

Verdiğimlinkteki arkadaşlar sorunu çözmüşgibi görünüyor fakat kod hata veriyor.Hata vern satırı silsem hiç bir işlem olmuyor.

Sub Makro1()
    Application.CommandBars("Worksheet Menu Bar").Visible = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
End Sub

 

[Korhan Ayhan]

Verilen kodlar 2003 ve önceki versiyonlar içindir.

Yeni excel sürümlerinde RIBBON menülere geçilmiştir. Bu sebeple işe yaramaz.

Farklı kodlama uygulamak gerekiyor.

 

[acar6783]

Mesela ne yapılabilir?

 

[Korhan Ayhan]

Arama yapabilirsiniz...

 

[acar6783]

Aradım bir tane soru var konuyla ilgili o da paylaştığım link

 

[bzace]

Merhaba,
Araştırarak şu şekilde bir kod buldum.
M30 hücresini seçip kodu çalıştırınız.

Sub Hide_ColumnsandRows()

    Dim Answer As VbMsgBoxResult
    Dim lastCol As Integer, lastRow As Integer
    Answer = MsgBox("Please make sure that your current ACTIVE CELL is the cell that you want to be the last visible cell. ", vbOKCancel, "CAUTION!")
    If Answer = vbCancel Then Exit Sub
    If Answer = vbOK Then
            lastCol = ActiveCell.Column + 1
            lastRow = ActiveCell.Row + 1
            Range(Cells(1, lastCol), Cells(Rows.Count, Columns.Count)).EntireColumn.Hidden = True
            Range(Cells(lastRow, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
    End If
End Sub

Sub Reveal_ColumnsandRows()
        Cells.EntireColumn.Hidden = False
        Cells.EntireRow.Hidden = False
End Sub

Bzace

 

[Korhan Ayhan]

Aşağıdaki linkteki son mesaj işinizi görecektir.

Excel araç çubuklarını gizlemek

 

[acar6783]

Aşağıdaki linkteki son mesaj işinizi görecektir.

Excel araç çubuklarını gizlemek

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub

Kodu denediğimde birişlem yapmıyor.

 

[acar6783]

Merhaba,
Araştırarak şu şekilde bir kod buldum.
M30 hücresini seçip kodu çalıştırınız.

Sub Hide_ColumnsandRows()

    Dim Answer As VbMsgBoxResult
    Dim lastCol As Integer, lastRow As Integer
    Answer = MsgBox("Please make sure that your current ACTIVE CELL is the cell that you want to be the last visible cell. ", vbOKCancel, "CAUTION!")
    If Answer = vbCancel Then Exit Sub
    If Answer = vbOK Then
            lastCol = ActiveCell.Column + 1
            lastRow = ActiveCell.Row + 1
            Range(Cells(1, lastCol), Cells(Rows.Count, Columns.Count)).EntireColumn.Hidden = True
            Range(Cells(lastRow, 1), Cells(Rows.Count, Columns.Count)).EntireRow.Hidden = True
    End If
End Sub

Sub Reveal_ColumnsandRows()
        Cells.EntireColumn.Hidden = False
        Cells.EntireRow.Hidden = False
End Sub

Sn bzace burada sadece hücreleri gizliyor.

 

[bzace]

Ben yanlış anlamışım, hem araç çubuklarını gizleyecek, hem de istenilen satırları gizleyecek değil mi ?

Sub RemoveToolbars()
[COLOR="Red"]'http://www.ozgrid.com/VBA/toolbar-remove-restore.htm[/COLOR]
    On Error Resume Next
        With Application
           .DisplayFullScreen = True
           .CommandBars("Full Screen").Visible = False
           .CommandBars("MyToolbar").Enabled = True
           .CommandBars("MyToolbar").Visible = True
           .CommandBars("Worksheet Menu Bar").Enabled = False
        End With
    On Error GoTo 0
Call Hide_ColumnsandRows
End Sub

İlk önerdiğim kod ile bunu birleştirince istediğiniz oluyor herhalde.

 

[acar6783]

Teşekkürler

ActiveWindow.DisplayHeadings = False

Bunu da ekleyince birşey kalmadı

 

[acar6783]

Fakat Esc ye basınca herşey geri geliyor

 

[Korhan Ayhan]

Excelin guzelligi ve kolayligi...