title image


Smiley Re: Fenstersymbole deaktivieren
HalloEine mögliche Lösung:Option ExplicitDim n%, i%Dim CdbList()Sub Auto_Open()Dim Cdb As CommandBarCommandBars("Worksheet Menu Bar").Enabled = FalseActiveWorkbook.Protect Windows:=TrueApplication.DisplayFullScreen = TrueApplication.DisplayFormulaBar = FalseApplication.DisplayStatusBar = FalseApplication.DisplayScrollBars = Falsen = 1For Each Cdb In Application.CommandBarsIf Cdb.Visible And Cdb.Type msoBarTypeMenuBar ThenReDim Preserve CdbList(n)CdbList(n) = Cdb.Namen = n + 1Cdb.Visible = FalseEnd IfNext CdbEnd SubSub Auto_Close()Dim Cdb As CommandBarCommandBars("Worksheet Menu Bar").Enabled = TrueActiveWorkbook.UnprotectApplication.DisplayFullScreen = FalseApplication.DisplayFormulaBar = TrueApplication.DisplayStatusBar = TrueApplication.DisplayScrollBars = TrueFor i = 1 To n - 1Application.CommandBars(CdbList(i)).Visible = TrueNext iEnd SubFrohe Weihnachtenmfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: