名前を変更するとExcelファイルが自動削除されます

Question

私は給料の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 

Answer 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