Mungkin yg ini sesuai dengan yg di kehendaki :
Sub proteksi_work_book() ActiveWorkbook.Protect Password:="123",
structure:=True, Windows:=True Workbooks("Latihan_01.xlsx").Unprotect
Password:="123" End Sub
Salam
Lukman
2014-09-03 16:50 GMT+07:00 Lazuardi Biru [email protected]
[belajar-excel] <[email protected]>:
>
>
> pak agus
>
> bisanya cuma gini
>
> Private Sub Workbook_Open()
> MsgBox "nama file jangan dirubah :-)", vbExclamation, "Data Penjualan.xlsm"
> End Sub
>
> salam
> lb
>
>
> Pada Rabu, 3 September 2014 8:34, "Nang Agus [email protected]
> [belajar-excel]" <[email protected]> menulis:
>
>
>
> Dear Lazuardi,
>
> Asalamualaikum warahmatullah.
>
> Bisa dicoba:
> 1. Matikan Tombol Save As
> 2. Perintahkan Excel pada prosedur Workbook open, Untuk membandingkan nama
> file dengan nama yang sudah ditentukan. Jika namanya tidak sama beri
> peringatan bahwa nama file sudah diubah, Mohon untuk dikembalikan aslinya.
> kemudian perintahkan excel untuk menutup file.
>
> Wasalam
> NangAgus
>
>
>
>
> 2014-09-02 13:13 GMT+07:00 Lazuardi Biru [email protected]
> [belajar-excel] <[email protected]>:
>
>
> selamat siang
>
> dear temen2 be excel
> apa mungkin ya kita memprotek nama workbook file excel.
> misal kita punya workbok nama = laporan penjualan
> jadi orang lain gak bisa rubah nama itu atau kalo mau rubah muncul
> peringatan atau semacamnya.
>
> salam
> lb
>
>
>
>
>
>
