Assalamualaikum
Yth. Pak Kid
Terimakasih Banyak Penjelasannya Pak Kid
Akan saya pelajari lagi
Wassalamualaikum
Pada Kamis, 31 Desember 2015 8:36, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Nah itu sudah ada script nya...
1. kalau mengaktifkan Application.OnTime berbunyi :
application.ontime waktu_A, "prosedur yang dipanggil"
maka buat penon aktifannya diakhir proses (misal saat workbook ditutup,
userform ditutup atau sebagainya) dengan
application.ontime waktu_A, "prosedur yang dipanggil", schedule:=false
2. kalau mengatur Application.visible=false, maka buat juga
Application.visible=true diakhir proses.
dst-dst
Silakan dicoba untuk ditata ulang alurnya.
Wassalam,
Kid
2015-12-31 7:35 GMT+07:00 HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:
Yth. Pak Kid
Terlampir code script yang saya gunakan
di ThisWoorkbook :
'proses untuk disable macroPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet ' ws sebagai worksheet Application.ScreenUpdating
= False Worksheets("warning").Visible = xlSheetVisible For Each ws In
ThisWorkbook.Worksheets If Not ws.Name = "warning" Then ws.Visible =
xlSheetVeryHidden Next ws Application.DisplayAlerts = False
ActiveWorkbook.Save Application.DisplayAlerts = TrueEnd Sub'proses untuk
enable macroPrivate Sub Workbook_Open()Dim ws As Worksheet
Application.ScreenUpdating = True For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "warning" Then ws.Visible = xlSheetVisible Next ws
Worksheets("warning").Visible = xlSheetVeryHidden With Application
.DisplayFullScreen = True .CommandBars("Worksheet Menu Bar").Enabled = False
.Visible = False LOGIN.Show .Visible = TrueEnd With
End Sub
di Userform :
'LOGIN FORMATPrivate Sub UserForm_Activate()Dim ws As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
ws.Activate ws.Range("A1:N50").Font.ColorIndex = 2 Range("B4").Select
LogNam.SetFocus FrmDaf.Visible = False End SubPrivate Sub
Masuk_Click()Dim ws As WorksheetDim ws1 As WorksheetDim ws2 As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")Set ws1 = Sheets("Admin")Set ws2 = Sheets("User")
ws.Range("E4").Activate
ActiveCell.Value = LogNam.ValueActiveCell.Offset(0, 1) = LogPwd.Value
LogNam.Value = ""LogPwd.Value = ""LogNam.SetFocus If Range("I4").Value = True
Then MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " &
Range("J4").Value Me.Hide Else MsgBox "Nama dan password
salah... Kalau belum termasuk Anggota silahkan Daftar" ws.SelectEnd If
If Range("J4").Value = "Admin" Then ws1.Activate
ElseIf Range("J4").Value = "User" Then ws2.Activate Else
ws.Select End IfLogNam.SetFocusEnd SubPrivate Sub
Daftar_Click()FrmDaf.Visible = True With Status .AddItem "User"
.AddItem "Admin" End WithEnd SubPrivate Sub Tambah_Click()Dim Msg, Style,
Title, Help, Ctxt, Response, MyString
Dim ws As WorksheetThisWorkbook.Application.Calculate
Set ws = Sheets("Password")If DafNam.Value = "" Or DafPwd.Value = "" Or
Status.Value = "" ThenMsgBox "Data harus diisi semua" DafNam.Value = ""
DafPwd.Value = "" Status.Value = ""
DafNam.SetFocusElsews.Range("B4").SelectDo If IsEmpty(ActiveCell) = False
Then ActiveCell.Offset(1, 0).Select End IfLoop Until
IsEmpty(ActiveCell) = True
ActiveCell.Value = DafNam.Value ActiveCell.Offset(0, 1) = DafPwd.Value
ActiveCell.Offset(0, 2) = Status.Value
If Range("N4").Value > 1 ThenMsgBox "Data sudah ada coba cari yang lain"
Range("B4").End(xlDown).SelectRange(Selection,
Selection.End(xlToRight)).ClearContents DafNam.Value = ""
DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
ElseMsg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " ,
Coba Login"Style = vbOKCancel + vbDefaultButton1Title = "Konfirmasi"
Response = MsgBox(Msg, Style, Title)If Response = vbOK Then
ws.Range("B4").Select FrmDaf.Visible = False LogNam.SetFocusElse
Range("B4").End(xlDown).Select Range(Selection,
Selection.End(xlToRight)).ClearContents DafNam.Value = ""
DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
End IfEnd IfEnd If
ws.Range("B4").Select
End Sub
Private Sub FrmDaf_Layout() DafNam.Value = "" DafPwd.Value = ""
Status.Value = "" DafNam.SetFocusEnd SubPrivate Sub
keluar_Click()ThisWorkbook.Close FalseEnd SubPrivate Sub LogNam_MouseMove(ByVal
Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)LJUDUL.Caption = "MASUKKAN NAMA"End SubPrivate Sub
LogPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD"End SubPrivate
Sub DafNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA BARU"End
SubPrivate Sub DafPwd_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN
PASSWORD BARU"End SubPrivate Sub Status_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption =
"MASUKKAN STATUS"End SubPrivate Sub keluar_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)keluar.BackColor =
vbBlackLJUDUL.Caption = "KELUAR DARI APLIKASI"End SubPrivate Sub
Masuk_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)Masuk.BackColor = vbRedLJUDUL.Caption = "MASUK KE
APLIKASI"End SubPrivate Sub Tambah_MouseMove(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)Tambah.BackColor =
vbGreenLJUDUL.Caption = "TAMBAH NAMA"End SubPrivate Sub Daftar_MouseMove(ByVal
Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)Daftar.BackColor = vbGreenLJUDUL.Caption = "DAFTAR NAMA"End Sub'JAM
digitalPrivate Sub UserForm_Initialize()jam = Format(Now, "dd mmmm yyyy
hh:mm:ss")m_lasttime = Now + TimeValue("00:00:01")Application.OnTime
m_lasttime, "GetTime"End SubPublic Property Get LastTime() As DateLastTime =
m_lasttimeEnd PropertyPublic Property Let LastTime(ByVal Value As
Date)m_lasttime = ValueEnd PropertyPrivate Sub UserForm_QueryClose(Cancel As
Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenCancel =
TrueMsgBox "PAKAI TOMBOL EXIT"End IfEnd Sub
di module :
Option Explicit Public Sub GetTime() Dim ld As Date LOGIN.jam = Format(Now, "dd
mmmm yyyy hh:mm:ss")ld = Now + TimeValue("00:00:01") LOGIN.LastTime =
ldApplication.OnTime ld, "GetTime" End Sub
Mohon Maaf mungkin pada kode tersebut terdapat kesalahan.
Terimakasih Penjelasannya Pak Kid
Wassalamualaikum
Pada Kamis, 31 Desember 2015 7:05, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Di set jadi per menit terus berhasil ? Yakin kalau berhasil ?
Coba diperiksa lagi script nya...
Anda meng-Aktif-kan Application.OnTime
>> Pertanyaannya, ada gak baris script yang me-non-aktif-kan Application.OnTime
>> ?
>> Kalau tidak ada, mau Anda set timenya per 1 tahun juga gak bakalan selesai
hadeeh...
Jadi, kalau ada baris yang mengatur sesuatu yang sesuai selera, maka harus ada
baris yang mengembalikan pengaturan tadi ke setting awalnya.
Coba perhatikan berbagai script yang tersebar di milis. Contoh simpelnya adalah
pengaturan lingkungan kerja VBA yang bunyinya begini :
application.screenupdating=false
application.enableevents=false
maka harus ada baris pengaturan yang mengembalikannya menjadi true kembali.
Misal sebelum baris End Sub di prosedur itu ada baris berbunyi :
application.enableevents=true
application.screenupdating=true
Set balik suatu pengaturan yang kelihatannya merepotkan seperti itu perlu
didisiplinkan.
Apalagi kalau sudah menyangkut pengaturan yang melibatkan object Application,
seperti Application.OnTime, Application.Visible, Application.CommandBars,
Application.DisplayFullScreen, dan sebagainya. Karena 1 aplikasi Excel bisa
berisi banyak workbook dan bisa jadi tidak semua workbook yang terbuka di
aplikasi Excel yang diatur tersebut membutuhkan pengaturan yang sama.
:(
Wassalamu'alaikum wr wb
Kid
On Thu, Dec 31, 2015 at 5:56 AM, HAIRUL ALAM ha_m...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Assalamualaikum
Yth. Pak Kid
Terimakasih Banyak PenjelasannyaUdah saya coba rubah waktu menjadi per menit,
Alhamdulillah berhasilTerimakasih dan mohon maaf bila dalam pertanyaan saya ada
yang kurang jelas
Wassalamualaikum
Pada Rabu, 30 Desember 2015 23:57, "Toby kenzo tobyke...@yahoo.co.id
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
| Dear Hairul,Saya coba untuk menjawab.
Crash yg terjadi pada program yg anda buat adalah penggunaan "Aplikasi jam
digital".
Pada Excel 2007 penggunaan formula application.ontime dgn di tambah timevalue
cuma 1 detik akan membuat program menjadi "kacau" karna "time" pada saat active
program tertentu akan terpengaruh oleh program yg ada application.ontime +
timevalue nya.#. Program PIPELINE_INSPECTION ada dimana ya...?
#. Program jam digital bisa digunakan dgn baik di excel 2007 keatas, jika ingin
tetap digunakan coba beri delay timenya permenit bukan per detik.TerimaKasih.
Sent from Yahoo Mail on Android |
From: HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Bls: [belajar-excel] Aplikasi Excel yang menggunakan VBA [1
Attachment]
Sent: Wed, Dec 30, 2015 12:04:52 PM
| Assalamualaikum
Yth. Pak Kid
Betul Pak jadi ada code yang membuat aplikasi vba saya crash
terlampir contoh aplikasi saya yang dimaksud
Terimakasih Banyak Penjelasannya Pak
Wassalamualaikum
Pada Rabu, 30 Desember 2015 17:33, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Jadi masalahnya bukan VBA yang menutup workbook atau aplikasi. Tapi ada elemen
yang dijalankan VBA yang membuat crash. Begitu ?
Dalam workbook yang ber VBA ada yang pakai Application.OnTime atau Do Loop ?
Wassalamu'alaikum wr wb
Kid
On Wed, Dec 30, 2015 at 5:27 PM, HAIRUL ALAM ha_m...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Assalamualaikum
Terimakasih Penjelasannya Pak Kid
Maksud saya
saya mempunyai file beberapa file excel
file 1 (Data base) banyak workbook dalam satu aplikasi dengan menggunakan
vbafile 2 (Data harian) hanya workbook biasa dan tidak menggunakan vba
jadi kedua file 1 & 2 saya buka dan setelah selesai menggunakan file 1 dan
ingin menutupnya disitulah terjadi crash yang membuat file 2 juga ikut
tertutup, begitulah maksud saya Pak
Terimakasih banyak
Wassalamualaikum
Pada Rabu, 30 Desember 2015 17:16, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Sama-sama.
Moga-moga jadi jelas ya...
Aplikasi Excel (di VBA diwakili dengan Application) bisa berisi banyak Workbook.
Menutup workbook TIDAK sama dengan menutup aplikasi.
Kalau menutup aplikasi, seluruh workbook dalam aplikasi akan ditutup juga,
soale bandarnya dah beres-beres disuruh tutup.
Kalau menutup workbook, maka hanya workbook tersebut yang ditutup. Walau semua
workbook dalam aplikasi sudah ditutup, aplikasinya ndak akan tertutup alias
tampak blank tak ada workbook.
Wassalam,
Kid
On Wed, Dec 30, 2015 at 5:05 PM, HAIRUL ALAM ha_m...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terimkasih banyak Pak Kid
Pada Rabu, 30 Desember 2015 14:20, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Hai Hairul,
Coba cari di dalam script, semua yang berbunyi Application.quit diganti dengan
thisworkbook.close false 'kalau tidak ingin disave dulu
atau lakukan save workbook dengan thisworkbook.save sebelum thisworkbook.close
false
Wassalamu'alaikum wr wb
Kid
On Wed, Dec 30, 2015 at 2:14 PM, HAIRUL ALAM ha_m...@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Assalamualaikum
Yth. Pak Kid
Maksud dari berpengaruh pada file lain, bila saya menutup aplikasi yang
memiliki Vba yang ada saya lampirkan kemarin, file excel yang lain ikut
tertutup, yang artinya harus buka ulang file yang lain tadi Pak, Mohon Maaf
bila penjelasan saya kurang dimengerti
TerimakasihWassalamualaikum
Pada Senin, 28 Desember 2015 6:37, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Wa'alaikumussalam wr wb
Hai Hairul,
Adakah penjelasan yang lebih spesifik tentang 'berpengaruh pada file Excel Lain
yang sedang aktif' ?
Wassalamu'alaikum wr wb
Kid
2015-12-23 10:27 GMT+07:00 HAIRUL ALAM ha_m...@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:
Assalamualaikum
Yth. Para Milis Excel
Saya memiliki masalah Close aplikasi Excel yang menggunakan VBA, berpengaruh
pada file Excel Lain yang sedang aktif
Bagaimana mengatasinya agar file excel yang memiliki VBA tersebut bekerja
sendiri dan bila di close file excel yang lain tidak berpengaruh
Terimakasih Banyak
WassalamualaikumHairul Alam
|
#yiv9198845721 #yiv9198845721 -- #yiv9198845721ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9198845721
#yiv9198845721ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9198845721
#yiv9198845721ygrp-mkp #yiv9198845721hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv9198845721 #yiv9198845721ygrp-mkp #yiv9198845721ads
{margin-bottom:10px;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad
{padding:0 0;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad p
{margin:0;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad a
{color:#0000ff;text-decoration:none;}#yiv9198845721 #yiv9198845721ygrp-sponsor
#yiv9198845721ygrp-lc {font-family:Arial;}#yiv9198845721
#yiv9198845721ygrp-sponsor #yiv9198845721ygrp-lc #yiv9198845721hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9198845721
#yiv9198845721ygrp-sponsor #yiv9198845721ygrp-lc .yiv9198845721ad
{margin-bottom:10px;padding:0 0;}#yiv9198845721 #yiv9198845721actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9198845721
#yiv9198845721activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9198845721
#yiv9198845721activity span {font-weight:700;}#yiv9198845721
#yiv9198845721activity span:first-child
{text-transform:uppercase;}#yiv9198845721 #yiv9198845721activity span a
{color:#5085b6;text-decoration:none;}#yiv9198845721 #yiv9198845721activity span
span {color:#ff7900;}#yiv9198845721 #yiv9198845721activity span
.yiv9198845721underline {text-decoration:underline;}#yiv9198845721
.yiv9198845721attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv9198845721 .yiv9198845721attach div a
{text-decoration:none;}#yiv9198845721 .yiv9198845721attach img
{border:none;padding-right:5px;}#yiv9198845721 .yiv9198845721attach label
{display:block;margin-bottom:5px;}#yiv9198845721 .yiv9198845721attach label a
{text-decoration:none;}#yiv9198845721 blockquote {margin:0 0 0
4px;}#yiv9198845721 .yiv9198845721bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9198845721
.yiv9198845721bold a {text-decoration:none;}#yiv9198845721 dd.yiv9198845721last
p a {font-family:Verdana;font-weight:700;}#yiv9198845721 dd.yiv9198845721last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9198845721
dd.yiv9198845721last p span.yiv9198845721yshortcuts
{margin-right:0;}#yiv9198845721 div.yiv9198845721attach-table div div a
{text-decoration:none;}#yiv9198845721 div.yiv9198845721attach-table
{width:400px;}#yiv9198845721 div.yiv9198845721file-title a, #yiv9198845721
div.yiv9198845721file-title a:active, #yiv9198845721
div.yiv9198845721file-title a:hover, #yiv9198845721 div.yiv9198845721file-title
a:visited {text-decoration:none;}#yiv9198845721 div.yiv9198845721photo-title a,
#yiv9198845721 div.yiv9198845721photo-title a:active, #yiv9198845721
div.yiv9198845721photo-title a:hover, #yiv9198845721
div.yiv9198845721photo-title a:visited {text-decoration:none;}#yiv9198845721
div#yiv9198845721ygrp-mlmsg #yiv9198845721ygrp-msg p a
span.yiv9198845721yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9198845721
.yiv9198845721green {color:#628c2a;}#yiv9198845721 .yiv9198845721MsoNormal
{margin:0 0 0 0;}#yiv9198845721 o {font-size:0;}#yiv9198845721
#yiv9198845721photos div {float:left;width:72px;}#yiv9198845721
#yiv9198845721photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv9198845721
#yiv9198845721photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9198845721
#yiv9198845721reco-category {font-size:77%;}#yiv9198845721
#yiv9198845721reco-desc {font-size:77%;}#yiv9198845721 .yiv9198845721replbq
{margin:4px;}#yiv9198845721 #yiv9198845721ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv9198845721 #yiv9198845721ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9198845721
#yiv9198845721ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9198845721
#yiv9198845721ygrp-mlmsg select, #yiv9198845721 input, #yiv9198845721 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv9198845721
#yiv9198845721ygrp-mlmsg pre, #yiv9198845721 code {font:115%
monospace;}#yiv9198845721 #yiv9198845721ygrp-mlmsg *
{line-height:1.22em;}#yiv9198845721 #yiv9198845721ygrp-mlmsg #yiv9198845721logo
{padding-bottom:10px;}#yiv9198845721 #yiv9198845721ygrp-msg p a
{font-family:Verdana;}#yiv9198845721 #yiv9198845721ygrp-msg
p#yiv9198845721attach-count span {color:#1E66AE;font-weight:700;}#yiv9198845721
#yiv9198845721ygrp-reco #yiv9198845721reco-head
{color:#ff7900;font-weight:700;}#yiv9198845721 #yiv9198845721ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv9198845721 #yiv9198845721ygrp-sponsor
#yiv9198845721ov li a {font-size:130%;text-decoration:none;}#yiv9198845721
#yiv9198845721ygrp-sponsor #yiv9198845721ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv9198845721
#yiv9198845721ygrp-sponsor #yiv9198845721ov ul {margin:0;padding:0 0 0
8px;}#yiv9198845721 #yiv9198845721ygrp-text
{font-family:Georgia;}#yiv9198845721 #yiv9198845721ygrp-text p {margin:0 0 1em
0;}#yiv9198845721 #yiv9198845721ygrp-text tt {font-size:120%;}#yiv9198845721
#yiv9198845721ygrp-vital ul li:last-child {border-right:none
!important;}#yiv9198845721
