oh.. iya ya..
ternyata masih bisa diubah.. maklum kemarin bikinnya buru-buru xixixix ^_^
masih di project explorer, dobel klik yang ada tulisannya sheet1
lalu copas mantra berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("a2").Address Then
Application.EnableEvents = False
Target.Value = "Search"
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("a2").Address Then
Application.EnableEvents = False
Target.Value = "Search"
Application.EnableEvents = True
End If
End Sub
coba di tes.. mudah-mudahan mantranya bekerja dengan baik
Mohon do'a dari Be-Exceller untuk kesembuhan moderator milis ini (mr. Kid),
semoga
sakitnya segera diangkat dan
mr Kid dapat segera beraktifitas seperti sedia kala.
أَذْهِبِ الْبَأْسَ. رَبَّ النَّاسِ. وَاشْفِ أَنْتَ الشَّافِي. لاَ شِفَاءَ
إِلاَّ شِفَاؤُكَ. شِفَاءً لاَ يُغَادِرُ سَقَمًا
Salam,
-Miss Jan Raisin-
Pada 5 September 2013 09.22, Andy Ajhis Ramadhan <
[email protected]> menulis:
> **
>
>
> Wah... maaf andy kurang deatil ya ^_^, jadi gak dijawab...
> Trima Kasih Miss -_-' ( Mantra ) ada-ada aja nih si Miss... hehe ^_^
> Sebenernya andy dah coba kode ini tapi rumus di search bisa terhapus miss.
> mungkin gak ya miss jan agar search dapat mencari dan tidak bisa dihapus ?
>
> Salam,
> Andy
>
> ----- Pesan yang Diteruskan -----
> Dari: Jan Raisin <[email protected]>
> Kepada: [email protected]
> Dikirim: Rabu, 4 September 2013 11:53
> Judul: Re: [belajar-excel] Protect sheet & Cell tetapi Hyperlink bisa di
> ketik.
>
>
>
>
> thread ini sudah 2 hari tidak ada yang nyentuh,, mungkin karena
> pertanyaannya membingungkan.. ^_^
>
> setelah membaca pertanyaannya.. Jan lalu merenung.. dalam masa merenung
> itulah muncul wangsit yang memberikan pencerahan berupa sebuah titik
> terang..
> mungkin maksud dari bang Andy ini seperti ini:
>
> 1. di sheet1 cel A2 ada tulisan yang bunyinya SEARCH
> 2. tulisan itu gak boleh hilang atau diganti oleh user, makanya dilock
> 3. lalu cel A2 tadi harus di klik untuk bisa milih sesuatu yang harus di
> pilih di sheet yang bernama Ngetes
>
> [walah.. Jan ini kok ngomongnya berbelit2 gini sih]
>
> kalo itu masalahnya.. maka solusinya seperti ini:
>
> 1. buka dulu proteksi sheetnya
>
> 2. hilangkan lock dari cel A2
>
> 3. tekan tombol F11, atau klik kanan di nama sheet lalu pilih View Code,
> atau pergi ke ribbon Developer lalu klik Visual Basic.. intinya adalah
> gimana caranya bisa pindah dari lembar kerja ke VBE
>
> 4. di VBE, lihat frame VBA Project di sebelah kiri, cari sesuatu yang
> bernama This WorkBook, lalu diklik dua kali
>
> 5. akan terbuka lembar kerja editor yang baru.. cari sesuatu yang ada
> tulisan General dan ganti menjadi WorkBook
>
>
> secara default event dari WorkBook adalah Open dan secara tiba-tiba akan
> muncul 2 baris mantra di VB Editor tadi..
> hiii serem kan.. (dont try this at home)
>
> di tengah2 baris mantra yang tadi masukkan mantra seperti ini:
>
> Sheets("sheet1").Protect "Tester", userinterfaceonly:=True
>
> simpan workbook tersebut, tutup, lalu buka kembali.. lalu coba klik cel A2
> yang tadi
>
> hiii.. Jan masih merinding saat mencoba menerapkan cara di atas..
> masih bingung dari mana asal 2 baris mantra di atas
>
> Salam,
>
> -Miss Jan Raisin-
>
> Pada 2 September 2013 09.57, Andy Ajhis Ramadhan <
> [email protected]> menulis:
>
> >
> >Dear,
> >Be-Exceller
> >
> >
> >Bagaimana protect sheet & Cell tetapi Coding Hyerlink bisa di ketik.
> Dalam posisi Cell yang ter-coding tersebut dikunci cell. apa
> >ada perumusan menggunakan macro. Permasalahan terlampir. Terima Kasih
> banyak Be- Exceller.
> >
> >
> >Salam,
> >Andy
> >__._,
>
>
>
