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
ctv_Lock Row(macro).xls
Description: MS-Excel spreadsheet
