HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Workbook Open
Snewi

Hallo
wenn ich mein Sheet öffnen verwende ich folgenden Code um in die Gesamtansicht einzublenden!


Sub Workbook_Open()
If Application.DisplayFullScreen = False Then
Application.DisplayFullScreen = True
End If
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub




Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
End If
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub


Wie kann ich nun die Symbolleiste Gesamtansicht ausblenden damit man nicht die Möglichkeit hat diese wieder einzublenden?
Gruß

AW: Workbook Open
Rudi

Hallo,
commandbars("worksheet menu bar").FindControl(id:=178,recursive:=true).Enabled=False
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Workbook Open
Snewi

Muss ich das genau so hinschreiben bei mir kommt irgendeinfahler mit with!!!!
Gruß

AW: Workbook Open
Rudi

Hallo,


Muss ich das genau so hinschreiben


Ja.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Workbook Open
Snewi

aber dann kommt Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt! :-(
Gruß

AW: Workbook Open
Rudi

Hallo,
du machst was falsch
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Workbook Open
Snewi

Aha und was

bin ich Hellseher? owT
Rudi

AW: bin ich Hellseher? owT
Snewi

So siehts bei mir aus:


Sub Workbook_Open()
If Application.DisplayFullScreen = False Then
Application.DisplayFullScreen = True
End If
ActiveWindow.Zoom = 60
CommandBars("worksheet menu bar").FindControl(ID:=178, recursive:=True).Enabled = False
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub


AW: bin ich Hellseher? owT
Rudi

Hallo,
kurios. In einem Modul geht's auch ohne Application.


Private Sub Workbook_Open()
'    If Application.DisplayFullScreen = False Then    '?wozu die Bedingung?
Application.DisplayFullScreen = True
'    End If
ActiveWindow.Zoom = 60
Application.CommandBars("worksheet menu bar").FindControl _
(ID:=178, recursive:=True).Enabled = False
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: bin ich Hellseher? owT
Renee

Hi Snewi,
Bist du sicher, dass du Excel 2003 im Einsatz hast ?
GreetZ Renée

Frage erübrigt sich (owT)
Renee


AW: Frage erübrigt sich (owT)
Snewi

ja

AW: Frage erübrigt sich (owT)
Snewi

Nun gehts Danke!
Wie gehts wenn ich alle Symbolleisten ausblenden will ausser die Arbeitsmenüleiste!
Gruß

10^6 x gefragt-->Recherche owT
Rudi