Dear Mr, Zlow....
Dengan modal yang sama kopas dan kepekan sedikit modif terlahir menggunakan
fulskrin menu
Sub RemoveToolbars() On Error Resume Next With Application
.DisplayFullScreen = True .CommandBars("Full Screen").Visible =
False .CommandBars("MyToolbar").Enabled = False
.CommandBars("MyToolbar").Visible = False .CommandBars("Worksheet
Menu Bar").Enabled = False End With On Error GoTo 0 With
ActiveWindow .DisplayHeadings = False .DisplayGridlines = False
.DisplayWorkbookTabs = False End WithEnd SubSub RestoreToolbars() On
Error Resume Next With Application .DisplayFullScreen =
False .CommandBars("MyToolbar").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = True End With On Error
GoTo 0 With ActiveWindow .DisplayHeadings = True
.DisplayGridlines = True
.DisplayWorkbookTabs = True End WithEnd Sub
silahken dicoba kalo tidak jalan.... dan tidak bermanfaat, shif del... sajah...
waqidi
--- On Fri, 9/4/09, Tommy Ariwibowo <[email protected]> wrote:
From: Tommy Ariwibowo <[email protected]>
Subject: ]] XL-mania [[ Hide Worksheet Menu Bar
To: [email protected]
Date: Friday, September 4, 2009, 8:58 AM
Dear suhu-suhu dari master yang dianggap
pakar oleh jago-jago excel,
Just a simple case.. Newbie pengen
menghilangkan penampakan "worksheet menu bar" dan semua toolbars lainnya
sehingga yang tinggal hanya worksheet saja. Dari hasil krepekan tower of
hanoi-nya mbak Siti, newbie coba tambahkan perintah untuk hilangkan
worksheet menu bar tapi malah jadi error...
Berikut cuplikan adegan menghilangkan toolbar yang
salah...
Sub Hide_ctvSet( )
With
Application
.DisplayFormulaBar =
False
.CommandBars( "Standard" ).Visible =
False
.CommandBars( "Formatting" ).Visible =
False
.CommandBars( "Visual Basic").Visible =
False
.CommandBars( "Control
Toolbox").Visible = False
.CommandBars( "Worksheet Menu Bar").Visible = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayWorkbookTab s = False
End With
End
Sub
Rgrds,
tomz
