Terima kasih Om HK dan Mr. Kid atas ilmunya..
--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> Wa'alaikumussalam Wr. Wb.
>
> 1. jika dengan file protection (diset melalui save as -> options ->
> general) akan selalu ditanya untuk dibuka atau tidak. Bagaimana jika
> mencoba dengan VBA. Syaratnya adalah VBA boleh bekerja (security macro
> dalam keadaan Enable). Bila perlu, atur agar tampilannya tidak langsung
> pada sheet yang penting. Jadi minimal ada 2 sheet. Sheet1 adalah yang
> penting (hanya boleh read only kalau macro dapat ijin) dan sheet2 adalah
> lembar kosong.
>
> Coba langkah ini :
> 1. ke VBE (ALT F11)
> 2. lihat Project Explorer -> cari sheet2 -> double click sheet2 -> lihat
> properties windows (tekan F4 jika belum tampak) -> set properti Visible
> dengan xlSheetVisible
> 3. lihat Project Explorer -> cari sheet1 -> double click sheet1 -> lihat
> properties windows (tekan F4 jika belum tampak) -> set properti Visible
> dengan xlSheetVeryHidden
> 4. lihat Project Explorer -> cari thisworkbook -> double click thisworkbook
> -> lihat lembar script di kanannya
> 5. lihat combobox object di sisi kiri atas lembar script -> pilih Workbook
> 6. lihat combobox event di sisi kanan atas lembar script -> pilih Event
> 7. tulis script berikut di dalamnya
>
> dim wbk as workbook, sht as worksheet
>
> 'init lingkungan kerja
> application.screenupdating=false
> application.displayalerts=false
> application.calculatebeforesave=false
> set wbk=thisworkbook
> set sht=sheet1
>
> 'atur tampilan readonly
> sht.visible=xlsheetvisible
> sht.activate
> wbk.save
>
> 'proses untuk membuka readonly
> if not wbk.readonly then
> workbooks.open wbk.fullname,2,true
> sht.visible=xlsheetveryhidden
> wbk.close true
> endif
>
> 'kembalikan lingkungan kerja
> application.calculatebeforesave=true
> applicaiton.screenupdating=true
> application.displayalerts=true
>
> 8. save workbook
> 9. tutup workbook
> 10. coba buka lagi
>
>
> ---------------------------------
>
>
> 2. Pastikan ada printer yang siap dipakai. Filenya di-save jadi pdf saja
> ya, yang lebih mudah. Karena akan di-save ke pdf, pastikan ada PDFCreator
> printer yang ter-install. Sepertinya berlaku untuk xl2007 ke atas.
> Asumsi :
> 1. nama file di sheet1 range C2
> 2. ekstensi adalah pdf
> 3. area yang diprint di f3:k22
>
> pada blok prosedur event klik milik si tombol diberi script berikut :
>
> dim sFile as string
>
> sfile=thisworkbook.path & "\" & sheet1.range("c2").value & ".pdf"
> 'susun nama file
> sheet1.pagesetup.printarea="f3:k22"
> 'atur printarea, bila perlu atur page setup properti lainnya juga
> sheet1.exportasfixedformat xltypepdf,sfile 'simpan sebagai
> file pdf dengan nama yang disimpan oleh sfile
> range("f3:k22").printpreview 'printpreview,
> jika ingin langsung cetak ke printer, ganti printpreview dengan printout
>
> ---------------------------------
>
> Selamat mencoba.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
>
>
>
>
> 2013/5/13 Rahmat Hermawan <ione_1984@...>
>
> > **
> >
> >
> > Assalamualaikum,
> >
> > Para Master, tanya lagi dunkz..
> >
> > 1. Gimana caranya supaya file excel saya (misal file tes.xlsm) bila dibuka
> > akan selalu read only? jadi bisa di utak-atik tapi perubahannya ga bisa di
> > save.
> >
> > 2. Bisa ga ya buat script vba untuk print dan menyimpannya hasil print ke
> > file lain, ke .doc misalnya? file terlampir..
> >
> > Sebelumnya Terima kasih banyak...
> >
> > Wassalam..
> >
> >
> >
>
