Sub MuutaTiedostot()

   Dim hake, suod, tied, pass, sivu, solu, uusi

   hake = "C:\temp\excel\" ' Muutettavat Excel-tiedostot täällä
   suod = "Book*.xlsm"     ' Ei tarvita, jos hakemistossa on vain muutettavat
   pass = "password"       ' Salasana, jolla tiedostot on suojattu
   sivu = "piilo"          ' Muutettava sivu
   solu = "A1"             ' Muutettava solu
   uusi = 123              ' Soluihin tuleva uusi arvo

   tied = Dir(hake & suod)
   Application.ScreenUpdating = False
   Do While tied <> ""
      Workbooks.Open Filename:=hake & tied, Password:=pass
      With Workbooks(tied)
         .Sheets(sivu).Range(solu) = uusi
         .Save
         .Close
      End With
      tied = Dir
    Loop
    Application.ScreenUpdating = True
End Sub