ubah dikit dari kiriman pak Anton
Letakkan pada sheet yang ingin diproteksi.
Private Sub worksheet_activate()
ActiveSheet.Protect "password"
ActiveSheet.EnableSelection = xlNoSelection
End Sub
Kid.
2010/4/22 <[email protected]>
>
>
> Masih tetep nech, munculnya ini:
>
> ôÁó¸øò¼ò§ ó Âò¼òm»AòË
>
> Dikx *he@
>
> ヂヂンコマルヂン
>
> _____
>
> From: [email protected] <belajar-excel%40yahoogroups.com>[mailto:
> [email protected] <belajar-excel%40yahoogroups.com>] On Behalf
> Of anton suryadi
> Sent: Thursday, April 22, 2010 1:20 PM
>
> To: [email protected] <belajar-excel%40yahoogroups.com>
> Subject: Re: [belajar-excel] Muncul lagi nech .....
>
> coba,
>
> Private Sub Workbook_Open()
> ActiveSheet.Protect "password"
> ActiveSheet.EnableSelection = xlNoSelection
> End Sub
>
> fyi:
> ketika kita menyimpan atau menutup file excel, beberapa properties dari
> worksheet yang kita setting tidak ikut tersimpan,antara lain:
> * EnableAutoFilter
> * EnableCalculation
> * EnableOutlining
> * DisplayPageBreaks
> * EnablePivotTable
> * EnableSelection
>
> >semoga bermanfaat
>
>
