Hai Ayub,
Events workbook before save punya parameter bernama 'Cancel'. Kalau tidak
boleh save, set parameter ini dengan TRUE
private sub workbook_beforesave(byval saveasui as boolean,cancel as
boolean) 'blok prosedur ini dibuat dengan memilih event di
Thisworkbook object
cancel=true
end sub
Kalau ada syaratnya, letakkan si baris cancel=true di dalam blok
pendefinisi syarat agar tidak boleh save.
Contoh :
private sub workbook_beforesave(byval saveasui as boolean,cancel as
boolean) 'blok prosedur ini dibuat dengan memilih event di
Thisworkbook object
'tidak boleh save kalau di namanya!a1 adalah kosong atau di 'sheet
lainnya'!x7 berisi tulisan 'kid' (case insensitive)
if len(sheets("namanya").range("a1").value)=0 or lcase(sheets("sheet
lainnya").range("x7").value)="kid" then
cancel=true
endif
end sub
Kalau ingin tidak boleh tutup workbook, manfaatkan event beforeclose dengan
isi prosedur adalah baris kode yang susunannya seperti di atas
Selamat mencoba
Regards,
Kid
2016-05-17 18:05 GMT+07:00 Ayub Barin [email protected] [belajar-excel] <
[email protected]>:
>
>
> Salam Hormat,
>
> Saya lagi maaf,mohon koreksi masters :
>
> Kayaknya untuk permasalahan saya yg aneh ini bisa dengan modifkasi dikit
> mantra pak sony :
>
> If Sheets(1).Range("A1").Value = "Error" Or _
>
> Sheets(1).Range("A1").Value = "error" Then
> Application.CommandBars("Worksheet Menu
> Bar").Controls("File").Controls("Save As...").Enabled = False
> Application.CommandBars("Worksheet Menu
> Bar").Controls("File").Controls("Save").Enabled = False
>
> ElseIf Sheets(1).Range("A1").Value = "" Or _
>
> Sheets(1).Range("A1").Value = "" Then
> Application.CommandBars("Worksheet Menu
> Bar").Controls("File").Controls("Save As...").Enabled = True
> Application.CommandBars("Worksheet Menu
> Bar").Controls("File").Controls("Save").Enabled = True
>
> End If
>
> Maafkan saya yg punya ilmu sedangkal ini, Maaf gagal fahan meletakan Else:
> nya mohon bantuan...
>
> TerimaKasih sebelumnya..salam hormat
> Pada tanggal 17 Mei 2016 17.58, "Ayub Barin" <[email protected]>
> menulis:
>
>> Yth, guru sekalian,
>>
>> Sepengetahuan saya, harapan saya ini bisa diwujudkan dengan menggunakan
>> userform tp karena akan dipakai oleh banyak pengguna maka saya berharap
>> bisa menggunakan tabel excel standar dan sederhana sehingga bisa digunakan
>> oleh semua pengguna di instansi, yang memiliki kemampuan menggunakan
>> komputerisasi yang bervariasi mohon maaf sebelumnya
>> Pada tanggal 17 Mei 2016 17.51, "Ayub Barin" <[email protected]>
>> menulis:
>>
>>> Maaf kebalik ketik range nya maklum sedikit mengidap penyakit kutil
>>> (kurang teliti)
>>> Pada tanggal 17 Mei 2016 17.07, "Ayub Barin" <[email protected]>
>>> menulis:
>>>
>>>> Yth.pak sony
>>>>
>>>> Terima Kasih atas pencerahannya, belum saya coba tp klu melihat mantra
>>>> nya brrti lembar kerja otomatis tertutup, bisa ga misal lembar kerja ttp
>>>> terbuka tp user tidak bisa men save ada ga ya mohon bantuan terima kasih,
>>>>
>>>> Kondisi sebenarnya gini, saya meminta data ke berbagai instansi untuk
>>>> meng-input dalam format tabel excel sederhana(standar) yg saya tentukan
>>>> tapi data tersebut kadang ada field field yg kosong padahal wajib diisi,
>>>> rencana saya di kolom/range(4Y) yg paling akhir akan saya buat rumus
>>>> sederhana if(or(4D="";4F="";4G);"error";"") sperti pencerahan pa sony VBA
>>>> akan dpola untuk cell 4Y...tp selama error penguna menekan save tidak akan
>>>> berfungsi, tp mksh pa sony bisa buat kejutan bagi pengguna klu lembar kerja
>>>> dibuat tertutup tanpa tersimpan.., 😁
>>>>
>>>
>
