Note: The other languages of the website are Google-translated. Back to English

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (27)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
ini tidak bekerja. Saya tidak dapat menyimpan kode yang hilang setelah saya membuka kembali file. Bagaimana cara menyimpan kode?
Komentar ini diminimalkan oleh moderator di situs
tee sayang,
Terima kasih atas pertanyaan Anda. Artikel diperbarui untuk mendukung penyimpanan kode ke dalam buku kerja sekarang.
Komentar ini diminimalkan oleh moderator di situs
sayang
artikel tidak diperbarui. itu tidak berhasil
Komentar ini diminimalkan oleh moderator di situs
Hai jen,
Artikel telah diperbarui lagi dengan pemecahan masalah. Silakan coba. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Pembaruan kode menambahkan lembar, tetapi tidak pernah benar-benar memeriksa apakah ada nilai TRUE/FALSE di lembar itu. Pembaruan tidak memperbaiki apa pun, itu hanya membuat lembar yang tidak berguna di dalam buku kerja.

Saya pikir Anda lupa melakukan pemeriksaan apakah ada nilai TRUE/FALSE pada lembar itu.
Komentar ini diminimalkan oleh moderator di situs
Seperti yang diposting TEE, bagaimana kami menyimpan file dengan makro? Itu tidak ada ketika saya membuka kembali. Saya juga sekarang mendapatkan bug di ThisWorkbookSaved = True bit.
Komentar ini diminimalkan oleh moderator di situs
Les yang terhormat,
Terima kasih atas pertanyaan Anda. Artikel diperbarui untuk mendukung penyimpanan kode ke dalam buku kerja sekarang.
Komentar ini diminimalkan oleh moderator di situs
Seperti yang diposting TEE dan LES, bagaimana cara kita menyimpan file dengan makro?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Terima kasih atas pertanyaan Anda. Artikel diperbarui untuk mendukung penyimpanan kode ke dalam buku kerja sekarang.
Komentar ini diminimalkan oleh moderator di situs
Hanya untuk membantu siapa pun yang membaca artikel ini mencari bantuan dengan menekan tombol simpan, saya pikir saya akan meletakkan jawabannya di sini karena "Kristal" sepertinya tidak menjawab pertanyaan ....


Jika Anda menempatkan buku kerja dalam "Mode Desain" dan kemudian menekan SIMPAN itu akan berfungsi.
Komentar ini diminimalkan oleh moderator di situs
Penjahat yang terhormat,
Saya merindukan inti masalahnya. Terima kasih banyak atas bantuan dan sharingnya.

Salam Hormat
Komentar ini diminimalkan oleh moderator di situs
Saya terus mendapatkan kesalahan debug
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Versi Excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Halo Saya penggemar situs web ini ... Saya dulu mencoba kodenya. Ia bekerja dengan sempurna. Tetapi itu juga menonaktifkan "Simpan opsi". Saya tidak dapat menyimpan lembar Excel. Yang saya butuhkan adalah menonaktifkan hanya fitur "Simpan Sebagai" Saya juga membaca komentar pengguna lain. ThisWorkbookSaved = True juga tidak berfungsi untuk saya. Bisakah Anda membantu? Terima kasih banyak atas semua kontribusi Anda.
Komentar ini diminimalkan oleh moderator di situs
Tolong, saya tidak ingin seseorang menyalin atau menyimpan file excel saya, bagaimana cara menghapus save atau save as?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan kode untuk TIDAK MENYIMPAN file. Tapi itu tidak berhasil. Ini menyimpan file.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk balasan Anda. Sangat dihargai. Saya ingin Anda membimbing saya cara mengirim file yang disimpan ke teman yang dapat membuka file saya tetapi hanya membaca atau mengeditnya, tetapi tidak dapat menyimpan file di folder mana pun.
1. Misalnya saya memiliki file yang disimpan, yang ingin saya kirim ke "A" Dia membuka file yang disimpan tetapi setelah membuka dia membaca atau membuat perubahan apa pun di file saya, dia tidak dapat menyimpannya di folder mana pun.
2. Saya telah mendapatkan kode dari internet yang tidak memungkinkan untuk disimpan. Namun dalam hal ini ketika saya menyalin dan menempelkan kode, file tersebut tidak disimpan. Jadi saya tidak bisa mengirim file ke dia
3. Bagaimana saya bisa mengirim file ke Pihak "A" dengan kode yang disimpan dengan harapan dia tidak bisa menyimpan file tersebut.
Komentar ini diminimalkan oleh moderator di situs
Brilian!   
Komentar ini diminimalkan oleh moderator di situs
Untuk semua yang mengalami kesalahan di mana setelah melakukan ini sekali, ketika mereka mencoba melakukannya lagi, kode tidak akan disimpan:

