Mas BO mau nanya lagi nih...
kalo non active-kan yg atas misal : File (seluruh yg dibawahnya jadi non-active)
itu sudah bisa tapi yg step selanjutnya yg non active-kan salah satu
yg di bawahnya saja belum bisa karena setelah
"CBarTool.Controls("Menu1").------"tidak ada Controls lagi, maksudnya
setelah titik terakhir tidak ada "Controls" lagi. adakah yg kurang
lagi?

Tool Reference di VBA yg sudah saya centang sbb:
- Visual Basic for Applications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft ActiveX Data Object 2.1 Library
- Microsoft Office 11.0 Object Library

ini procedure yg udah berhasil:
Private Sub Form_Activate()
   Dim CBarTool As CommandBar
   Set CBarTool = CommandBars("Menu Bar Utama")
   CBarTool.Controls("Data").Enabled = False
   CBarTool.Controls("Ganti Password").Enabled = True

End Sub

Regards
Cecep Wahyudin


----- Original Message -----
From: Cecep W <[email protected]>
To: [email protected]
Date: Mon, 1 Mar 2010 15:09:36 +0700
Subject: Re: Me-non active-kan beberapa menu bar

> Akhirnya SUKSES juga......
> betul sekali mas BO saya tidak mencentangnya, yg saya centang hanya
> "Microsoft Access 11.0 Object Library"
> terimakasih banyak mas BO atas kesediaan anda yg ga bosen2 membimbing
> saya dan juga saya minta maaf atas keteledoran saya yg tidak begitu
> teliti sehingga banyak waktu anda yg terbuang untuk meneyelasikan
> masalah saya ini.
>
> Regards
> Cecep Wahyudin
>
> ----- Original Message -----
> From: "Belajar Office" <[email protected]>
> To: [email protected]
> Date: 1 Maret 2010 13:47
> Subject: Me-non active-kan beberapa menu bar
>
> > Bpk pakai Acc 2003, berarti Microsoft Office 11.0 Object Library, coba Bpk
> > klik tools -> references, pastikan yg Bpk centang adalah:
> >
> > - Visual Basic for Applications
> > - Microsoft Access 11.0 Object Library
> > - OLE Automation
> > - Microsoft Office 11.0 Object Library
> >
> > Thank's
> > ----- Original Message -----
> > From: "Cecep W" <[email protected]>
> > To: <[email protected]>
> > - Perlihatkan kutipan teks -
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
>

Kirim email ke