Function UnprotectXL(filePath,fileName,pwd,writeresPwd) Set objExcel=CreateObject(“Excel.Application”) objExcel.Visible=false testData=filePath&”\”&fileName Set oWorkbook=objExcel.Workbooks Set myWkbook=objExcel.Workbooks.open (testData,0,False,5,pwd,writeresPwd) objExcel.DisplayAlerts=False oWorkbook(fileName).Activate For Each w in objExcel.Workbooks w.SaveAs testData,,”",”" Next objExcel.Workbooks.Close objExcel.Quit Set oWorkbook=Nothing Set objExcel=Nothing End Function Function ProtectXL(filePath,fileName,pwd,writeresPwd) On Error Resume Next Set objExcel=CreateObject(“Excel.Application”) objExcel.Visible=False testData=filePath...
Comments