We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim UpdateFile As Long Dim fso As Object Dim ts As Object Dim arr As Variant Dim Counter As Long Const FilePath As String = "w:\extract.txt" UpdateFile = MsgBox("Do you want to update the Extract file?", vbQuestion + vbYesNo, "Update") If UpdateFile = vbYes Then Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(FilePath, True) With ThisWorkbook.Worksheets("Extract") arr = Intersect(.UsedRange, .[a:a]).Value End With For Counter = 1 To UBound(arr, 1) ts.WriteLine arr(Counter, 1) Next ts.Close Set ts = Nothing Set fso = Nothing MsgBox "The file has been updated successfully." Else MsgBox "Text file not updated at this time." End If End Sub
|Random times with 12/24 hour switching||9||28|
|Is there a way to link Access 2003 app to an xlsx sheet?||6||25|
|Data Macro to analyze Audit trail information||5||13|
|NEED TRANSFER DATA||59||24|