Bagaimana cara menonaktifkan atau tidak mengizinkan opsi Save & Save As di Excel?
Biasanya, saat kita mengklik fungsi Simpan atau Simpan Sebagai, data yang kita modifikasi di buku kerja akan disimpan sekaligus. Namun, terkadang, file Excel Anda tidak diizinkan untuk diubah dan disimpan oleh pengguna lain saat mereka membaca file tersebut. Artikel ini menyediakan metode VBA untuk menonaktifkan opsi Simpan & Simpan Sebagai di Excel.
Nonaktifkan opsi Simpan & Simpan Sebagai dengan kode VBA
Nonaktifkan opsi Simpan & Simpan Sebagai dengan kode VBA
Anda dapat menjalankan kode VBA di bawah ini untuk menonaktifkan opsi Simpan & Simpan Sebagai di Excel.
1. Di workbook Anda perlu menonaktifkan fungsi Save & Save As, silakan tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Buku Kerja Ini di bilah kiri, salin dan tempel VBA 1 di bawah ini ke jendela Kode, lalu klik Save tombol. Lihat tangkapan layar:
VBA 1: nonaktifkan opsi Simpan & Simpan Sebagai di Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Dalam pembukaan Save As jendela, pilih folder untuk menyimpan buku kerja, beri nama buku kerja yang Anda butuhkan dan pilih Buku Kerja Excel dengan Makro Aktif dari Save as type daftar drop-down, dan terakhir klik Save .
4. Sekarang salin dan tempel VBA 2 di bawah ini ke file Buku Kerja Ini jendela kode. Lihat tangkapan layar.
VBA 2: nonaktifkan opsi Simpan & Simpan Sebagai di Excel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. Klik Save untuk menyimpan kode, lalu tutup buku kerja.
Buku kerja telah disimpan sebagai Buku Kerja Excel Macro-Enabled dengan Save dan Save As fungsi dinonaktifkan.
Note: Tampaknya perubahan disimpan di lembar kerja saat ini setiap kali Anda mengubah dan menyimpan buku kerja. Tapi setelah menutup dan membuka kembali buku kerja, Anda akan menemukan perubahan gagal disimpan.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!