[發問] EXCEL設定某日期到檔案無法開啟

hueywen_jia

請教高手,我在EXCEL設了一個巨集,但我希望在一個月後這個巨集就無法使用,要怎麼做? 謝謝

hueywen_jia

各位高手,請問EXCEL是否可以設定當某個日期到時,某個檔案則無法開啟呢? 謝謝

rouber590324

如下  煩copy新excel 試試 (原excel保留備用)  

Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date > "02/23/2015" Then
   ThisWorkbook.Close False
   End If
End Sub

rouber590324

如下   試試

Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date < "02/23/2015" Then
   
   巨集
   
   End If
End Sub

hueywen_jia

回復 4# rouber590324


感謝rouber590324回復,測試後可!! 謝謝~~

hueywen_jia

回復 5# hueywen_jia

更正~~更正~~~不能刪文也無法修改了,sorry~

經過測試是不能使用的,會出現有END IF ,卻沒有IF

下載 (53.43 KB)
出現此對話框

2015-3-2 22:24

rouber590324

煩將  SUB  MACROL() 刪除啦

hueywen_jia

回復 6# hueywen_jia


    GBAEE  sorry因為我看不懂,因為不會語法

hueywen_jia

煩將  SUB  MACROL() 刪除啦
rouber590324 發表於 2015-3-3 10:47

rouber590324：


Private Sub Workbook_Open()
   Application.DisplayAlerts = False
   If Date < "02/23/2015" Then
   
'
' Macro1 Macro
' user 在 2015/2/24 錄製的巨集
'
' 快速鍵: Ctrl+Shift+J
'
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B4").Select


   
   End If
End Sub


    刪了SUB  MACROL() 變成找不到巨集了

GBKEE

回復 4# rouber590324
Date > "02/23/2015" 是錯誤的語法

1. Option Explicit
   
2. Sub Ex()
   
3.    MsgBox "Date = " & Date
   
4.    MsgBox Date > "04/23/2015"
   
5.    MsgBox Date > #4/23/2015#
   
6.    MsgBox Date > DateValue("04/23/2015")
   
7.    
   
8.    MsgBox Date < "04/23/2015"
   
9.    MsgBox Date < #4/23/2015#
   
10.    MsgBox Date < DateValue("04/23/2015")
    
11. End Sub

複製代碼

回復 9# hueywen_jia

附檔看看