Re: ]] XL-mania [[ Kunci Row Scr Otomatis

 

Misalnya harus Pakai Makro, mungkin seperti ini ..

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ' sitiVi //28Nov2009
   Dim dRng As Range
   Dim XRng As Range
   Dim CurRec As Range
   Dim n As Integer
  
   Set dRng = Sheets("Sheet1").Range("B4:H8")
   Set XRng = Intersect(dRng, Target)

 

   If Not dRng Is Nothing Then
      For n = 1 To 5

         Set CurRec = dRng(n, 1).Resize(1, 7)
         If WorksheetFunction.CountA(CurRec) = 7 Then
            Sheets("Sheet1").Unprotect "XL-mania"
            CurRec.Locked = True
            Sheets("Sheet1").Protect "XL-mania"
         End If
      Next n
   End If
End Sub

 

 

----- Original Message -----
From: Iw4N
Sent: Wednesday, November 25, 2009 1:50 PM

Dear all, . . . . .
Mohon pencerahan dong . . . . file terlampir . . . . conditional format pada cell B4:H8 . . .

Apabila row 4 setelah diisi (B4:H4) kemudian akan mengisi row dibawahnya (dimuali cell B5)

maka row diatasnya akan otomatis terkunci/tidak bisa diedit demikian seterusnya . . . .
Edit bisa dilakukan kalo ada ijin . . . .
info laen . . . sy tdk bisa macro/vb . . excel yg dipake v 2003
Tks
=iwang

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

• New Members 71

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Momods lagi hanimuuunnn...                                        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living

---

Parenting Zone: Find useful resources for a happy, healthy family and home

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___