what im trying to get happen in this code is after it copys the value into cell H13 in each workbook I want it to lock the sheet "measurements" in each workbook..
but then it must unlock then the code is run again
MyNum = ThisWorkbook.Sheets("Measurements").Range("H13").value
On Error Resume Next
For Each MyWb In Array("eqdcs 1.xlsm", "eqdcs 2.xlsm", "eqdcs 3.xlsm", "eqdcs 4.xlsm", "eqdcs 5.xlsm", "eqdcs 6.xlsm")
Application.ScreenUpdating = False
Set wbOPEN = Workbooks(MyWb)
If Not wbOPEN Is Nothing Then
WasOpen = True
Else
Set wbOPEN = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & MyWb)
End If
ThisWorkbook.Sheets("Measurements").Unprotect Password:="password"
wbOPEN.Sheets("measurements").Range("H13").value = MyNum
If WasOpen Then
wbOPEN.Protect Password:="password"
wbOPEN.Save
Else: wbOPEN.Close True
Set wbOPEN = Nothing
WasOpen = False
End If
Next MyWb
ThisWorkbook.Save
Bookmarks