makro ile sayfa görünümü

[maliex]

iyi günler,

aşağıdaki kod ile sayfa görünümünü değiştirmekteyim ancak diğer excel dosyalarıda etkileniyor...sadece kodun bulunduğu excel dosyasının etkilenmesi için nasıl bir değişiklik yapmak gerekir yardım rica ederim

With Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        .ActiveWindow.DisplayWorkbookTabs = False
        .DisplayFullScreen = True
        .DisplayStatusBar = False
        .DisplayScrollBars = False
        With ActiveWindow
        .DisplayHeadings = False

    End With

 

[kulomer46]

Merhaba

Aşağıdaki şekilde deneyiniz.

Selamlar...

With ActiveWorkbook.Application
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        .ActiveWindow.DisplayWorkbookTabs = False
        .DisplayFullScreen = True
        .DisplayStatusBar = False
        .DisplayScrollBars = False
    
        With ActiveWindow
        .DisplayHeadings = False
        End With
End With

 

[maliex]

kısmen çözüm oldu aşağıdaki kodlar etkilenmedi maalesef

.ActiveWindow.DisplayWorkbookTabs = False

With ActiveWindow
        .DisplayHeadings = False

 

[maliex]

arkadaşlar yardım rica ederim

 

[Haluk]

Eski kodlarınızı silip, aşağıdakileri dosyanın ThisWorkbook (BuKitap) modülüne yerleştirin;

Private Sub Workbook_Activate()
    With Application
            .ActiveWindow.DisplayWorkbookTabs = False
            .DisplayFullScreen = True
            .DisplayStatusBar = False
            .DisplayScrollBars = False
            .ActiveWindow.DisplayHeadings = False
    End With
    ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
'
Private Sub Workbook_Deactivate()
    With Application
            .ActiveWindow.DisplayWorkbookTabs = True
            .DisplayFullScreen = False
            .DisplayStatusBar = True
            .DisplayScrollBars = True
            .ActiveWindow.DisplayHeadings = True
    End With
    ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

.

 

[Mehmet Sait]

Private Sub Workbook_Activate() With Application .ActiveWindow.DisplayWorkbookTabs = False .DisplayFullScreen = True .DisplayStatusBar = False .DisplayScrollBars = False .ActiveWindow.DisplayHeadings = False End With ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub ' Private Sub Workbook_Deactivate() With Application .ActiveWindow.DisplayWorkbookTabs = True .DisplayFullScreen = False .DisplayStatusBar = True .DisplayScrollBars = True .ActiveWindow.DisplayHeadings = True End With ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub

Merhaba, ekli resimde ki gbi sadece sekmeleri göstermesi için ne yapmam gerek?
Teşekkür ederim

 

[Haluk]

Merhaba, ekli resimde ki gbi sadece sekmeleri göstermesi için ne yapmam gerek?
Teşekkür ederim

CommandBars.ExecuteMso "MinimizeRibbon"

.

 

[Mehmet Sait]

CommandBars.ExecuteMso "MinimizeRibbon"

.

Hocam, bir modüle şu şekilde ekledim ancak açılışta ekli resimde ki hatayı veriyor.

Sub Auto_Open()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

Sub Auto_Close()
    CommandBars.ExecuteMso "MinimizeRibbon"
End Sub

 

[Haluk]

Başka bir modülde daha "AutoOpen" isimli prosedür var herhalde. Verdiğim kodu oraya yazın.... Aynı isme sahip 2 tane prosedür olmaz.

.

 

[Mehmet Sait]

Başka bir modülde daha "AutoOpen" isimli prosedür var herhalde. Verdiğim kodu oraya yazın.... Aynı isme sahip 2 tane prosedür olmaz.

.

Evet var.Teşekkür ederim.