Re: ]] XL-mania [[ Hide tulisan di formula bar

[Slamet Harto]

Nambahin untuk yang no 1,


Application.DisplayFormulaBar = False   (rubah ke true pada  even workbook
close)


2009/1/11 Slamet Harto <slametha...@wiendi.web.id>

> Untuk no. 1  kemenu Tools, Option tab ke View  lalu uncheck Formula Bar
>
> Yang No 2, taruh ini di workbook modul
>
> Private Sub Workbook_Open()
>
>     On Error Resume Next
>    with Application
>            .CommandBars("Edit").Controls("&copy").Enabled = False
>            .CommandBars("cell").Controls("&copy").Enabled = False
>            .OnKey "^c", "disable"
>            .OnKey "^x", "disable"
>            .OnKey "^v", "disable"
>            .CellDragAndDrop = False
>    End with
> End Sub
>
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>     On Error Resume Next
>     with application
>         .CommandBars("Edit").Controls("&copy").Enabled = True
>         .CommandBars("cell").Controls("&copy").Enabled = True
>         .CommandBars("Cut").Controls("&copy").Enabled = True
>          .OnKey "^c", ""
>          .OnKey "^x", ""
>          .OnKey "^v", ""
>          .CellDragAndDrop = True
> End with
> End Sub
>
>
> Sub disable()
>     MsgBox "You have attempted the command which is restricted users only."
> End Sub
>
>
>
> 2009/1/11 Bromo Semeru <brom...@yahoo.com>
>
>>   Salam Kenal,
>>
>> Mohon bantuannya.....
>> 1.Bagaimana supaya tulisan yang ada di formula bar tidak keliatan
>> 2. Bagaimana supaya cell ato worksheet tidak dapat di copy
>>
>> thx
>> bromo
>>
>>
>