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="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]
[belajar-excel] <[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
>
>
>
