帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

1^# 跳轉到 »

發表於 2015-2-25 02:05 | 只看該作者

請教EXCEL VBA 某日期到限制某巨集的使用

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

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

2^# 倒序看帖

打印

字體大小: tT

發表於 2015-2-25 02:15 | 只看該作者

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

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

小雨

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-2-25 08:12 | 只看該作者

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

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

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-2-25 08:18 | 只看該作者

如下試試

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

巨集

End If
End Sub

羅

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

5^#

發表於 2015-3-2 22:06 | 只看該作者

回復 4# rouber590324

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

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

6^#

發表於 2015-3-2 22:25 | 只看該作者

回復 5# hueywen_jia

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

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

1 評分人數

GBKEE: 錯誤訊息不是有說明,為何不先看說明金錢 -2

小雨

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

7^#

發表於 2015-3-3 10:47 | 只看該作者

煩將 SUB MACROL() 刪除啦

羅

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

8^#

發表於 2015-3-12 00:07 | 只看該作者

回復 6# hueywen_jia

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

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

9^#

發表於 2015-3-12 00:10 | 只看該作者

煩將 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() 變成找不到巨集了

2015-03-12_000951.jpg (9.98 KB)