Tecnologia, programação e muito Visual FoxPro.

sexta-feira, 4 de setembro de 2009

Re: ]] XL-mania [[ Hide Worksheet Menu Bar

 


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 With
End Sub
Sub 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 With
End Sub

silahken dicoba kalo tidak jalan.... dan tidak bermanfaat, shif del... sajah...

waqidi






--- On Fri, 9/4/09, Tommy Ariwibowo <tomz.zlow@gmail.com> wrote:

From: Tommy Ariwibowo <tomz.zlow@gmail.com>
Subject: ]] XL-mania [[ Hide Worksheet Menu Bar
To: XL-mania@yahoogroups.com
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
 
 

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Papa ga pulang beibeh... Papa ga bawa uang beibeh...              |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___

Nenhum comentário:

Arquivo do blog