Dear Parlin, Jika yang ingin diprotect hanya cell yang ada protecnya dan user boleh mengedit cell yang tidak diprotect (Format Cell, Protection, Lock: centangnya dihilangkan) dapat menggunakan cekrip:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="Secret"
Else
Me.Unprotect Password:="Secret"
End If
End Sub
Pada contoh file yang diprotect dengan cara ini adalah sheet2, yang tidak
diprotect hanya A2:A10
jika hanya formula yang akan diprotect dapat menggunakan cekrip:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next rng
End Sub
Pada file contoh sheet1 menggunakan cekrip ini
Wasalam
2014-11-21 11:10 GMT+07:00 Nang Agus <[email protected]>:
> Protect dan unprotect sheet khan dapat diserahkan ke VBA? jadi kalau
> diperintah untuk isi record dibuka protecknya dulu, diisi record terus
> diprotect lagi, semua perintah itu kahan dapat diwakili satu tombol.
> atau dapat pula digunakan cara dengan menambahkan cekrip dengan perintah
> untuk tidak dapat menghapus cell berformula tapi dapat mengisi cell kosong.
>
>
> 2014-11-21 8:23 GMT+07:00 parlin regar [email protected]
> [belajar-excel] <[email protected]>:
>
>
>>
>> Dear Pak Agus
>>
>> Terimakasih atas responnya, ribet dong kalau harus bongkar pasang
>> proteksi. Gk da cara lain ya.
>>
>> Pada tanggal 20/11/14, Nang Agus [email protected] [belajar-excel]
>> <[email protected]> menulis:
>> > Dear Parlin,
>> > Saat akan membuat record baru silahkan protectnya dibuka dahulu, jika
>> > recordnya selesai sheet di protect lagi.
>> >
>> > 2014-11-20 21:27 GMT+07:00 parlin regar [email protected]
>> > [belajar-excel] <[email protected]>:
>> >
>> >>
>> >>
>> >> Dear be-excel
>> >> Mohon bantuannya, saya memiliki sebuah tabel yg berisi banyak formula.
>> >> Pertanyaanya bagaimana caranya untuk memproteksi formula yg ada di
>> >> tabel tersebut, saya sudah mencoba dgn format cells terpilih, proteksi
>> >> berhasil namun saat ada record baru tabel tdk berjalan.
>> >>
>> >> Salam
>> >> Parlin
>> >>
>> >>
>> >
>>
>> --
>> regards
>> Parlin
>>
>>
>
>
Protect formula.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
