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 ________________________________ From: "diko6...@yahoo.co.id" <diko6...@yahoo.co.id> To: belajar-excel@yahoogroups.com Sent: Thu, April 22, 2010 7:50:57 AM Subject: RE: [belajar-excel] Muncul lagi nech ..... Gak berhasil nech, malah ellol. Bentuk rangkaian code-nya jadi g’mana yach!?? Dikx *he@ ヂヂンコマルヂン _____ From: belajar-excel@ yahoogroups. com [mailto:belajar-excel@ yahoogroups. com] On Behalf Of anton suryadi Sent: Wednesday, April 21, 2010 12:59 PM To: belajar-excel@ yahoogroups. com Subject: Re: [belajar-excel] Muncul lagi nech ..... coba ditambahin, EnableSelection = xlNoSelection >semoga bermanfaat