自动删除excel文件，如果它改名

-3

我正在工资的Excel文件。我想在重命名后自动删除这个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

来源

2017-09-15 iTech

@iTech这不是一个VBScript – GTAVLover

ØYaaaa。对不起。现在发布更新。我只有上面的代码。如果您了解这一点，请提供我的解决方案。 – iTech

请尝试下面的代码..

 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

来源

2017-09-15 13:18:56 user3391693

工作很好.....谢谢。 – iTech

自动删除excel文件，如果它改名

回答

相关问题