Assalamu'alaikum warahmatullah wabarakatuh,
Mas Kid mau tanya:
Kalau seandainya saya klik kanan di sheet, terus Move or copy .. pilih
to_book :(newbook).
bisa apa tidak diatur lewat vba hasil copyannya hanya values.
Maksudnya mencegah orang lain untuk copy seluruh sheet, namun hanya copy
values-nya saja.
terima kasih
Wasalamualaikum warahmatullah.
Kenang Agus
On 6/26/2019 10:34, 'Mr. Kid' [email protected] [belajar-excel] wrote:
Hai Budi Priyo,
1. apakah ada protec nya menggunakan macro juga. dan apakah protec tsb
tidak berpengaruh dengan macro yg ada
*** yang ini terkait proteksi sheet dan proteksi cells
> pastikan sheet tidak dalam keadaan ter-protect
> blok seluruh cells (atau hanya cells tertentu yang akan
disembunyikan formulanya) -> klik kanan cells terpilih -> format cells
-> tab Protection -> centang Locked dan Hidden -> OK
> lalu protect sheet secara manual
> atau dengan baris kode berbunyi (jalankan di intermediate window
[tekan ctrl G -> tulis baris kodenya -> tekan enter])
sheets("nama sheetnya").protect "passwordnya"
> jika ingin agar VBA bisa bekerja pada sheet terproteksi tanpa perlu
membuka proteksi sheet, gunakan baris kode berikut ini :
sheets("nama sheetnya")..protect "passwordnya",
userinterfaceonly:=true
> save workbook
2. apa bila sheet tersebut di copy (copysheet) formula yg ada dalam
sheet tersebut tidak ikut alias values secara otomatis,
*** yang ini terkait copy values sheet
> buat sebuah general module -> buat sebuah blok prosedur jenis sub,
misal bernama CopasValueSheet
> jika sheet diproteksi secara manual atau dengan VBA tanpa opsi
userinterfaceonly:=true, maka perlu di-unprotect dulu dengan baris kode :
sheets("nama sheetnya").unprotect "passwordnya"
> proses akan terdiri dari 2 bagian utama, yaitu copy sheet menjadi
sheet baru, kemudian copy values nilai yang ada di hasil copy sheet tadi
'jika copy di workbook yang sama
sheets("nama sheetnya").copy before:=sheets(1) 'copy sheet
'copy paste values hasil copy sheet
sheets(1).usedrange.copy
sheets(1).usedrange.pastespecial xlpastevalues
'jika copy ke workbook baru :
dim wbka as workbook, wbkb as workbook
set wbka=thisworkbook
set wbkb=workbooks.add
with wbkb
wbka.sheets("nama sheetnya").copy before:= .sheets(1) 'copy
sheet
.sheets(1).usedrange.copy
.sheets(1).usedrange.pastespecial xlpastevalues
end with
wbka.activate
3. dijalankan dengan macro di sheet
*** ini tentang pemicu (event) yang digunakan agar VBA copy sheet diproses
> sebaiknya diletakkan di modul Thisworkbook dengan event yang sesuai,
misal event ketika cells a1 di double click (sila disesuaikan dengan
kebutuhan setempat)
> pada modul Thisworkbook -> di object Workbook -> buat event
bernama Workbook_SheetBeforeDoubleClick -> isi dengan baris kode
berikut (sesuaikan dengan keadaan setempat)
if sht.name <http://sht.name>="nama sheetnya" then
'jalankan prosedur copy sheet, misal prosedur CopasValueSheet
hasil nomor 2 di atas
CopasValueSheet
cancel=true
endif
> dengan begini, maka VBA code yang ada di sheet yang di-copy tidak
akan terbawa ke hasil copy sheet
Regards,
Kid
On Thu, Jun 20, 2019 at 11:28 AM Budi Priyo [email protected]
<mailto:[email protected]> [belajar-excel]
<[email protected] <mailto:[email protected]>>
wrote:
Salam kenal, saya baru bergabung di sini dan ingin menanyakan,
Saya punya dokument yg dijalankan dengan macro di sheet dan apa
bila sheet tersebut di copy (copysheet) formula yg ada dalam sheet
tersebut tidak ikut alias values secara otomatis, apakah ada
protec nya menggunakan macro juga. dan apakah protec tsb tidak
berpengaruh dengan macro yg ada, karena dokument tersebut terdapat
formula rahasianya.
Mohon rekan milis mungkin ada yg bisa bantu.
Sayaucapkan terima kasih
