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

[Slamet Harto]

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
>
>