0
membuka
Suara
Yah saya menghargai kontribusi Anda dan apa yang Anda berikan kepada orang-orang, tapi saya terjebak dalam sesuatu tentang Excel.
Masalah saya berjalan seperti ini:
Setelah saya menyelesaikan pekerjaan saya, saya menyimpannya ke komputer saya. Dan disinilah perjuangan saya dimulai! Saya ingin file doc excel ini hanya dapat diakses dari komputer INI. tidak disalin atau dipindahkan oleh USB apa pun atau cara lain apa pun.
Apakah ada jalan keluar untuk melakukan hal seperti itu?
Saya berpikir untuk menempatkan makro sebagai gantinya. Maksud saya membuat kode VBA, seperti: jika nama pengguna adalah Nama Saya (misalnya) maka Buka file, jika lain Tutup.
Jadi jika orang lain menyalin file dan membukanya dari komputer lain, saat kode VBA membaca nama pengguna itu tidak akan membuka file (karena nama pengguna lain).
Bisakah Anda membantu saya dengan kode VBA?
Atau jika ada cara lain untuk tidak mencurinya, bisakah Anda menunjukkan cara apa yang bisa saya lakukan?
Thanks in advance!
Hormat kami, Sem
Salam!
Masalah saya berjalan seperti ini:
Setelah saya menyelesaikan pekerjaan saya, saya menyimpannya ke komputer saya. Dan disinilah perjuangan saya dimulai! Saya ingin file doc excel ini hanya dapat diakses dari komputer INI. tidak disalin atau dipindahkan oleh USB apa pun atau cara lain apa pun.
Apakah ada jalan keluar untuk melakukan hal seperti itu?
Saya berpikir untuk menempatkan makro sebagai gantinya. Maksud saya membuat kode VBA, seperti: jika nama pengguna adalah Nama Saya (misalnya) maka Buka file, jika lain Tutup.
Jadi jika orang lain menyalin file dan membukanya dari komputer lain, saat kode VBA membaca nama pengguna itu tidak akan membuka file (karena nama pengguna lain).
Bisakah Anda membantu saya dengan kode VBA?
Atau jika ada cara lain untuk tidak mencurinya, bisakah Anda menunjukkan cara apa yang bisa saya lakukan?
Thanks in advance!
Hormat kami, Sem
Salam!
Kode ini memungkinkan buku kerja hanya disimpan sebagai dirinya sendiri.
Kode ini akan memungkinkan untuk tidak disimpan oleh siapa pun kecuali mereka yang tahu caranya (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True
MsgBox "Sorry, you can only save this workbook with its original name."
End If
End SubKode ini akan memungkinkan untuk tidak disimpan oleh siapa pun kecuali mereka yang tahu caranya (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox ("All File Save and File Save As commands in this sheet ONLY have been turned OFF. Pretty cool, huh??")
End Sub- halaman:
- 1
Tidak ada balasan yang dibuat untuk posting ini.