[Tikyo]

A więc tak,
Mam makro, które z jednego źródłowego pliku, tworzy kilkaset plików . Chciałbym aby każdy plik był hasłowany hasłem, które znajduję się w 20 kolumnie skopiowanego wiersza. Czy ktoś wie jak dodać taką opcję?

`Sub dzielenie()
Dim siezka As String, sh As Worksheet, i As Integer

sciezka = "D:\nowy folder\"

Set sh = ActiveSheet

For i = 3 To 500
With Workbooks.Add
Union(sh.Rows("1:2"), sh.Rows(i)).Copy .Sheets(1).Rows(1)
.SaveAs sciezka & sh.Cells(i, 1).Value & ".xlsx", xlOpenXMLWorkbook
.Close
End With
Next

End Sub

#pytaniedoeksperta
#excel

[krzysiegc]

moze zrob tworzenie nowego pliku na loop, dodaj kolejna kolumne i wypelniasz w niej komorki za kazdym razem jak zostanie stworzony plik, nastepnie znajdz pierwsza pusta komorke i offset od niej do hasla, robisz string na haslo i potem tylko dodajesz password = string ? moge to napisac ale to za chwile

[Tikyo]

@krzysiegc: Bardzo byłbym wdzięczny, za to w przyszłości pomogę z zakresu prawa pracy.

[krzysiegc]

@Tikyo: dobra mam chwile, masz jakis plik przykladowy?

[DwaNiedzwiedzie]

@Tikyo: Dodaj na końcu wiersza z "SaveAs":
', .Sheets(1).Cells(3, 20)'

[krzysiegc]

@DwaNiedzwiedzie: on chyba chce na kazdy plik inne haslo

[DwaNiedzwiedzie]

@krzysiegc: Zgadza się.

[DwaNiedzwiedzie]

@Tikyo: Apostrofy dodał wypok, pomiń je przy wklejaniu (ale przecinka nie :). Może być też tak, powinno działać tak samo:

, sh.Cells(i, 20).Value

[Tikyo]

@DwaNiedzwiedzie: Dziękuje wszystko działa jak należy :)
@krzysiegc Tobie również dziękuję za chęć pomocy :)
Jeżeli będziecie mieli problem z dziedziny prawa pracy to chętnie pomogę :)