Private Sub Worksheet_Change(ByVal Target As Range)
*' siti Vi / 9 Jun 2011*
Const pass As String = "YaGituDeh"
Me.Unprotect pass
If Target.Count = 1 Then
If Target.Row > 4 Then
If Target.Column = 5 Or _
Target.Column = 9 Or _
Target.Column = 13 Then
If Target.Value > 0 Then
Target.Locked = True
End If
End If
End If
End If
Me.Protect pass
End Sub(ditulis di : module sheet 1 / sheet dimana data yg di-makro-in berada ) 2011/6/8 Muh Nuh Haikal <[email protected]> > Bravo para be-exceler dan para suhu be-excel yg makin TOP BGT > Saya lg punya case sy pengen cell mgg ini setelah diisi bobotnya dan > dienter maka bila kita mau edit lagi gak bisa krn langsung dipassoword, > mohon pencerahannya dari para suhu be-excel.File case terlampir > > nunu > >
ctv_Cell bila dienter dipassword.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

