Codingnya sukses! Terimakasih untuk coding2nya ya :)
--- In belajar-excel@yahoogroups.com, 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
