Worksheet protection
I am working with a group of files that unfortunately were protected. Is
there a way in Windows Explorer that I can unprotect all the files in a directory without having to open each file individually and select the unprotect option. |
Worksheet protection
See if this macro does the job:
Sub BatchUnprotect() Dim myFile myFile = Dir("C:\Data\*.xls") While myFile < "" Workbooks.Open myFile Workbooks(myFile).Unprotect Workbooks(myFile).Close myFile = Dir Wend End Sub HTH Kostis Vezerides |
All times are GMT +1. The time now is 04:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com