tricky dikit:
login User pada masing2 PC tentunya berbeda-beda, kita mengakalinya
dengan ketika workbuk tsb dibuka oleh Anda sbg empunya, maka setting
tidak sebagai read only. sebaliknya jika user lain maka setting
sebagai read only
Private Sub Workbook_Open()
Dim
Range("A1").value=Environ("username") 'silahkan Ganti rangenya di
tempat yang jauh dari jangkauan user lain
If Range("A1").value <> "Usernme Mu" Then 'Ganti username Mu dengan
User login Anda
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Else
ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite
End if
End Sub
Maaf ini belum di test, karena Saat ini pakai PC stand alone, mungkin
baru besok di coba dikantor.. mohon maaf juga blm bisa donlot
attachment.. hanya mengira-ngira saja
Wassalam
Pada tanggal 02/09/09, Agung Supriyanto <[email protected]> menulis:
> Rekan-rekan sekalian, saya mempunyai file excel yang ingin saya sharing
> dengan teman kerja lain melalui jaringan, tetapi teman2 yang lain tidak bisa
> mengedit, hanya bisa melihat saja (read only)
>
> Caranya bagaimana ya
>
> Saya sudah coba dengan system proteksi read only tetapi kalau kita mau save
> harus ganti nama file dulu, maksud saya supaya tidak ganti nama file dakah
> car lainnya
>
>
>
> Terimakasih atas bantuannya
>
>
>
> Agung
>
>
>
>
