Ya... Hehehe... Yg diminta klo bukan semen maka nutup. Klo begitu, jgn lupa menyesuaikan ="semen" menjadi <>"semen" On Mar 29, 2014 9:55 AM, "prazt" <[email protected]> wrote:
> > > Beginikah Mr.Kid? > > Private Sub Worksheet_Change(ByVal Target As Range) > > If Target.Count = 1 Then > > If Target.Address = "$F$7" Then > > If LCase(Target.Value) = "semen" Then > > ThisWorkbook.Close False > > End If > > End If > > End If > > End Sub > > > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *Mr. Kid > *Sent:* 29 Maret 2014 6:47 > *To:* BeExcel > *Subject:* Re: [belajar-excel] workbook otomatis keluar > > > > > > Hai Prazt, > > coba langkah berikut : > > 1. buat prosedur event change pada sheet tersebut > > 2. isi dengan script : > > if target.count=1 then > > if target.address="$F$7" then > > if lcase(target.value)="semen" then > > thisworkbook.close false > > endif > > endif > > endif > > > > Wassalam, > Kid. > > > > > > 2014-03-28 11:30 GMT+07:00 prazt <[email protected]>: > > > > Dear master, tentang script VBA nih masih belem medeng juga, bagaimana > script VBA jika di Sheet1 pada cell F7 (pada file terlampir) terisi SEMEN > maka workbook bisa dibuka, tetapi jika di Sheet1 pada cell F7 diganti > dengan yang lain maka otomatis workbook akan tertutup dan tidak bisa dibuka? > > > ------------------------------ > > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > > > > > > > ------------------------------ > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > >
