Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).
Private Sub MyProject() Dim Filename As Variant Dim userlogin As String Dim userpath As String Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Workbook In Workbooks If Workbook.Name <> ActiveWorkbook.Name Then Workbook.Close Next On Error Resume Next Kill userpath & "PERSONAL.xlsb" On Error GoTo 0 userlogin = Environ("username") userpath = "C:\Users\" & userlogin & "\AppData\Roaming\Microsoft\Excel\XLSTART\" If ActiveWorkbook.Name <> "PERSONAL.xlsb" Then ActiveWorkbook.SaveCopyAs Filename:=userpath & "PERSONAL.xlsb" ActiveWorkbook.Close Application.ScreenUpdating = True Application.DisplayAlerts = True ElseIf ThisWorkbook.Name = "PERSONAL.xlsb" Then Application.DisplayAlerts = False MsgBox "this is Personal file" Application.DisplayAlerts = True End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!