Ikutan ya..

pertanyaan nomor 1:
*bgmn cara mengsetting agar tulisan Print, Cancel, Save tidak ikut ke print*

untuk yang printnya, script awal sbb:
ActiveWindow.SelectedSheets.PrintPreview

diganti menjadi:
Dim sht As String  ' deklarasi variabel untuk menyimpan nama sheet

sht = ActiveSheet.Name    ' ambil nama sheet dan simpan ke variabel
Sheets(sht).Range("a1:k28").PrintPreview    ' print preview kolom A sampai
 K baris 1 sampai 28

pertanyaan nomor 2:
*bgmn cara menglock row dan kolom yg saya unhide agar datanya tidak dapat
di rubah2*

salah satu dari banyak cara adalah sbb:
(1) klik kanan *HANYA* pada cel yang boleh diubah oleh user
(2) pilih Format Cell
(3) klik tab Protection
(4) hilangkan tanda cek list pada kotak Locked

setelah itu lakukan proteksi terhadap sheet dengan cara:
(1) klik kanan pada nama sheet
(2) pilih Protect sheet
(3) hilangkan tanda ceklist pada Selected locked cells
(4) masukkan password untuk melakukan unprotect, setelah ini akan diminta
konfirmasi ulang

hati-hati, jika anda lupa passwordnya maka anda pun akan kehilangan akses
untuk mengubah isi worksheet
sebagai antisipasi, copy dahulu workbooknya dan simpan dengan nama lain.

semoga penjelasannya sesuai dengan yang diharapkan

Salam,


-Miss Jan Raisin-


Pada 6 Desember 2013 11.36, Fachry Rizal <[email protected]> menulis:

>
>
> Alhamdulillah smuanya sudah terselesaikan oleh mr Ahmad Lubis. tp msh ada
> sedikit lg yg mengganjal saya yaitu ketika akan memprint garis pada kolom
> K9:K16 tidak muncul dan bgmn cara mengsetting agar tulisan Print, Cancel,
> Save tidak ikut ke print. Dan juga bgmn cara menglock row dan kolom yg saya
> unhide agar datanya tidak dapat di rubah2 (data terlampir).
> Terima kasih untuk bantuannyaa....
>
>
> 2013/12/5 Ahmad Syaifullah Lubis <[email protected]>
>
>
>
> Mr Fachry,
> iya saya memang lihat productnya Mr Kid, malah jawaban tsb juga karena
> saya lihat macronya Mr Kid. Thanks Mr Kid.
> tapi saya mau jawab lagi nih agar jumlah baris K11:K16 yang belum terisi
> tidak muncul tanda minus (-), buatkan aja rumus ini
> =IF(OR(I10="";J10="");"";I10*J10
> terus copy deh tuh rumus dari baris K11 sampai baris K16.
> sekedar itu aja.
> ASL
>
> ------------------------------
> From: [email protected]
> To: [email protected]
> Date: Thu, 5 Dec 2013 15:11:21 +0700
>
> Subject: Re: [belajar-excel] Cara merekap data di beda sheet
>
>
>
> Mr Ahmad lubis, terima kasih atas bantuannya. Sialahkan mengcopy semoga
> bisa bermanfaat. Itu product by Mr Kid pak ahmad. Maaf ada yg tertinggal
> pertanyaannya, bgmn jika Jumlah (K11:K16) yg belum terisi tidak muncul
> tanda minus (-). mohon penyempurnaan dr yang lainnya agar bs lebih maksimal
> lagi.
>
>
>
>  
>

Kirim email ke