Pak Makatal (IT-HQ) dan rekan lain,

untuk membatasi aktivitas user dalam menggunakan keyboard di excel kita bisa 
pinjam / numpang di event worksheet_selectionchange, atau worksheet_activate 
terserah pilih yg disukai.

misalnya kita mau menghilangkan kemampuan user men-copy lewat Control+C pada 
sheet tertentu, coba kita tumpangkan di worksheet_selectionchange.
konkretnya seperti ini:
- setelah masuk di environtment Visual Basic Editor, panel Project dibawah 
Microsoft Office Objects pilih salah satu sheet, misalnya Sheet1.
- kemudian dari dropdown list pilih Worksheet, kemudian dropdown list 
disebelahnya pilih SelectionChange
- masukkan kode spt ini:

Private Sub worksheet_SelectionChange(ByVal Target As Range)
Me.Application.OnKey "^c", ""  
End Sub

- selesai

kode diatas maksudnya adalah membelokkan kemampuan keyboard Control+C (^c) 
menjadi tidak bisa apa-apa (diwakili oleh "" / zero length string).

untuk memblok kemampuan shortcut lain via keyboard bisa dicari kombinasinya 
dari tips itu.

semoga membantu.

cheers
robo

  ----- Original Message ----- 
  From: Makatal [IT - HQ] 
  To: ITCENTER@yahoogroups.com 
  Sent: Wednesday, July 12, 2006 11:44 AM
  Subject: RE: Spam:[ITCENTER] Re: Cara agar file excel tidak bisa diprint


  Apakah bisa juga untuk tidak bisa di copy atau malah tidak bisa di print
  screen dari editor ini? Saya menemukan "save as" tapi tidak menemukan
  "copy" atau "print screen" pada editor ini...

  -----Original Message-----
  From: ITCENTER@yahoogroups.com [mailto:[EMAIL PROTECTED] On
  Behalf Of robiton
  Sent: Wednesday, July 12, 2006 10:44 AM
  To: ITCENTER@yahoogroups.com
  Subject: Spam:[ITCENTER] Re: Cara agar file excel tidak bisa diprint

  pak arifin, coba pake cara ini. 
  metode ini bisa dipergunakan tidak hanya mencegah user excel mem-
  print, tetapi termasuk juga mencegah user untuk Save As dan 
  sebagainya.


   

[Non-text portions of this message have been removed]






-- 
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia 
Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] 
:: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: 
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
$$ Iklan/promosi : www.itcenter.or.id/sponsorship $$

[@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/ITCENTER/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Kirim email ke