返回列表 上一主題 發帖

(感謝大大們協助完成)如何排除~當程式建立於~開啟時寫入~每次關閉都會問是否要儲存

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-28 21:57 | 只看該作者

(感謝大大們協助完成)如何排除~當程式建立於~開啟時寫入~每次關閉都會問是否要儲存

本帖最後由 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

當程式建立於~開啟時寫入~每次關閉都會問是否要儲存~是否可以讓他自動判斷~或是其他方法?
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-6-28 22:59 | 只看該作者
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     Dim result
  3.     If ThisWorkbook.Saved = False Then
  4.         result = MsgBox("""" & ThisWorkbook.Name & """ 此檔案已被修改,是否要儲存?", vbYesNoCancel)
  5.     End If
  6.     If result = vbYes Then
  7.         For Each Sh In Sheets
  8.             If Sh.Name <> "Index" Then Sh.Visible = False
  9.         Next
  10.         ThisWorkbook.Save
  11.         Exit Sub
  12.     ElseIf result = vbNo Then
  13.         ThisWorkbook.Saved = True
  14.     ElseIf result = vbCancel Then
  15.         Cancel = True
  16.         Exit Sub
  17.     End If   
  18. End Sub
  19. WORKBOOK_OPEN後 的狀態設成已儲存
  20. Private Sub Workbook_Open()
  21.     Sheets("Index").Select
  22.     For i = 1 To 4
  23.         ActiveSheet.OLEObjects("CommandButton" & i).Visible = False
  24.     Next
  25.    
  26.     ActiveSheet.OLEObjects("Textbox1").Activate
  27.    thisworkbook.saved=true
  28. End Sub
複製代碼
關時自動存
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     For Each Sh In Sheets
  3.     If Sh.Name <> "Index" Then Sh.Visible = False
  4.    thisworkbook.save
  5. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
3#
發表於 2012-6-29 09:04 | 只看該作者
其實會詢問你要不要儲存~ 這是有需要的~

有些時候在修改了某些資料時~ 有可能改錯~
若是不excel詢問的話~ 有可能會導致整個資料無法被救回來~
學習才能提升自己

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題