2013-04-10 41 views

回答

3

没有

要做到这一点,你将需要:如果用户使用Save而不是SaveAs

  • 提供自己的定制

    1. 拦截与一个Workbook事件
    2. 退出另存为SaveAs UserForm(UserForm1.Show下面作为未设计表单的示例行)

    注意Events应禁用,以防止您的用户窗体保存从重新调用Workbook_BeforeSave事件

    所有了 - 我会留在默认值!

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    'exit on Save 
    If Not SaveAsUI Then Exit Sub 
    Application.EnableEvents = False 
    Cancel = True 
    UserForm1.Show 
    Application.EnableEvents = True 
    End Sub 
    
  • +1

    '所有 - 我会保持默认!'我也是! – 2013-04-10 05:46:37