不保存原文件，另存为并自动关闭

定宾

在文件中插入了控件，宏代码如下：
Sub test()
Static N&, Arr
If N < 5 Then
    ActiveSheet.Shapes.Range("button 1").TextFrame.Characters.Text = 5 - N & "秒后结束测验"
    N = N + 1
    Application.OnTime Now + TimeValue("00:00:01"), "test"
Else
    ActiveSheet.Shapes.Range("button 1").TextFrame.Characters.Text = "开 始 测 验"
    With ThisWorkbook
        .SaveCopyAs .Path & "\" & [e2].Value & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
        If Workbooks.Count > 1 Then .Close Else Application.Quit
    End With
       End If
End Sub
每次退出时，文件都自动保存且另存为，怎样修改可以实现，原文件不保存，只需要另存为并自动关闭原文件就可以，关闭原文件时也不需要跳出保存的窗口。

蓝桥玄霜

欢迎新会员！
With ThisWorkbook
        .SaveCopyAs .Path & "\" & [e2].Value & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
        If Workbooks.Count > 1 Then .Close Else Application.Quit
    End With
改为：
ThisWorkbook.Close False
Application.Quit

定宾

蓝桥玄霜 发表于 2012-12-30 10:51
欢迎新会员！
With ThisWorkbook
        .SaveCopyAs .Path & "\" & [e2].Value & Right(.Name, Len(.Na ...

谢谢解答，这样的话，就不能另存为了
在关闭之前，还要先另存为一份文件，另存为文件名称引用“E2”单元格内容，然后在不保存原文件并关闭，

蓝桥玄霜

With ThisWorkbook
        .SaveAs .Path & "\" & [e2].Value & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
       .Close False
    End With
Application.Quit

164227226

版主真厉害

定宾

蓝桥玄霜 发表于 2012-12-30 15:56
With ThisWorkbook
        .SaveAs .Path & "\" & [e2].Value & Right(.Name, Len(.Name) - InStrRev(.Na ...

谢谢  耐心解答  实现自己的想法了 全部代码如下
Sub test()
Static N&, Arr
If N < 5 Then
    ActiveSheet.Shapes.Range("button 1").TextFrame.Characters.Text = 5 - N & "秒后结束测验"
    N = N + 1
    Application.OnTime Now + TimeValue("00:00:01"), "test"
Else
    ActiveSheet.Shapes.Range("button 1").TextFrame.Characters.Text = "开 始 测 验"
   
      With ThisWorkbook
        .SaveCopyAs .Path & "\" & [e2].Value & Format(Now, "yyyymmddhhmmss") & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
             .Close False
    End With
Application.Quit
     End If
    End Sub

定宾

还有一个想法不知道怎样实现，就是把控件插在“Sheet1"工作表，当点击控件后，自动转跳到“Sheet2”工作表，并开始计时，计时显示器需要在“Sheet2”工作表页面显示{:soso_e134:}

蓝桥玄霜

建议初学者先学习Excel基础的、常用的知识，以解决工作中的实际问题，以后熟悉了再玩花哨的东西。
你的跳转问题：
sheet2.activate

定宾

蓝桥玄霜 发表于 2012-12-30 19:34
建议初学者先学习Excel基础的、常用的知识，以解决工作中的实际问题，以后熟悉了再玩花哨的东西。
你的跳转 ...

呵呵 以前一直学习函数，现在开始了解VBA，只是英语不好，有点难度啊，还望多多指教

eesems

蓝桥玄霜 发表于 2012-12-30 10:51
欢迎新会员！
With ThisWorkbook
        .SaveCopyAs .Path & "\" & [e2].Value & Right(.Name, Len(.Na ...

版主您好，有一问题希望能帮助解决：我按照论坛里的朋友的分享做了一个程序，达到了关闭文件后自动另存到一个指定文件夹里并按照系统时间自定义文件名，但我还想增加一个功能就是：（另存的文件只能看不能再编辑和删掉，并且原文件的宏不在出现）希望能给与帮助，谢谢，下面是我现有文件的程序请看，并将原文件一起发给您
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作簿时触发
    Application.DisplayAlerts = False
    On Error Resume Next
    MkDir ("D:\") & "\我的电子报单"
    ActiveWorkbook.SaveCopyAs "D:\我的电子报单\" & "A蜜粤电子报单济南万达" & "备份" & Format(Date, "yyyy-m-d ") & Format(Time, "hh.mm") & ".xls"
    Application.DisplayAlerts = True
End Sub