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
>
>

Attachment: ctv_Cell bila dienter dipassword.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke