Mencegah workbook disimpan dengan nama lain


Agar tidak banyak workbook sama tetapi dengan nama yang berbeda - beda, kita perlu mencegah agar workbook bisa disimpan dengan nama lain. Atau dengan kata lain, Fitur Save As dimatikan, walaupun Menu save As masih bisa diklik, tetapi menu ini tidak akan bisa digunakan lagi. Setiap kali digunakan, akan selalu memberi informasi bahwa workbook tidak boleh disimpan dengan nama lain.

Berikut kode VBA nya:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean,[RETURN] Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Maaf, anda dilarang untuk menyimpan" & _
"workbook dengan nama lain. Masih ingin menyimpan" & _
"workbook dengan nama sama?", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If

End Sub

Masukkan kode VBA di atas ke Visual Basic Editor, cara memasukkan kodenya sama dengan prosedur di sini
jangan lupa untuk mengaktifkan fitur Enable VBA

Terima kasih, satu dari Klik Anda adalah sebuah support untuk web ini


Judul: Mencegah workbook disimpan dengan nama lain
Rating:100%based on 99998 ratings. 5 user reviews.
Writed Dee Iswana
Like this to :
Share This To :

0 komentar:

Poskan Komentar

Lets Join With Mibats!

$ 4,00 per 1000 kunjungan untuk link Anda.| Dapatkan URL singkat, bagus ketika ruang teks terbatas.| Dengan rincian Statistik pendapatan link kunjungan .| Mudah dalam mencapai minimum payout $ 5,00.| Cocok untuk media sosial, website dan blog Anda!
Back to top!

Fans Page kami