重复打开与关闭

fyhh

在Excel重复打开时会跳出一个选择是否以只读方式打开。公司里同事有的会选择只读方式打开，结果导致操作不能保存，前面做的工作又没保存。现在我想：
1、让工作薄上的叉叉(关闭)按钮失效，必须通过工作表1上建的一个按钮关闭，按钮关闭前保存再关闭工作薄。
2、能不能在重复打开时跳出窗口提示己打开，关闭这个提示窗口后激活这个己打开的工作薄。
恳请大神绅手！感谢！！！

fyhh

大神在哪呢？？

ww87725244

1. Option Explicit
   
2. Dim Bclose As Boolean
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4.     If Bclose = False Then
   
5.         Cancel = True
   
6.         MsgBox "此功能已经关闭，请使用""关闭""按钮关闭工作薄！", vbExclamation, "提示"
   
7.     End If
   
8. End Sub
   
9. Public Sub CloseWorkbook()
   
10.     Bclose = True
    
11.     Application.Quit
    
12. End Sub
    
13. Private Sub Workbook_Open()
    
14. Dim d As Object
    
15. On Error Resume Next
    
16. For Each d In Application.Windows
    
17.     If d.Caption = Me.Name Then
    
18.         MsgBox "文件已经打开"
    
19.         AppActivate Me.Name
    
20.         Exit For
    
21.     End If
    
22. Next
    
23. End Sub

复制代码

fyhh

谢谢，搞定！