如果重命名，则自动删除excel文件答案

【问题标题】：Auto delete excel file if it renamed如果重命名，则自动删除excel文件
【发布时间】：2018-02-24 02:38:12
【问题描述】：

我正在处理工资的 Excel 文件。我想在重命名后自动删除这个 Excel 文件。我的意思是如果有人在重命名后打开它，那么它将被自动删除。我的代码正在运行，但它也会在不重命名文件的情况下将其删除。

Private Sub workbook_open()
    Dim xFileName As String
    xFileName = "Salary.xlsm"
    If xFileName <> "True" Then
        Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            ws.Visible = xlSheetVisible
        Next ws
        Sheets("User").Visible = xlVeryHidden
        Sheets("Pass").Visible = xlVeryHidden
    End If

    If xFileName <> "False" Then
        Me.ChangeFileAccess xlReadOnly
        MsgBox "File Name Changed- iTach"
        Kill Me.FullName
        Application.Quit
    End If
End Sub

【问题讨论】：

@iTech 这不是 VBScript
噢耶。对此感到抱歉。帖子已更新。我只有上面的代码。如果您知道这一点，请提供解决方案。

标签： excel excel-2007 vba

【解决方案1】：

请尝试以下代码..

        Private Sub workbook_open()
        Dim xFileName As String
        xFileName = "salary.xlsm"
        If xFileName = ThisWorkbook.Name Then
            Dim ws As Worksheet
            For Each ws In ThisWorkbook.Worksheets
            ws.Visible = xlSheetVisible
            Next ws
            Sheets("User").Visible = xlVeryHidden
            Sheets("Pass").Visible = xlVeryHidden
        Else
            Me.ChangeFileAccess xlReadOnly
            MsgBox "File Name Changed- iTach"
            Kill Me.FullName
            Application.Quit
        End If
        End Sub

【讨论】：