We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub smiley_face() 'macro to open all files within a folder and apply password strPassword = InputBox("Please enter your password") sPath = "S:\Circulation\R Winters\" sDir = Dir$(sPath & "*.xls", vbNormal) Do Until LenB(sDir) = 0 Application.AskToUpdateLinks = False Workbooks.Open Filename:=sPath & sDir, Password:=strPassword sDir = Dir$ Loop End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.