title: Open Password Protected Workbook with VBA
body: <p>I have wb1 and wb2. wb1 is used for data entry and wb2 is used to record that data. wb2 is password protected (let's say with "password").</p>
  
  <p>The VBA below is in wb1 and is run on a button click. As it is now, a box pops up requesting the password for wb2 before the VBA is done running. Is there a way to use VBA to enter "password" in that box?</p>
  
  <p>I'm fairly new to VBA, so I'm open to other suggestions as well. Thanks!</p>
  
  <pre><code>Sub OpenClose()
  
  Application.ScreenUpdating = False
  
  Dim wb1 As Workbook
  Dim wb2 As Workbook
  
  Set wb1 = ThisWorkbook
  Set wb2 = Workbooks.Open("C:\Users...")  'I have taken out the rest of the file path
  
  wb1.Activate
      Sheets("Entry").Activate
          Range("A1:A5").Select
              Selection.Copy
  
  wb2.Activate
      Sheets("Log").Activate
          Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
              SkipBlanks:=False, Transpose:=True
  
  wb2.Save
  wb2.Close
  
  Set wb1 = Nothing
  Set wb2 = Nothing
  
  MsgBox "Logged and saved."
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>