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.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
