Tadi udah saya amati betul” codenya dan saya tuli seperti berikut
Private Sub Workbook_Open()
Dim answer
answer = MsgBox("Peasan yang ingin di sampaikan", vbOKCancel)
If answer = vbOK Then
'jalankan
macro
Else
Application.Quit
End If
End Sub
Dan ode dari mas Heru sbb:
Private Sub Workbook_Open()
Dim answer
answer = MsgBox("Peasan yang ingin di sampaikan", vbOKCancel)
If answer = vbOK Then
' jalankan macro
Else
Application.Quit
End If
End Sub
Kira-kira dmn perbedaanya mas Heru?
Cuma emang di file lampiran pada ari
' jalankan macro
Saya tuliskan jalankan macro, tapi setelah itu saya ganti seperti yang diatas setelah saya kirim tapi tetep tidak
bisa jalan seperti keinginan dengan catatan macro harus dalam keadaan disabel all lho ya...
PRAZTMATH ™
Ah ... masak sih pak ![*:D tersenyum lebar]()
Pak Prazt copy paste saja sih code saya, tanpa di pahami kemana maksudnya
heheheh
Nama nya saja milis belajar Excel pak, harus usaha dikit dong
Maaf pak saya suka bercanda
hehehe
File terlampir
Coba bapak amati mana yang berubah
Clue dari saya : VBA itu bahasa komputer , jadi selain bahasa komputer gak akan dia pahami
Nah silahkan di cari mana yang berubah dan bukan bahasa komputer pak ?
Saya menulis code (awal nya) seperti itu karena saya gak tahu apa macro bapak, makanya saya tulis seperti itu. Dalam benak saya , Pak Prazt sudah bisa buat macro, pikir saya anda sudah paham mana bahasa vba mana yang bukan.
Semangat terus belajar pak, harapan saya Milis ini jadi milis tempat belajar , bukan tempat mencari solusi tanpa tahu kemana / bagaimana masalah tersebut terselesaikan
(mohon maaf buat Pak Kid sebagai moderator jika kata kata saya kurang berkenan )
Sudah saya coba difile terlampir dengan sentingan security macro excel saya tidak saya aktifkan tapi kok tidak jalan ya alias workbook tidak tertutup pk heru?
coba di ganti dengan
if answer = vbOK then
Terus ada pesan eror di sini pk Heru
Private Sub Workbook_Open()
dim answer
answer = Msgbox("Peasan yang ingin di
sampaikan",vbOKCancel)
if answer vbOK then
jalankan macro
else
application.quit
end if
End Sub
Menambahkan dikit ya pak...
mungkin Macro nya nanti kurang lebih nya seperti ini
Private Sub Workbook_Open()
dim answer
answer = Msgbox("Peasan yang ingin di sampaikan",vbOKCancel)
if answer vbOK then
jalankan macro
else
application.quit
end if
End Sub
Semoga membantu
Salam
### Monas, non stop VBA Learner ####
Salam Pak Praz....
Saya bukan pakar excel atau master, boleh ikut nimbrung kan pak ?
Mohon Info, apakah setiap membuka file user wajib membuka makro tsb atau ada kemungkinan bisa mengerjakan file tanpa buka makro ?
Jika sequence nya harus menjalankan macro dulu , saran dari saya sebaik nya macro nya di taruh pada even Workbook_open saja pak
Atau jika ada permisif lain nya, alternatif nya pada event workbook_open, buat prosedur yang menampilkan pesan, Beri pilihan tombol pada pesan ini dengan Yes/No
dari hasil tombol mana yang di klik ini, jika OK, kita bisa eksekusi macro yang dingin kan. Jika No atau Cancel, bisa mengabaikan macro nya
Semoga seperti yang di harapkan
Salam Hormat
## Monas ###
Selamat siang master dan be_Exeler semua
Mau minta sosuli dan pencerahannya bisa atau tidak dan bagaimana cara untuk memaksa user agar mengaktifkan macro dengan kriteria jika si user membuka file excel (misal filnya bernama : coba) tapi macro belum diaktifkan maka file yang dibuka tersebut secara otomatis akan Close/keluar, tapi jika macro sudah aktif maka file coba tersebut bisa dibuka...
![]()
| |