Pergi ke bagian bawah file excel di mana itu menunjukkan lembar
Klik kanan lembar
Tekan Perlihatkan
Hapus lembar yang disebut CancelBeforeSave
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih banyak, inilah yang saya butuhkan, untuk mencegah orang lain menyimpan atau menyimpan sebagai file di lokasi mana pun, dan ini berfungsi untuk saya, berkat komentar tentang "Mode Desain".

Namun, saya masih harus dapat mengedit file secara berkala dan menyimpan perubahannya. Haruskah saya menghapus kode VBA terlebih dahulu, membuat perubahan, Simpan, lalu tambahkan kembali kode VBA untuk mencegah orang lain menyimpan? Atau adakah cara yang lebih sederhana untuk mengedit dan menyimpan sambil membiarkan kode VBA tetap utuh?
Komentar ini diminimalkan oleh moderator di situs
Hai Rochelley,
Terima kasih atas tanggapan Anda. Kode VBA telah diperbarui sebagai berikut. Kamu butuh:
1. tekan lain + F11 kunci untuk membuka Visual Basic Editor.
2. Dalam Visual Basic editor, klik dua kali Buku Kerja Ini di kiri Project panel, lalu salin kode VBA berikut ke dalam ThisWorkbook (Kode) jendela.
3. Simpan kode dan simpan buku kerja sebagai Buku Kerja Excel Macro-Enabled.
Catatan:
1) Dalam kode, "Win10x64Test" singkatan dari nama pengguna di sistem operasi Anda. Silakan ubah ke nama pengguna Anda sendiri.
2) Setelah menambahkan kode, Anda dapat mengedit buku kerja dan menyimpannya seperti biasa. Tetapi jika orang lain mendapatkan buku kerja ini, opsi Simpan dan Simpan sebagai tidak akan tersedia.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20220930
    ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "Win10x64Test" 'The username in your operating system

If xName <> Environ("username") Then
Cancel = True
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya baru saja menemukan bahwa segera setelah saya menempatkan pintasan ke file ini di lokasi lain (di mana orang lain akan mengaksesnya) semua perlindungan saya tidak lagi berfungsi. Sheet tidak diproteksi (yang sudah saya set sebelumnya), workbook tidak diproteksi (yang juga sudah saya set sebelumnya) dan kemampuan Save-Save As kini sudah ada, seolah-olah kode VBA tidak ada sama sekali. Jika saya pergi ke file asli, semuanya masih berfungsi.

Ada apa dengan jalan pintas yang menghilangkan semua perlindungan?
Komentar ini diminimalkan oleh moderator di situs
Hai Rochelley,
Kode VBA tidak dapat mengetahui cara buku kerja dibuka. Jadi itu tidak bisa menghentikan orang lain untuk mengubah file dengan membukanya melalui pintasan.
Maaf saya tidak bisa membantu untuk masalah ini.
Untuk masalah pertama yang Anda sebutkan di atas, saya perlu waktu untuk melihat apakah saya dapat menanganinya.
Komentar ini diminimalkan oleh moderator di situs
Mungkin saja pengguna yang menerima file akan menonaktifkan makro dan kontrol tidak akan berfungsi. Tolong bantu mengerti.
Komentar ini diminimalkan oleh moderator di situs
Hai Deepak Kachare,
Jika Anda tidak ingin pengguna lain menonaktifkan makro setelah mereka menerima file, Anda dapat menyembunyikan kode makro yang tidak dapat dibuka dan dilihat oleh siapa pun.
Lihat apakah metode dalam artikel berikut dapat membantu Anda.
Cara Melindungi dan Menyembunyikan Makro Excel
Komentar ini diminimalkan oleh moderator di situs
Terimakasih atas tanggapan Anda. Saya pikir tautannya salah. Bisakah Anda membantu dengan tautannya.
Komentar ini diminimalkan oleh moderator di situs
Hai DEEPAK KACHARE,
Maaf atas kesalahannya. Untuk melindungi dan menyembunyikan makro Excel, Anda perlu mengonfigurasi sebagai berikut.
1. Klik lain + F11 kunci untuk membuka editor VBA.
2. Di editor, klik Tools > Properti VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba3.png
3. Dalam Properti VBAProject kotak dialog, pergi ke Proteksi tab, periksa Kunci proyek untuk dilihat kotak, masukkan kata sandi dan akhirnya klik OK.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba4.png
Mulai sekarang, siapa pun (termasuk Anda sendiri) yang ingin membuka editor VBA buku kerja ini, memerlukan kata sandi.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL