Assalamu'alaikum Wr. Wb. Asumsi : file yang ada tidak menggunakan customUI untuk menon-aktifkan fitur copas (alias hanya menggunakan VBA saja)
Coba langkah berikut : 1. pada sebuah general module, buat prosedur bernama TidakBoleh dan isi dengan seluruh script yang meng-turn off kemampuan copas 2. pada sebuah general module, buat prosedur bernama Boleh dan isi dengan seluruh script yang meng-turn on kemampuan copas 3. pada event open dan activate milik workbook (jika tidak boleh dalam workbook kerja saja) isi dengan script untuk memanggil prosedur bernama TidakBoleh 4. pada event before close dan deactivate milik workbook (jika tidak boleh dalam workbook kerja saja) isi dengan script untuk memanggil prosedur bernama Boleh Silakan dicoba... Jadi, tidak boleh copas harus dibatasi dengan ketat (alias di-turn off kemampuan copas-nya) pada suatu area kerja tertentu. Diluar area itu, maka diperbolehkan (alias dikembalikan ke bawaan Excel) Wassalamu'alaikum Wr. Wb. Kid. 2014-05-26 12:20 GMT+07:00 'prazt' [email protected] [belajar-excel] < [email protected]>: > > > Wa’alaikumsalam mas Agus, dari yg anda sampaikan saya jdai paham sekarang > dan saya ucapkan banyak terima kasih... > > Terus mau tau lebih lanjut nih saya mas Agus tentang script yang anda > berikan seperti berikut ; > > Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy > ..CellDragAndDrop = False (workbook_active) > > Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial > xlPasteValues > > Pada script yang saya tandai merah, berarti setiap workbook di ganti nama > maka harus mengganti nama workbook yng sesuai pada script tersebut, begitu > juga sheet dan range_nya (begitu yang saya tangkap dari script anda)?, nah > gmn biar semuanya itu tidak mengganti jika nama workbook diganti, sheet > juga bisa seluruh sheet yang ada di workbook begitu juga Range_nya terserah > yang mau dicopy dan di paste.? Semoga berkenan kasih arahan.. > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 26 Mei 2014 8:17 > *To:* [email protected] > *Subject:* Re: [belajar-excel] paste value pakai vba > > > > > > Kagem Mas Prazt; > > Asalamualaikum warahmatullah. > > Coba lihat kembali prosedur yang sudah anda buat. > ada prosedur yang mematikan copy paste > pada prosedur Workbook_Activate () terdapat perintah untuk mematikan > copyPaste > .CellDragAndDrop = False > Jadi setiap berpindah workbook, selalu copy paste dimatikan. > scripsaya yang berbunyi: > Workbooks("a.xlsm").Worksheets("sheet1")..Range("a1").Copy > > > Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial > xlPasteValues > > akan dibaca komputer menjadi: > > Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy > .CellDragAndDrop = False (workbook_active) > Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial > xlPasteValues > > Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar sheet > masih aktif dibuat macropun tidak akan bisa. > > semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya. > > Terima kasih > wasalamualaikum warahmatullah. > > NangAgus > > On 5/24/2014 15:51, 'prazt' [email protected] [belajar-excel] wrote: > > > > Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya soalnya > saya punya kasus begini, jika saya diable drag and drop (menggunakan VBA) > difile A maupun B trus saya copy isi cell B3 (misalnya) lalu saya paste > (menggunakan tombol paste) ke file B pada Sheet1 cell C3(misalnya) maka > tombol paste tersebut tidak aktif seperti file terlampir , nah pikir saya > gmn kalau diakali pastenya pakai VBA bisa tidak...mohon pencerahannya... > > > > *From:* [email protected] [ > mailto:[email protected] <[email protected]>] > *Sent:* 24 Mei 2014 12:33 > *To:* [email protected] > *Subject:* RE: [belajar-excel] > > > > > > Coba buka file B. > > Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value > > > > Salam, > > HK > > > > Sent from Samsung Mobile > > > "'prazt' [email protected] [belajar-excel]" < > [email protected]> wrote: > > > Dear All master, minta bimbingannya ya > bagaimana VBAnya untuk paste values dari workbook lain, misal dari File A > pada sheet1 saya copy isi cell A1 dan saya paste value (menggunakan macro) > ke File B pada sheet1 cell A1 atau B5..dengan kata lain area/lokasi paste > valuenya adalah area yang di blok/diselect tidak tentu.. > > > ------------------------------ > > <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. > > > > > > > > ------------------------------ > <http://www.avast.com/> > > Email ini bebas virus dan malware karena avast! > Antivirus<http://www.avast.com/>proteksi aktif. > > >
