Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-05-20 Terurut Topik y.ron...@yahoo.com [belajar-excel] 
terimakasih pencerahannya. saya sudah mengerti

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-17 Terurut Topik NangAgus nanga...@gmail.com [belajar-excel] 



On 4/17/2018 12:52 PM, Yusuf Roni y.ron...@yahoo.com [belajar-excel] wrote:

ditempat saya tidak muncul debug. bgmn dong mau masuk ke scriptnya???

Pada Senin, 16 April 2018 17.38.32 WITA, hendrik karnadi 
hendrikkarn...@yahoo.com [belajar-excel] 
 menulis:



Saya sdh coba buka...

Waktu keluar pesan "This Wokrksheet was valid until 31/08/2009 and 
will be closed" klik Ok.

Ketika keluar "Run-time error '91':"...klik Debug.
Ganti tahun dari 2009 ke 2018, kmd klik Reset (icon kotak di bagian 
atas) untuk membatalkan Debug.


Setelah itu tombol "Input Data" siap digunakan.

Selamat mencoba

Salam,
HK

Sent from Yahoo Mail on Android 



On Mon, Apr 16, 2018 at 15:25, y.ron...@yahoo.com [belajar-excel]
 wrote:

untuk scriptnya sudah saya buat hanya saya tidak bisa buka lagi.
adakah scrip ketika sudah expired maka ketika di aktifkan harus
memasukkan serial sehingga bisa diaktifkan kembali?






Copy of Test.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-16 Terurut Topik Yusuf Roni y.ron...@yahoo.com [belajar-excel] 
 ditempat saya tidak muncul debug. bgmn dong mau masuk ke scriptnya???
Pada Senin, 16 April 2018 17.38.32 WITA, hendrik karnadi 
hendrikkarn...@yahoo.com [belajar-excel]  
menulis:

  
Saya sdh coba buka...
Waktu keluar pesan "This Wokrksheet was valid until 31/08/2009 and will be 
closed" klik Ok.Ketika keluar "Run-time error '91':"...klik Debug.Ganti tahun 
dari 2009 ke 2018, kmd klik Reset (icon kotak di bagian atas) untuk membatalkan 
Debug.
Setelah itu tombol "Input Data" siap digunakan.
Selamat mencoba
Salam,HK

Sent from Yahoo Mail on Android

  On Mon, Apr 16, 2018 at 15:25, y.ron...@yahoo.com 
[belajar-excel] wrote:    
untuk scriptnya sudah saya buat hanya saya tidak bisa buka lagi. adakah scrip 
ketika sudah expired maka ketika di aktifkan harus memasukkan serial sehingga 
bisa diaktifkan kembali?
 
  #yiv4521808571 #yiv4521808571 -- #yiv4521808571ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4521808571 
