自动删除excel文件,如果它改名
问题描述:
我正在工资的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
答
请尝试下面的代码..
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
+0
工作很好.....谢谢。 – iTech
@iTech这不是一个VBScript – GTAVLover
ØYaaaa。对不起。现在发布更新。我只有上面的代码。如果您了解这一点,请提供我的解决方案。 – iTech