Microsoft Excel

Herbers Excel/VBA-Archiv

Workbook Open

Betrifft: Workbook Open von: Snewi
Geschrieben am: 10.04.2008 13:14:18

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ß

  

Betrifft: AW: Workbook Open von: Rudi Maintaire
Geschrieben am: 10.04.2008 13:19:53

Hallo,
commandbars("worksheet menu bar").FindControl(id:=178,recursive:=true).Enabled=False

Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


  

Betrifft: AW: Workbook Open von: Snewi
Geschrieben am: 10.04.2008 13:40:33

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

Gruß


  

Betrifft: AW: Workbook Open von: Rudi Maintaire
Geschrieben am: 10.04.2008 13:46:55

Hallo,

Muss ich das genau so hinschreiben


Ja.

Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


  

Betrifft: AW: Workbook Open von: Snewi
Geschrieben am: 10.04.2008 13:51:20

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


Gruß


  

Betrifft: AW: Workbook Open von: Rudi Maintaire
Geschrieben am: 10.04.2008 13:57:12

Hallo,
du machst was falsch


Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


  

Betrifft: AW: Workbook Open von: Snewi
Geschrieben am: 10.04.2008 14:06:00

Aha und was


  

Betrifft: bin ich Hellseher? owT von: Rudi Maintaire
Geschrieben am: 10.04.2008 14:08:43




  

Betrifft: AW: bin ich Hellseher? owT von: Snewi
Geschrieben am: 10.04.2008 14:12:38

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




  

Betrifft: AW: bin ich Hellseher? owT von: Rudi Maintaire
Geschrieben am: 10.04.2008 14:30:57

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


  

Betrifft: AW: bin ich Hellseher? owT von: Renee
Geschrieben am: 10.04.2008 14:32:56

Hi Snewi,

Bist du sicher, dass du Excel 2003 im Einsatz hast ?

GreetZ Renée


  

Betrifft: Frage erübrigt sich (owT) von: Renee
Geschrieben am: 10.04.2008 14:33:55




  

Betrifft: AW: Frage erübrigt sich (owT) von: Snewi
Geschrieben am: 10.04.2008 14:54:03

ja


  

Betrifft: AW: Frage erübrigt sich (owT) von: Snewi
Geschrieben am: 10.04.2008 14:57:38

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

Gruß


  

Betrifft: 10^6 x gefragt-->Recherche owT von: Rudi Maintaire
Geschrieben am: 10.04.2008 15:06:25




 

Beiträge aus den Excel-Beispielen zum Thema "Workbook Open"