maaf ada salah tulis dikittt...
seharusnya 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 XRng 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: siti Vi
To: [email protected]
Sent: Saturday, November 28, 2009 4:17 PM
Subject: Re: ]] XL-mania [[ Kunci Row Scr Otomatis
'------------
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)
'------------
