vba - 确保文件名以特定字符串开头

Question

我一直在玩这个代码。理想情况下，我可以强制用户将文件名保存为以 Lowpar 开头，尽管我可以做到这一点，但代码无法有效工作。例如，我想调用文件 Lowpar2016 但使用此代码将无法正常工作。

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim NamePath As String
Dim strName As String
Dim lFind As Long

   If SaveAsUI = True Then' unless this is set to <> true, it does not work
      Cancel = True
      With Application
          .EnableEvents = False
          NamePath = .GetSaveAsFilename
          strName = Mid(NamePath, InStrRev(NamePath, "\", -1, vbTextCompare) + 1, 256)

          If NamePath = "False" Then' this is part of the code that confuses me
              .EnableEvents = True
              Exit Sub
          ElseIf left(strName,6) <> "Lowpar" Then
              MsgBox "You cannot save as another name"
              .EnableEvents = True
              Exit Sub
          Else
              Me.SaveAs NamePath
              .EnableEvents = True
          End If
      End With
   End If
End Sub

Answer 1

以下重构代码将强制名称以 LowPar 开头如果还没有:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim NamePath As String
Dim strName As String
Dim lFind As Long

   If SaveAsUI = True Then ' unless this is set to <> true, it does not work

    Cancel = True
    With Application

        .EnableEvents = False
        NamePath = .GetSaveAsFilename
        strName = Mid(NamePath, InStrRev(NamePath, "\", -1, vbTextCompare) + 1, 256)

        If NamePath = "False" Then ' this is part of the code that confuses me
            .EnableEvents = True
            Exit Sub
        ElseIf Left(strName, 6) <> "Lowpar" Then
            NamePath = "LowPar_" & NamePath
        End If

        Me.SaveAs NamePath
        .EnableEvents = True

    End With

   End If

End Sub