bu guru...

sory ya kalau sy rada oon..soalnya nanya2 treus sih........
maaf bu...
Private Sub Worksheet_active sy ganti dg Private Sub Worksheet_Change dengan 
maksud teh orang gak bisa ngerubah...tapi sy maunya pas orang lain ngerubah dia 
muncul peringatan yang kita mau.(sy dah berhasil)..trus pas click OK datanya 
itu maunya sayamah kembali ke yang blm dirubah....gimana ya bu guru 
codingnya....

maaf telah meropotkan...

tq


  ----- Original Message ----- 
  From: siti Vi 
  To: XL-mania@yahoogroups.com 
  Sent: Monday, November 27, 2006 11:16 PM
  Subject: Re: ]] XL-mania [[ Protect sheet


  sebetulnya, sheet yg diprotected, otomatis akan memunculkan message kalau
  diselect Range / cell nya, tetapi bahasanya sudah dari standa Om Bill.
  Kalo ingin: muncul message buatan sendiri, setiap Tab-Sheet di Klik, kira 
kira spt ini: 

  di "Sheet1' dan Sheet2' Code

  Private Sub Worksheet_Activate()
    MsgBox "mohon jangan menyentuh sheet ini..", vbCritical, "ristiandy"
  End Sub

  memprotect sheet melalui VBA 
  di Module
  di dalam suatu prosedur..

  With Sheets("Ndak1")
   .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   .EnableSelection = xlUnlockedCells
  End With

  With Sheets("Ndak2")
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    .EnableSelection = xlUnlockedCells
  End With

  catatan: parameters untuk method PROTECT, terserah pemilihannya, tidak harus 
seperti itu.
  oiya yg lampiran yg sampai, cuma file image, bukan wkbook (xls)





  On 11/27/06, Ristiandy <[EMAIL PROTECTED]> wrote:
     
    Guys..
    Sya punya data yang terdiri dari 3 sheet. (terlampir)
    Gimana sih codding nya, u/ protect sheet di data-1 / data-2 ?! 
    Atau bisa juga timbul message-nya..?
    Maaf jika sudah pernah di bahas.
    Thx yaa.. xl mania top banget dech...






   

Kirim email ke