Копирование файла-шаблона

[Siver]

Как можно при открытии файла-шаблона вывести сообщение с предложением не портить шаблон, а сохранить его копию(например при нажатии кнопки ОК) и издеваться над ней?
У меня уже есть
код:
Private Sub Workbook_Activate()
If ActiveWorkbook.Name = "Шаблон_Отчета.xls" Then
If MsgBox("Это ШАБЛОН отчета! Необходимо скопировать его для формирования очередного отчета. Для того чтобы сделать копию - нажмите ОК, если вы хотите редактировать шаблон - нажмите Отмена, ", vbOKCancel + vbExclamation) = vbOK Then
ActiveWorkbook.SaveAs "ОчереднойОтчетПереименовать"
End If
End If
End Sub

Проблема только в том что мне нужно чтобы при нажатии "ОК" был выбор: Куда сохранить и с каким именем.

[EducatedFool]

Наиболее простой вариант решения задачи - использовать в качестве шаблона не книгу Excel, а шаблон Excel.

То есть сохраняете свой файл в формате шаблона ( с расширением .xlt ) - и при щелчке на нём будет автоматически создаваться копия шаблона в виде книги Excel.

Ну или используйте примерно такой код:

Private Sub Workbook_Activate()
    If ActiveWorkbook.Name = "Шаблон_Отчета.xls" Then
        Request:
        If MsgBox("Это ШАБЛОН отчета! Необходимо скопировать его для формирования очередного отчета." _
                  & vbNewLine & vbNewLine & "Для того чтобы сделать копию - нажмите ОК, если вы хотите редактировать шаблон - нажмите Отмена, " _
                  , vbOKCancel + vbExclamation) = vbOK Then
            newname = GetNewFileName
            If newname = "" Then
                ' нажата кнопка ОТМЕНА в диалоговом окне сохранения
                GoTo Request
            Else
                ' выбрано или введено имя файла
                ActiveWorkbook.SaveAs newname
            End If
        End If
    End If
End Sub

Function GetNewFileName() As String
    GetNewFileName = "": InitialFileName = ThisWorkbook.FullName: NewFileExt = ".xls"
    GetNewFileName = Application.GetSaveAsFilename _
                     (InitialFileName, "Копии моего шаблона (*" & NewFileExt & "),", , "Введите имя файла для сохранения копии шаблона", "Сохранить")
    If VarType(GetNewFileName) = vbBoolean Then GetNewFileName = "": Exit Function
    If GetNewFileName = "False" Or GetNewFileName = "Ложь" Then GetNewFileName = ""
End Function

[cent]

По моему код в данном случае абсолютно излишен!

Сообщение от EducatedFool

Наиболее простой вариант решения задачи - использовать в качестве шаблона не книгу Excel, а шаблон Excel.

То есть сохраняете свой файл в формате шаблона ( с расширением .xlt ) - и при щелчке на нём будет автоматически создаваться копия шаблона в виде книги Excel.
[/CODE]

Действительно достаточно сохранить шаблонную книгу как шаблон *xlt , а при открытии ее автоматически создается новая книга.... и шаблон остается невредимым

[Siver]

Сообщение от EducatedFool

Наиболее простой вариант решения задачи - использовать в качестве шаблона не книгу Excel, а шаблон Excel.

То есть сохраняете свой файл в формате шаблона ( с расширением .xlt ) - и при щелчке на нём будет автоматически создаваться копия шаблона в виде книги Excel.

М-мда... про такую штуку как - .xlt я не знал. Но код мне все-равно пригодится.
Так-что спасибо за всё!