Заставить пользователя не отменять или x из окна сохранения как - PullRequest
Новая
       18

Заставить пользователя не отменять или x из окна сохранения как

0 голосов
/ 14 июня 2019

Может кто-нибудь помочь мне, пожалуйста, так как я новичок в макросах, и мне нужно кое-как объединить эти два макроса.

Я хочу, чтобы мой макрос "Sub Auto_Open ()" не давал пользователям закрывать окно сохранения как точно так же, как второй макрос "Sub PreventCancel ()". 

Sub PreventCancel()

Dim fPth As Object Set fPth =
Application.FileDialog(msoFileDialogSaveAs) Dim result As Variant

With fPth
    .InitialFileName = CTAPath
    .InitialFileName = CTAName & "_CAP DATA"
    .Title = "Save with your CTA file"
    .InitialView = msoFileDialogViewList
    .FilterIndex = 2
    Do
        result = .Show
    Loop While result <> True    .Execute End With end sub

Sub Auto_Open() Dim Workbook_Name As Variant

MsgBox "Save to desktop prior to working", vbInformation + vbOKOnly,
"Hello Ops Team"

If Dir("R:\Provider Ops", vbDirectory) = "" Then    MsgBox "No
folder"    Exit Sub End If If ThisWorkbook.name = "Triaging for
Vendors.xlsm" Then Exit Sub Workbook_Name =
Application.GetSaveAsFilename("R:Provider Ops\Triaging for Vendors")
If Workbook_Name <> False Then
   ActiveWorkbook.SaveAs _
      FileName:=Workbook_Name & ".xlsx", _
      FileFormat:=51
End If

End Sub
...