#yiv4521808571ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4521808571 
#yiv4521808571ygrp-mkp #yiv4521808571hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv4521808571 #yiv4521808571ygrp-mkp #yiv4521808571ads 
{margin-bottom:10px;}#yiv4521808571 #yiv4521808571ygrp-mkp .yiv4521808571ad 
{padding:0 0;}#yiv4521808571 #yiv4521808571ygrp-mkp .yiv4521808571ad p 
{margin:0;}#yiv4521808571 #yiv4521808571ygrp-mkp .yiv4521808571ad a 
{color:#ff;text-decoration:none;}#yiv4521808571 #yiv4521808571ygrp-sponsor 
#yiv4521808571ygrp-lc {font-family:Arial;}#yiv4521808571 
#yiv4521808571ygrp-sponsor #yiv4521808571ygrp-lc #yiv4521808571hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4521808571 
#yiv4521808571ygrp-sponsor #yiv4521808571ygrp-lc .yiv4521808571ad 
{margin-bottom:10px;padding:0 0;}#yiv4521808571 #yiv4521808571actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4521808571 
#yiv4521808571activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4521808571
 #yiv4521808571activity span {font-weight:700;}#yiv4521808571 
#yiv4521808571activity span:first-child 
{text-transform:uppercase;}#yiv4521808571 #yiv4521808571activity span a 
{color:#5085b6;text-decoration:none;}#yiv4521808571 #yiv4521808571activity span 
span {color:#ff7900;}#yiv4521808571 #yiv4521808571activity span 
.yiv4521808571underline {text-decoration:underline;}#yiv4521808571 
.yiv4521808571attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv4521808571 .yiv4521808571attach div a 
{text-decoration:none;}#yiv4521808571 .yiv4521808571attach img 
{border:none;padding-right:5px;}#yiv4521808571 .yiv4521808571attach label 
{display:block;margin-bottom:5px;}#yiv4521808571 .yiv4521808571attach label a 
{text-decoration:none;}#yiv4521808571 blockquote {margin:0 0 0 
4px;}#yiv4521808571 .yiv4521808571bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4521808571 
.yiv4521808571bold a {text-decoration:none;}#yiv4521808571 dd.yiv4521808571last 
p a {font-family:Verdana;font-weight:700;}#yiv4521808571 dd.yiv4521808571last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4521808571 
dd.yiv4521808571last p span.yiv4521808571yshortcuts 
{margin-right:0;}#yiv4521808571 div.yiv4521808571attach-table div div a 
{text-decoration:none;}#yiv4521808571 div.yiv4521808571attach-table 
{width:400px;}#yiv4521808571 div.yiv4521808571file-title a, #yiv4521808571 
div.yiv4521808571file-title a:active, #yiv4521808571 
div.yiv4521808571file-title a:hover, #yiv4521808571 div.yiv4521808571file-title 
a:visited {text-decoration:none;}#yiv4521808571 div.yiv4521808571photo-title a, 
#yiv4521808571 div.yiv4521808571photo-title a:active, #yiv4521808571 
div.yiv4521808571photo-title a:hover, #yiv4521808571 
div.yiv4521808571photo-title a:visited {text-decoration:none;}#yiv4521808571 
div#yiv4521808571ygrp-mlmsg #yiv4521808571ygrp-msg p a 
span.yiv4521808571yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4521808571 
.yiv4521808571green {color:#628c2a;}#yiv4521808571 .yiv4521808571MsoNormal 
{margin:0 0 0 0;}#yiv4521808571 o {font-size:0;}#yiv4521808571 
#yiv4521808571photos div {float:left;width:72px;}#yiv4521808571 
#yiv4521808571photos div div {border:1px solid 
#66;min-height:62px;overflow:hidden;width:62px;}#yiv4521808571 
#yiv4521808571photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4521808571
 #yiv4521808571reco-category {font-size:77%;}#yiv4521808571 
#yiv4521808571reco-desc {font-size:77%;}#yiv4521808571 .yiv4521808571replbq 
{margin:4px;}#yiv4521808571 #yiv4521808571ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv4521808571 #yiv4521808571ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4521808571 
#yiv4521808571ygrp-mlmsg

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-16 Terurut Topik hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] 
Saya sdh coba buka...Waktu keluar pesan "This Wokrksheet was valid until 
31/08/2009 and will be closed" klik Ok.Ketika keluar "Run-time error 
'91':"klik Debug.Ganti tahun dari 2009 ke 2018, kmd klik Reset (icon kotak 
di bagian atas) untuk membatalkan Debug.
Setelah itu tombol "Input Data" siap digunakan.
Selamat mencoba
Salam,HK

Sent from Yahoo Mail on Android 
 
  On Mon, Apr 16, 2018 at 15:25, y.ron...@yahoo.com 
[belajar-excel] wrote:       
untuk scriptnya sudah saya buat hanya saya tidak bisa buka lagi. adakah scrip 
ketika sudah expired maka ketika di aktifkan harus memasukkan serial sehingga 
bisa diaktifkan kembali?
  #yiv2770713700 #yiv2770713700 -- #yiv2770713700ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2770713700 
#yiv2770713700ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2770713700 
#yiv2770713700ygrp-mkp #yiv2770713700hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv2770713700 #yiv2770713700ygrp-mkp #yiv2770713700ads 
{margin-bottom:10px;}#yiv2770713700 #yiv2770713700ygrp-mkp .yiv2770713700ad 
{padding:0 0;}#yiv2770713700 #yiv2770713700ygrp-mkp .yiv2770713700ad p 
{margin:0;}#yiv2770713700 #yiv2770713700ygrp-mkp .yiv2770713700ad a 
{color:#ff;text-decoration:none;}#yiv2770713700 #yiv2770713700ygrp-sponsor 
#yiv2770713700ygrp-lc {font-family:Arial;}#yiv2770713700 
#yiv2770713700ygrp-sponsor #yiv2770713700ygrp-lc #yiv2770713700hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2770713700 
#yiv2770713700ygrp-sponsor #yiv2770713700ygrp-lc .yiv2770713700ad 
{margin-bottom:10px;padding:0 0;}#yiv2770713700 #yiv2770713700actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2770713700 
#yiv2770713700activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2770713700
 #yiv2770713700activity span {font-weight:700;}#yiv2770713700 
#yiv2770713700activity span:first-child 
{text-transform:uppercase;}#yiv2770713700 #yiv2770713700activity span a 
{color:#5085b6;text-decoration:none;}#yiv2770713700 #yiv2770713700activity span 
span {color:#ff7900;}#yiv2770713700 #yiv2770713700activity span 
.yiv2770713700underline {text-decoration:underline;}#yiv2770713700 
.yiv2770713700attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv2770713700 .yiv2770713700attach div a 
{text-decoration:none;}#yiv2770713700 .yiv2770713700attach img 
{border:none;padding-right:5px;}#yiv2770713700 .yiv2770713700attach label 
{display:block;margin-bottom:5px;}#yiv2770713700 .yiv2770713700attach label a 
{text-decoration:none;}#yiv2770713700 blockquote {margin:0 0 0 
4px;}#yiv2770713700 .yiv2770713700bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2770713700 
.yiv2770713700bold a {text-decoration:none;}#yiv2770713700 dd.yiv2770713700last 
p a {font-family:Verdana;font-weight:700;}#yiv2770713700 dd.yiv2770713700last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2770713700 
dd.yiv2770713700last p span.yiv2770713700yshortcuts 
{margin-right:0;}#yiv2770713700 div.yiv2770713700attach-table div div a 
{text-decoration:none;}#yiv2770713700 div.yiv2770713700attach-table 
{width:400px;}#yiv2770713700 div.yiv2770713700file-title a, #yiv2770713700 
div.yiv2770713700file-title a:active, #yiv2770713700 
div.yiv2770713700file-title a:hover, #yiv2770713700 div.yiv2770713700file-title 
a:visited {text-decoration:none;}#yiv2770713700 div.yiv2770713700photo-title a, 
#yiv2770713700 div.yiv2770713700photo-title a:active, #yiv2770713700 
div.yiv2770713700photo-title a:hover, #yiv2770713700 
div.yiv2770713700photo-title a:visited {text-decoration:none;}#yiv2770713700 
div#yiv2770713700ygrp-mlmsg #yiv2770713700ygrp-msg p a 
span.yiv2770713700yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2770713700 
.yiv2770713700green {color:#628c2a;}#yiv2770713700 .yiv2770713700MsoNormal 
{margin:0 0 0 0;}#yiv2770713700 o {font-size:0;}#yiv2770713700 
#yiv2770713700photos div {float:left;width:72px;}#yiv2770713700 
#yiv2770713700photos div div {border:1px solid 
#66;min-height:62px;overflow:hidden;width:62px;}#yiv2770713700 
#yiv2770713700photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2770713700
 #yiv2770713700reco-category {font-size:77%;}#yiv2770713700 
#yiv2770713700reco-desc {font-size:77%;}#yiv2770713700 .yiv2770713700replbq 
{margin:4px;}#yiv2770713700 #yiv2770713700ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv2770713700 #yiv2770713700ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2770713700 
#yiv2770713700ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2770713700 
#yiv2770713700ygrp-mlmsg select, #yiv2770713700 input, #yiv2770713700 textarea 
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2770713700 
#yiv2770713700ygrp-mlmsg

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro [1 Attachment]

2018-04-16 Terurut Topik y.ron...@yahoo.com [belajar-excel] 
untuk scriptnya sudah saya buat hanya saya tidak bisa buka lagi. adakah scrip 
ketika sudah expired maka ketika di aktifkan harus memasukkan serial sehingga 
bisa diaktifkan kembali?

Test.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-14 Terurut Topik NangAgus nanga...@gmail.com [belajar-excel] 

Dear Yusuf:

Coba cekrip:

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date 
you want


diubah menjadi:

Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the 
date you want


Jabat erat
NangAgus


On 4/13/2018 1:51 PM, hendrik karnadi hendrikkarn...@yahoo.com 
[belajar-excel] wrote:

Hai Yusuf,
Skg kan sdh 2018...jadi workbook ga bisa dibuka.
Kalau mau jalankan macroya...date yang ada di komputer dimundurin dulu.

Salam,
HK


On Friday, 13 April 2018, 1:20:16 PM GMT+7, y.ron...@yahoo.com 
[belajar-excel]  wrote:



Saya sudah script berikut namun tidak bisa digunakan:


Private Sub Workbook_Open()

Dim Edate As Date

Edate = Format("*31/08/2009*", "DD/MM/") ' Replace this with 
the date you want


If Date > Edate Then

MsgBox ("This worksheet was valid upto " & Format(Edate, 
"dd-mmm-") & " and will be closed")


*ActiveWorkbook.Close*

End If

If Edate - Date < 30 Then

MsgBox ("This worksheet expires on " & Format(Edate, 
"dd-mmm-") & " You have " & Edate - Date & " Days left ")


End If

End Sub


Mohon dibantu scrip untuk experied date untuk Office 2010?


Terimakasih.



Yusuf

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-14 Terurut Topik NangAgus nanga...@gmail.com [belajar-excel] 

Dear Yusuf:

Coba cekrip:

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date 
you want


diubah menjadi:

Edate = Format("30/04/*2018*", "*dd/mm/*") ' Replace this with the 
date you want


Jabat erat
NangAgus


On 4/13/2018 11:47 AM, y.ron...@yahoo.com [belajar-excel] wrote:


Saya sudah script berikut namun tidak bisa digunakan:


Private Sub Workbook_Open()

Dim Edate As Date

Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the 
date you want


If Date > Edate Then

MsgBox ("This worksheet was valid upto " & Format(Edate, 
"dd-mmm-") & " and will be closed")


ActiveWorkbook.Close

End If

If Edate - Date < 30 Then

MsgBox ("This worksheet expires on " & Format(Edate, 
"dd-mmm-") & " You have " & Edate - Date & " Days left ")


End If

End Sub


Mohon dibantu scrip untuk experied date untuk Office 2010?


Terimakasih.



Yusuf

Re: [belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-13 Terurut Topik hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] 
 Hai Yusuf,Skg kan sdh 2018...jadi workbook ga bisa dibuka.Kalau mau jalankan 
macroya...date yang ada di komputer dimundurin dulu.
Salam,HK

On Friday, 13 April 2018, 1:20:16 PM GMT+7, y.ron...@yahoo.com 
[belajar-excel]  wrote:  
 
     


Saya sudah script berikut namun tidak bisa digunakan:




Private Sub Workbook_Open()

    Dim Edate As Date

    Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date you 
want

    If Date > Edate Then

        MsgBox ("This worksheet was valid upto " & Format(Edate, "dd-mmm-") 
& " and will be closed")

        ActiveWorkbook.Close

    End If

    If Edate - Date < 30 Then

    MsgBox ("This worksheet expires on " & Format(Edate, "dd-mmm-") & " You 
have " & Edate - Date & " Days left ")

    End If



End Sub




Mohon dibantu scrip untuk experied date untuk Office 2010?




Terimakasih.







Yusuf

[belajar-excel] Mohon Dibantu untuk script Expired Date Macro

2018-04-13 Terurut Topik y.ron...@yahoo.com [belajar-excel] 
Saya sudah script berikut namun tidak bisa digunakan:
 

 Private Sub Workbook_Open()
 Dim Edate As Date
 Edate = Format("31/08/2009", "DD/MM/") ' Replace this with the date 
you want
 If Date > Edate Then
 MsgBox ("This worksheet was valid upto " & Format(Edate, 
"dd-mmm-") & " and will be closed")
 ActiveWorkbook.Close
 End If
 If Edate - Date < 30 Then
 MsgBox ("This worksheet expires on " & Format(Edate, "dd-mmm-") & " 
You have " & Edate - Date & " Days left ")
 End If
 
 End Sub
 

 Mohon dibantu scrip untuk experied date untuk Office 2010?
 

 Terimakasih.
 

 

 Yusuf