Mbak Rara, terimakasih untuk penjelasan sebelumnya :) Mohon pencerahannya, bagaimana apabila kasus detailnya seperti ini :
Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing kolom ingin diberlakukan peraturan seperti dibawah ini : 1. Untuk Kolom A1-A10 s.d B1-B10, isinya bisa di edit dan bisa dilihat. 2. Untuk Kolom C1-C10 s.d D1-D10, isinya tidak bisa di edit tapi bisa dilihat 3. Untuk Kolom E s.d F (dari atas sampai bawah), isinya tidak bisa di edit dan tidak bisa dilihat(hidden) 4. Dan khusus untuk angka-angka di kolom A1-A10 s.d B1-B10 (yang isinya bisa di edit dan dilihat) dan kolom setelah kolom F , kita tetap bisa melakukan format cell (menebalkan, menggarisbawahi, dll) Terimakasih sebelumnya. Dooowie --- In [email protected], Rara Wilis <ra2wilis@...> wrote: > > *Maaf, membuat syntax VBA Excel* harusnya sangat sulit, bahkan mungkin kita > tidak bisa, karena *sudah* dibuatkan oleh Microsoft, penciptanya. > Kita para user, hanya bisa menuliskan skrip / VBA-Code di module-module, > dlm bentuk kelompok-kelompok deklarasi dan prosedur *dengan mengikuti syntax > * (*aturan* penulisan)-nya > > Syntax > (1) The *arrangement* of words and phrases to create well-formed sentences > in a language. > (2) In computer science, the syntax of a programming language is the* set > of rules* that define the combinations of symbols that are considered to be > correctly structured programs in that language. The syntax of a language > defines its surface form. ... > > Kalau seperti itu yg dimaksud, mungkin kita perlu membuat 2 prosedur spt ini > > *1. ditulis di module 'ThisWorkbook' memanfaatkan event OPEN* > > Private Sub Workbook_Open() > With Sheet1 > .Columns("A:B").Locked = False > .Columns("A:B").FormulaHidden = False > .Columns("C:D").Locked = True > .Columns("C:D").FormulaHidden = False > .Columns("E:F").Locked = True > .Columns("E:F").FormulaHidden = True > .Columns("E:F").EntireColumn.Hidden = True > .Protect "BeExcel" > End With > End Sub > > 2. ditulis di module 'Sheet1' (sheet tempat data ditulis ), memanfaatkan > Event SelectionChange > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Column < 3 Then > Me.Unprotect "BeExcel" > Else > Me.Protect "BeExcel" > End If > End Sub > > ~Rara > > > > 2012/7/3 sakarosadwinanta1979 <sakarosadwinanta1979@...> > > Salam Kenal, > > Maaf ingin menanyakan, saya ada kasus seperti ini : > > > > Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing > kolom ingin diberlakukan peraturan seperti dibawah ini : > > > > Untuk Kolom A s.d B, isinya bisa di edit dan bisa dilihat. > > Untuk Kolom C s.d D, isinya tidak bisa di edit tapi bisa dilihat > > Untuk Kolom E s.d F, isinya tidak bisa di edit dan tidak bisa > dilihat(hanya bisa dilihat oleh si empunya, misal dengan memasukkan > password atau sejenisnya) > > > > Dan khusus untuk angka-angka di kolom A s.d B (yang isinya bisa di edit > dan dilihat), kita tetap bisa melakukan format cell (menebalkan, > menggarisbawahi, dll) > > > > Apakah ada caranya dengan menggunakan VBA - Excel? > > Mohon saran dari para ahli Excel. > > > > Terimakasih sebelumnya. > > Dooowie >
