Loop through in folder, unlock VBAproject and Run Function

Hi,

I need a VBA code which would loop through in a specified folder which contains around 1000 excel macro files. The code will open an excel file, unlock VBA Project with a password and run Function from specified Module from the opened file, and close the workbook. This code should do the looping of the same code in all 1000 files one by one.

I really appreciate any help anyone can provide.

hmmmmm....sounds like a hacking effort to me. I'm sure you're not one though. the question isn't can you do this?, because that answer is probably. but rather the question is why would anyone ever have to do this?

I don’t understand why someone would have not build a tool with password protected VBA project, later he wants to used a function from same workbook? the issue was that I never thought about I will need to do this(looping and unlock project and run a function).

Sintek,
That’s what I am doing problem here is locked VBAProject and it’s stopping me to run function.

answer 3 here: https://stackoverflow.com/questions/...-a-vba-project

answer 1 here: https://superuser.com/questions/8079...ord-from-excel

https://www.thespreadsheetguru.com/passwordrecovery

https://exceloffthegrid.com/removing...ords-with-vba/

Originally Posted by Frm123

I don’t understand why someone would have not build a tool with password protected VBA project ...

If you know the password that protects the vba module of these files, use "SendKeys" statement, otherwise this topic is not suitable for this forum, because the rules of this forum prohibit topics about breaking passwords.

Originally Posted by sintek

Adam...Be careful...Rule 7...Contribution...

what? the password cracking links I posted? that's publicly available on the web. violation of policy here? let me read it....

Attachment 703222

Thanks Guys, I know the password so I am not trying to hack.

Sintek, That's what I thought as well, I should be able to call a function from another workbook without unlocking VBAProject. I tried my code again and it seems to work. but it failing certain occasion when file opened but macro is not enable. Do you have a fix for this?

I have attached the screen shot of an error.

I have provided the code below which I am running from the blank workbook. As I have said previously that, the code works fine when macro is enabled on the open workbook(from a specified folder). but it fails when workbook's macro is not enabled.






Sub LoopAllExcelFilesInFolder()
'PURPOSE: To loop through all Excel files in a user specified folder and perform a set task on them
'SOURCE: WWW dot TheSpreadsheetGuru dot com

Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim FldrPicker As FileDialog

'Optimize Macro Speed
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

'Retrieve Target Folder Path From User
Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

With FldrPicker
.Title = "Select A Target Folder"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo NextCode
myPath = .SelectedItems(1) & "\"
End With

'In Case of Cancel
NextCode:
myPath = myPath
If myPath = "" Then GoTo ResetSettings

'Target File Extension (must include wildcard "*")
myExtension = "*.xls*"

'Target Path with Ending Extention
myFile = Dir(myPath & myExtension)

'Loop through each Excel file in folder
Do While myFile <> ""
'Set variable equal to opened workbook
Set wb = Workbooks.Open(filename:=myPath & myFile)

'Ensure Workbook has opened before moving on to next line of code
DoEvents

'Open the file and run the macro
Set objExcel = CreateObject("Excel.Application")
Application.Run wb.Name & "!Functions_ALL.Database"
DisplayAlerts = False

'Save and Close Workbook
wb.Close SaveChanges:=True

'Ensure Workbook has closed before moving on to next line of code
DoEvents

'Get next file name
myFile = Dir
Loop

'Message Box when tasks are completed
MsgBox "Task Complete!"

ResetSettings:
'Reset Macro Optimization Settings
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub