Please...Need help running macro in another workbook.

[pedie]

my current code which does not work:

Sub Test1()
Dim wb As Workbook, x As String
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then x = wb.Name
Next wb
MsgBox "The other open workbook is named " & x & "Book2" & vbCrLf & _
"Click OK to activate it."
Workbooks(x).Activate
Cells.Activate
Range("A1").Value = "Hello!"
Range("A3").Select
Range("A3").Formula = "=A1"
Workbooks(x).AcceptAllChanges
Workbooks(x).Save
Workbooks(x).Close
End Sub

Please advice how it works!
Pedies

 

[pedie]

I can't say what you are doing wrong, I saved a blank Workbook called "Pass123" using the password "123", to the location above.
Using the Office Button, Prepare, Encrypt Document method, then I run the code from post #24, with the location changed as above, and the code works as expected.
Are you doing something different.

Brain, thank you so much for helping. Just one more thing...could you please help me understand the ones quoted in blue?

 

[pedie]

Brian, thank you soo much it worked now...!

Thanks alot!