(感謝大大們協助完成)如何排除~當程式建立於~開啟時寫入~每次關閉都會問是否要儲存
- 帖子
- 703
- 主題
- 276
- 精華
- 0
- 積分
- 1005
- 點名
- 1
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2024-5-29
|
(感謝大大們協助完成)如何排除~當程式建立於~開啟時寫入~每次關閉都會問是否要儲存
本帖最後由 av8d 於 2012-6-29 16:17 編輯
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Sh In Sheets
If Sh.Name <> "Index" Then Sh.Visible = False
End Sub
Private Sub Workbook_Open()
Sheets("Index").Select
For i = 1 To 4
ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
Next
ActiveSheet.OLEObjects("Textbox1").Activate
End Sub
當程式建立於~開啟時寫入~每次關閉都會問是否要儲存~是否可以讓他自動判斷~或是其他方法? |
|
|
|
|
|
|
|
- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
3#
發表於 2012-6-29 09:04
| 只看該作者
其實會詢問你要不要儲存~ 這是有需要的~
有些時候在修改了某些資料時~ 有可能改錯~
若是不excel詢問的話~ 有可能會導致整個資料無法被救回來~ |
|
|
學習才能提升自己
|
|
|
|
|
- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2012-6-28 22:59
| 只看該作者
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Dim result
- If ThisWorkbook.Saved = False Then
- result = MsgBox("""" & ThisWorkbook.Name & """ 此檔案已被修改,是否要儲存?", vbYesNoCancel)
- End If
- If result = vbYes Then
- For Each Sh In Sheets
- If Sh.Name <> "Index" Then Sh.Visible = False
- Next
- ThisWorkbook.Save
- Exit Sub
- ElseIf result = vbNo Then
- ThisWorkbook.Saved = True
- ElseIf result = vbCancel Then
- Cancel = True
- Exit Sub
- End If
- End Sub
- WORKBOOK_OPEN後 的狀態設成已儲存
- Private Sub Workbook_Open()
- Sheets("Index").Select
- For i = 1 To 4
- ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
- Next
-
- ActiveSheet.OLEObjects("Textbox1").Activate
- thisworkbook.saved=true
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- For Each Sh In Sheets
- If Sh.Name <> "Index" Then Sh.Visible = False
- thisworkbook.save
- End Sub
|
|
|
|
|
|
|
|
