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.., 😁
>>>
>>
