Windows Analysis Report
SecuriteInfo.com.Script.SNH-gen.9465.5598.xls

Attribute VB_Name = "Arkusz1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "CommandButtonNo_AutoFiltr, 11201, 0, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonClone_Line, 11199, 1, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonDelete_Line, 11194, 2, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonInsert_Line, 11193, 3, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonSortuj, 11166, 4, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonImportujTXT, 1630, 5, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonEksport, 1822, 6, MSForms, CommandButton"
Attribute VB_Control = "CommandButtonClear, 1823, 7, MSForms, CommandButton"
Private Sub CommandButtonSortuj_Click()
 
    Dim Odp, Kom, Styl, Tytul
    'tmp = MsgBox("Dane zostay wyeksportowane pomylnie.", 64, "Eksport zlece")
    Kom = "Dane bd posortowane wg klucza: " & Chr(13) & Chr(13) & " -- Typ[2] /Char, [8] /Char, Nazwa PATNIKA[13] /Char, Nazwa odbiorcy[5] /Char -- " & Chr(13) & Chr(13) & "Czy kontynuowa?"
    Styl = vbYesNo + vbQuestion + vbDefaultButton2
    Tytul = "Sorting data"
    Odp = MsgBox(Kom, Styl, Tytul)
    
    If Odp = 6 Then
        Sortuj
    End If
    
End Sub

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'SelectedDate:=Date,     'MinimumDate:=Now(), 
    'moje (PK)
    On Error Resume Next
    
    'jeli zaznaczye wicej ni jedn komrk to nie pokazuj Kalendarza, moje (PK)
    If Target.Cells.Count > 1 Then Exit Sub
    
    
    If Not Intersect(Range("L6:L1005"), Target) Is Nothing Then
          '??
         Cancel = True
          
          Range(ActiveCell.Address) = CalendarForm.GetDate(             SelectedDate:=ActiveCell.Value,             FirstDayOfWeek:=Poniedziaek,             DateFontSize:=8,             TodayButton:=True,             OkayButton:=True,             ShowWeekNumbers:=True,             BackgroundColor:=RGB(             243, 249, 251), HeaderColor:=RGB(             147, 205, 2221), HeaderFontColor:=RGB(             255, 255, 255), SubHeaderColor:=RGB(             223, 240, 245), SubHeaderFontColor:=RGB(             31, 78, 120), DateColor:=RGB(             243, 249, 251), DateFontColor:=RGB(             31, 78, 120), TrailingMonthFontColor:=RGB(             155, 194, 230), DateHoverColor:=RGB(             223, 240, 245), DateSelectedColor:=RGB(             202, 223, 242), SaturdayFontColor:=RGB(             0, 176, 240), SundayFontColor:=RGB(             203, 108, 108), TodayFontColor:=RGB(             0, 176, 80))
    End If
End Sub
Private Sub CommandButtonNo_AutoFiltr_Click()
    
    ThisWorkbook.Worksheets("przelewy").Protect Password:="Cwws0K01", userinterfaceonly:=True, AllowFiltering:=True, AllowSorting:=True
    'If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
    If Worksheets("przelewy").FilterMode = True Then Worksheets("przelewy").ShowAllData

End Sub

Private Sub CommandButtonInsert_Line_Click()
    Insert_Line
End Sub

Private Sub CommandButtonClone_Line_Click()
    Clone_Line
End Sub

Private Sub CommandButtonDelete_Line_Click()
    Delete_Line
End Sub

Private Sub CommandButtonClear_Click()

    Dim Odp, Kom, Styl, Tytul
    Kom = "All data will be removed." & Chr(13) & Chr(13) & "Continue?"
    Styl = vbYesNo + vbCritical + vbDefaultButton2
    Tytul = "Removing data"
    Odp = MsgBox(Kom, Styl, Tytul)
    
    If Odp = 6 Then
        Clear
    End If

End Sub

Private Sub CommandButtonEksport_Click()
    ExportToTextFiles
End Sub

Private Sub CommandButtonImportujTXT_Click()
    ImportFromTextFile
End Sub

Private Sub CommandButtonImportujUNZ_Click()
    ImportFromUNZFile
End Sub

        Private Sub CommandButtonSoartuj_Click()
            
        End Sub

Private Sub Image1_Click()

End Sub

Attribute VB_Name = "CalendarForm"
Attribute VB_Base = "0{28C0B3E5-D5E1-4561-A6A7-F6141EB7D32D}{9EA17A6B-1403-4F06-8E94-50DAAA45D3A9}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'   CalendarForm
'   Developed by Trevor Eyre
'   trevoreyre@gmail.com
'   v1.4 - 09.29.2014
'   tumaczenie Adam Kope
'   2015-01-09
'
'   Ten wyskakujcy kalendarz moe by uyty przez zaimportowanie pliku
'   CalendarForm.frm do Twojego projektu VBA. Jest wywoywany przez funkcj GetDate.
'   Po instrukcj jak wywoa CalendarForm, przeskocz do dokumentacji funkcji GetDate
'   po sekcji Global Variables.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Infomacje oglne
'
'Celem stworzenia tego formularza byo przedewszystkim uniknicia potwornoci jak
'jest formant Microsoft MonthView. Jeli to czytasz, to prawdopodobnie wiesz
'o czym mwi. Wielu uytkownikw na moim miejscu stworzyo wasne
'wyskakujce kalendarze, eby rozwiza ten problem. Dlaczego stworzyem kolejny?
'
'
'Byem przede wszystkim zainteesowany nastpujcymi funkcjonalnociami:
'   -atwy w uyciu. Chciaem stworzy cakowicie samowystarczalny formularza, ktry mgby
'   zosta zaimportowany do dowolnego projektu VBA i by uyty bez adnego dodatkowego kodu.
'   -Prosty, atrakcyjny wygld. Wiele z zaprojektowanych w internecie wyskakujcych kalendarzy
'   wyglda i pracuje dobrze, to aden z nich nie speni moich oczekiwa pod wzgldem
'   stylu i desejnu Interfejsu Uytkownika
'   -Cakowicie konfigurowalny funkcjonalno i wygld. Zamieciem tyle opcji z formantu
'   MonthView ile tylko potrafiem, bez tworzenia zbytniego chaosu.
'
'Poniewa aden ze znalezionych przeze mnie wyskakujcych kalendarzy nie speni wszystkich
'moich oczewiwa, stworzyem wasny. Mam nadziej,  jaka inna umczona dua
'rwnie skorzysta z wynikw mojej pracy.
'
'Jeli natrafisz na jakiekolwiek bdy lub masz wspaniae pomysy lub potrzebujesz
'dodatkowej opcji, ktra usprawniaby tego niegrzecznego chopca, prosz wylij mi maila.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Global Variables
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

'Te dwie wartoci Enum s uyte w funkcji GetDate by uytkownik wybra pierwszy dzie
'tygodnia oraz zachowanie numerw tygodni. S one uyte w miejsce Excelowych staych
'vbDayOfWeek i vbFirstWeekOfYear w celu uniknicia mierzenia si z czasem systemowym,
'ktry jest opcj w obu tych staych. Poza tym wartoci s identyczne.
Public Enum calDayOfWeek
    Niedziela = 1
    Poniedziaek = 2
    Wtorek = 3
    roda = 4
    Czwartek = 5
    Pitek = 6
    Sobota = 7
End Enum

Public Enum calFirstWeekOfYear      'Kontroluje jak numery tygodni s obliczane i wywietlane
    FirstJan1 = 1                   'Tydzie z pierwszym Stycznia jest zawsze liczony jako pierwszy tydzie
    FirstFourDays = 2               'Pierwszy tydzie w Styczniu, ktry ma przynajmniej 4 dni jest
                                        'liczony jako pierwszy. To obliczenie bdzie si zmieina w zalenoci
                                        'od ustawie pierwszego dnia tygodnia. Standarf ISO
                                        'oblicza pierwszy tydzie jako pierwszy tydzie w Styczniu
                                        'z 4 dniami, gdzie Poniedziaek jest uznawany za pierwszy dzie tygodnia.
    FirstFullWeek = 3               'Pierwszy tydzie w Styczniu z wszystkimi dniami tygodnia jest liczony jako 1.
                                        'Podobnie jak ustawienie FirstFourDays, to obliczenie zmieni si
                                        'w zalenoci od ustawie pierwszego dnia tygodnia.
End Enum

Private UserformEventsEnabled As Boolean    'Kontroluje eventy formularza uytkownika
Private DateOut As Date                     'Data zwracana przez CalendarForm
Private SelectedDateIn As Date              'Wybrana data pocztkowa, jak i data aktualnie wybrana przez
                                                'uytkownika jeeli przycisk Okay jest wczony
Private OkayEnabled As Boolean              'Przechowuje warto, czy przycisk Okay jest wczony
Private TodayEnabled As Boolean             'Przechowuje warto, czy przycisk Today (Dzi) jest wczony
Private MinDate As Date                     'Minimalna data ustawiona przez uytkownika
Private MaxDate As Date                     'Maksymalna data ustawiona przez uytkownika
Private cmbYearMin As Long                  'Aktuualna dolna granica dla combobox roku. Nie koniecznie ograniczona do tego min
Private cmbYearMax As Long                  'Aktuualna grna granica dla combobox roku. Nie koniecznie ograniczona do tego max
Private StartWeek As VbDayOfWeek            'Pierwszy dzie tygodnia w kalendarzu
Private WeekOneOfYear As VbFirstWeekOfYear  'Pierwszy tydzie w roku uywasz numerw tygodni (gdy numery tygodni s ustawione)
Private HoverControlName As String          'Nazwa kontrolki/etykiety, nad ktr aktualnie unosi si kursor myszki. Wykorzystywana wtedy, gdy
                                                'przywracay jej oryginalnego koloru.
Private HoverControlColor As Long           'Oryginalny kolor kontrolki/etykiety nad ktr si aktualnie unosi kursor myszki
Private RatioToResize As Double             'Wspczynnik z jakim s przeskalowywane elementy formularza uytkownika. Jest ustawione przez argument DateFontSize
                                                'w funkcji GetDate
Private bgDateColor As Long                 'Kolor ta etykiety daty
Private bgDateHoverColor As Long            'Kolor ta etykiety daty kiedy najedasz na ni myszk
Private bgDateSelectedColor As Long         'Kolor ta etykiety daty, ktra jest wybrana
Private lblDateColor As Long                'Kolor czcionki dla etykiety daty
Private lblDatePrevMonthColor As Long       'Kolor czcionki dla etykiety dat nie z aktualnego miesica
Private lblDateTodayColor As Long           'Kolor czcionki dzisiejszej daty
Private lblDateSatColor As Long             'Kolor czcionki dla Soboty
Private lblDateSunColor As Long             'Kolor czcionki dla Niedzieli

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'GetDate
'
'Ta funkcja jest punktem wejcia do formularza CalendarForm. Kontroluje WSZYSTKO.
'Kady argument jest opcjonalny, co znaczy, e Twoje wywoanie funkcji moe by tak porste jak:
'
'   MyDateVariable = CalendarForm.GetDate
'
'To wszystko czego potrzeba. Kalendarz si otwiera, wyskakuje, uytkownik wybiera dat,
'wybrana data trafia do wskazanej przez Ciebie zmiennej, a kalendarz si wycza.
'
'Z tego miejsca moesz uy tak wiele lub tak mao argumentw jak potrzebujesz w celu uzyskania
'dokadnie takiego kalendarza, ktry odpowiada Twoim potrzebom. Wszystkie domylne wartoci s take ustawione w tej
'funkcji, wic jeli chcesz zmieni domylny kolor lub zachowanie bez potrzeby ustawiania go
'w kadej wywoywanej funkcji, moesz to zrobi w licie argumentw funkcji poniej.
'
'Poniej jest lista wszystkich argumentw, ich rodzaj i ich funkcjonalno/opcja:
'
'   SelectedDate (Date) - To jest wybrana data pocztkowa w kalendarzu. Domylnie
'       pokazuje ostatni wybr uytkownika. Jeeli ta warto jest ustawiona, to kalendarz bdzie
'       wskazywa miesic i rok w niej wskazany. Jeeli ta zmienna nie jest ustawiona, to kalendarz bdzie
'       rozpoczyna z dzisiejsz dat (bez zaznaczenia).
'   FirstDayOfWeek (calDayOfWeek) - Ustawia, ktry dzie tygodnia ma by traktowany jako pierwszy (np: Poniedziaek)
'   MinimumDate (Date) - Ograniczenie wybierania dat od dou (data minimalna).
'   MaximumDate (Date) - Ograniczenie wybierania dat od gry (data maksymalna)
'   RangeOfYears (Long) - Ustawia zasig dat w latach do pokazywania w oknie rozwijanym dat
'       w obu kierunkach od daty pocztkowej SelectedDate. Np: jeeli
'       SelectedDate jest w 2014 i RangeOfYears jest ustawiony na 10 (warto domylna),
'       okno rozwijane lat bdzie pokazywa od 10 lat poniej roku 2014 do 10 lat powyej 2014, czyli
'       bdzie to zakres od 2004 do 2024. We pod uwag, e jeli ten zakres bdzie poza granicami
'       ustawionymi przez MinimumDate lub MaximumDate, bdzie nadpisane. Dodatkowo ten
'       zakres NIE ogranicza lat, ktre uytkownik moe wybra. Jeeli grna granica w oknie rozwijanym
'       jest ustawiona do 2024, a uytkownik kliknie nastpny miesic tyle razy, e przekroczy
'       Grudzie 2024, bdzie przesuwa si dalej przez rok 2025 i dalej (i te lata
'       bd dodane do listy rozwijanej lat).
'   DateFontSize (Long) - Kontroluje rozmiar formularza CalendarForm. Ta warto nie moe
'       by ustawiona poniej 9 (wartoci domylnej). eby powikszy formularz, ustaw t warto na wiksz,
'       i wszystkie pozostae elementy w formularzu bd odpowiednio dopasowane.
'   TodayButton (Boolean) - Kontroluje czy ma si pokazywa przycisk Dzi.
'   OkayButton (Boolean) - Kontroluje czy ma si pokazywa przycisk Okay. Jeeli przycisk
'       Okay jest wczony, kiedy uytkownik wybierze dat podwietla si ona, ale
'       nie jest zwracana dopki uytkownik nie kliknie przycisku Okay. Jeeli przycisk Okay jest wyczony,
'       kliknicie daty automatycznie zwrci dat i wyczy formularz.
'   ShowWeekNumbers (Boolean) - Kontroluje czy maj si pokazywa numery tygodni.
'   FirstWeekOfYear (calFirstWeekOfYear) - Ustawia sposb liczenia/numeracji tygodni w roku. Zobacz
'       calFirstWeekOfYear Enum w sekcji Global Variables by zobaczy moliwoci wartoci
'       i ich zachowanie.
'   PositionTop (Long) - Ustawia pozycj grnej krawdzi formularza CalendarForm. Jeeli, adana warto
'       nie jest przypisana,  CalendarForm jest ustawiony w pozycji 1 - CenterOwner. We pod uwag, e
'       oba argumenty PositionTop i PositionLeft musz by ustawione by nadpisa ustawienia domylne
'       - wyrodkowan pozycj.
'   PositionLeft (Long) - Ustawia pozycj lewej krawdzi formularza CalendarForm. Jeeli, adana warto
'       nie jest przypisana,  CalendarForm jest ustawiony w pozycji 1 - CenterOwner. We pod uwag, e
'       oba argumenty PositionTop i PositionLeft musz by ustawione by nadpisa ustawienia domylne
'       - wyrodkowan pozycj.
'   BackgroundColor (Long) - Ustawia kolor ta formularza CalendarForm.
'   HeaderColor (Long) - Ustawia kolor ta nagwka. Nagwek jest etykiet na grze formularza
'       zawierajc rok i miesic.
'   HeaderFontColor (Long) - Ustawia kolor czcionki w nagwku.
'   SubHeaderColor (Long) - Ustawia kolor ta tekstu pod nagwkiem. Tekst pod nagwkiem
'       to skrt dnia tygodnia (Pn, Wt, itd).
'   DateColor (Long) - Ustawia kolor ta pojedynczej etykiety daty.
'   DateFontColor (Long) - Ustawia kolor czcionki pojedynczej etykiety daty.
'   SaturdayFontColor (Long) - Ustawia kolor czcionki dla Soboty.
'   SundayFontColor (Long) - Ustawia kolor czcionki dla Niedzieli.
'   DateBorder (Boolean) - Kontroluje czy pojedyncza etykieta daty ma krawdzie.
'   DateBorderColor (Long) - Ustawia kolor krawdzie etykiety daty. We pod uwag, e
'       argument DateBorder musi by ustawiony na True eby to ustawienie odnioso efekt.
'   DateSpecialEffect (fmSpecialEffect) - Ustawia efekt specjalny dla pojedynczych etykiet dat.
'       Ten argument moe by ustawiony na bump, etched, flat (warto domylna), raised, or sunken.
'       Ten argument moe zosta uyty by etykiety dat wyglday jak przyciski, jeli chcesz.
'       We pod uwag, e to ustawienie nadpisuje jakiekolwiek ustawienie krawdzi jakie wczysz.
'   DateHoverColor (Long) - Ustawia kolor ta gdy najedasz myszk nad
'       pojedyncz etykiet daty.
'   DateSelectedColor (Long) - Ustawia kolor ta wybranej daty.
'   TrailingMonthFontColor (Long) - Ustawia kolor dat w etykietach dat, ktre s z innego ni aktualny
'       miesic, czyli s to daty z poprzedniego miesica (u gry z lewej strony)
'       i nastpnego miesica (na dole z prawej strony).
'   TodayFontColor (Long) - Ustawia kolor dla dzisiejszej daty.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function GetDate(Optional SelectedDate As Date,     Optional FirstDayOfWeek As calDayOfWeek = Niedziela     , Optional MinimumDate As Date     , Optional MaximumDate As Date     , Optional RangeOfYears As Long     = 10, Optional DateFontSize As Long     = 9, Optional TodayButton As Boolean     = False, Optional OkayButton As Boolean = False, Optional ShowWeekNumbers As Boolean     = False, Optional FirstWeekOfYear As calFirstWeekOfYear = FirstJan1, Optional PositionTop As Long     = -5, Optional PositionLeft As Long = -5, Optional BackgroundColor As Long     = 16777215, Optional HeaderColor As Long     = 15658734, Optional HeaderFontColor As Long     = 0, Optional SubHeaderColor As Long     = 16448250, Optional SubHeaderFontColor As Long     = 8553090, Optional DateColor As Long     = 16777215, Optional DateFontColor As Long     = 0, Optional SaturdayFontColor As Long     = 0, Optional SundayFontColor As Long     = 0, Optional DateBorder As Boolean     = False, Optional DateBorderColor As Long = 15658734, Optional DateSpecialEffect As fmSpecialEffect     = fmSpecialEffectFlat, Optional DateHoverColor As Long     = 15658734, Optional DateSelectedColor As Long     = 14277081, Optional TrailingMonthFontColor As Long     = 12566463, Optional TodayFontColor As Long     = 15773696) As Date
    
    Dim DefaultFontSize As Long         'Domylny rozmiar czcionki(i zarazem minimalny). Uywant do skalowania za pomoc RatioToResize
    Dim TempDate As Date                'Uywany do ustalenie daty, jel adna nie zostaa podana
    Dim SelectedYear As Long            'Rok podanej daty
    Dim SelectedMonth As Long           'Miesic podanej daty
    Dim SelectedDay As Long             'Dzie podanej daty (jeli odpowiedni)
    Dim TempDayOfWeek As Long           'Uywany do ustawiania nagwkw dni tygodnia
    Dim i As Long                       'Uywane do ptli
    Dim j As Long                       'Uywane do ptli
    
    UserformEventsEnabled = False
    DefaultFontSize = 9
    
    'Domylne wartoci dla MinDate i MaxDate. Jeli ani MinimumDate ani MaximumDate
    'nie zostanie podana MinDate zostanie ustawiona na 1900-01-01, a MaxDate
    'na 9999-12-31. Jeeli MaxDate jest mniejsza ni MinDate, zostanie ustawiona na warto MinDate.
    If Year(MinimumDate) = 1899 Then
        MinDate = CDate("1/1/1999")
    ElseIf Year(MinimumDate) < 1999 Then
        MinDate = CDate("1/1/1999")
    Else
        MinDate = MinimumDate
    End If
    If Year(MaximumDate) = 1899 Then
        MaxDate = CDate("12/31/9999")
    Else
        MaxDate = MaximumDate
    End If
    If MaxDate < MinDate Then MaxDate = MinDate
    
    'Ustaw przyciski Okay i Dzi. Jeeli dzisiejsza data jest poza min/max, wtedy
    'przycisk Dzi zostanie wyczony, bez wzgldu na jego ustawienie.
    OkayEnabled = OkayButton
    TodayEnabled = TodayButton
    If Date < MinDate Or Date > MaxDate Then TodayEnabled = False

    'Warto pocztkowa pozycji formularza uytkownika. Domyln wartoci jest -5 da grnej i lewej krawdzi. Sprawd
    't warto czy inna warto nie zostaa zadana. Jeli nie, to ustaw pozycj
    'na CenterOwner. Musisz ustawi obie wartoci by nadpisa pozycj wyrodkowan (CenterOwner).
    If PositionTop <> -5 And PositionLeft <> -5 Then
        Me.StartUpPosition = 0
        Me.Top = PositionTop
        Me.Left = PositionLeft
    Else
        Me.StartUpPosition = 1
    End If
    
    'Warto pocztkowa rozmiaru formularza uytkownika. Jeeli rozmiar czcionki jest mniejsza ni domylna, wtedy
    'zostanie ustawiona na domyln. RatioToResize jest skal ustawionego rozmiaru czcionki do
    'domylnego rozmiaru. Ta zmiennna jest wykorzystana by przeskalowa pozostae elementy kalendarza.
    If DateFontSize < DefaultFontSize Then DateFontSize = DefaultFontSize
    RatioToResize = DateFontSize / DefaultFontSize
    Call SetUserformSize(DateFontSize, ShowWeekNumbers)
    
    'Ustawianie SelectedDateIn. Rok bdzie ustawiony na 1899 jeeli adna data nie zostanie podana
    'w takim przypadku data zostanie ustawiona na dzisiejsz dat. Jeeli wskazana data jest
    'poza granicami minimalnej lub maksymalnej daty, zostanie odpowiednio nadpisana.
    If Year(SelectedDate) <> 1899 Then
        If SelectedDate < MinDate Then
            SelectedDate = MinDate
        ElseIf SelectedDate > MaxDate Then
            SelectedDate = MaxDate
        End If
        SelectedDateIn = SelectedDate
        SelectedYear = Year(SelectedDateIn)
        SelectedMonth = Month(SelectedDateIn)
        SelectedDay = Day(SelectedDateIn)
        Call SetSelectionLabel(SelectedDateIn)
    Else 'Jeli SelectedDate nie podana zamie na dzisiejsz dat.
        cmdOkay.Enabled = False
        TempDate = Date
        If TempDate < MinDate Then
            TempDate = MinDate
        ElseIf TempDate > MaxDate Then
            TempDate = MaxDate
        End If
        SelectedYear = Year(TempDate)
        SelectedMonth = Month(TempDate)
        SelectedDay = 0 'Nie chcemy podwietla zaznaczonej daty poniewa uytkownik nie poda adnej.
        Call SetSelectionLabel(Empty)
    End If
    
    'Pocztkowy miesic i rok na licie rozwijanej (combobox) oraz miesic na pasku przewijania.
    'Upewnia si, e rok jest z przedziau od 1900 do 9999. Jeeli lista rozwijana wypadnie
    'poza granice MinDate lub MaxDate zostanie nadpisana.
    Call SetMonthCombobox(SelectedYear, SelectedMonth)
    scrlMonth.Value = SelectedMonth
    cmbYearMin = SelectedYear - RangeOfYears
    cmbYearMax = SelectedYear + RangeOfYears
    If cmbYearMin < Year(MinDate) Then
        cmbYearMin = Year(MinDate)
    End If
    If cmbYearMax > Year(MaxDate) Then
        cmbYearMax = Year(MaxDate)
    End If
    For i = cmbYearMin To cmbYearMax
        cmbYear.AddItem i
    Next i
    cmbYear.Value = SelectedYear
    
    'Ustaw kolory i efekty kalendarza (formularza)
    Me.BackColor = BackgroundColor
    bgHeader.BackColor = HeaderColor
    bgScrollCover.BackColor = HeaderColor
    lblMonth.ForeColor = HeaderFontColor
    lblYear.ForeColor = HeaderFontColor
    lblSelection.ForeColor = SubHeaderFontColor
    lblSelectionDate.ForeColor = SubHeaderFontColor
    bgDayLabels.BackColor = SubHeaderColor
    For i = 1 To 7
        Me("lblDay" & CStr(i)).ForeColor = SubHeaderFontColor
    Next i
    If ShowWeekNumbers Then
        lblWk.ForeColor = SubHeaderFontColor
        For i = 1 To 6
            Me("lblWeek" & CStr(i)).ForeColor = SubHeaderFontColor
        Next i
    End If
    bgDateColor = DateColor
    lblDateColor = DateFontColor
    lblDateSatColor = SaturdayFontColor
    lblDateSunColor = SundayFontColor
    For i = 1 To 6
        For j = 1 To 7
            With Me("bgDate" & CStr(i) & CStr(j))
                If DateBorder Then
                    .BorderStyle = fmBorderStyleSingle
                    .BorderColor = DateBorderColor
                End If
                .SpecialEffect = DateSpecialEffect
            End With
        Next j
    Next i
    bgDateHoverColor = DateHoverColor
    bgDateSelectedColor = DateSelectedColor
    lblDatePrevMonthColor = TrailingMonthFontColor
    lblDateTodayColor = TodayFontColor
    
    'Ustaw nagwki dla dni tygodnia na podstawie wybranego pierwszego dnia tygodnia
    StartWeek = FirstDayOfWeek
    WeekOneOfYear = FirstWeekOfYear
    TempDayOfWeek = StartWeek
    For i = 1 To 7
        Me("lblDay" & CStr(i)).Caption = Choose(TempDayOfWeek, "N", "Pn", "Wt", "r", "Cz", "Pt", "So")
        TempDayOfWeek = TempDayOfWeek + 1
        If TempDayOfWeek = 8 Then TempDayOfWeek = 1
    Next i
            
    'Ustaw etykiety miesica i roku w nagwku oraz etykiety dat (dni)
    Call SetMonthYear(SelectedMonth, SelectedYear)
    Call SetDays(SelectedMonth, SelectedYear, SelectedDay)
    
    'Poka kalendarz (formularz). Zwr wybran dat i wycz kalendarz
    UserformEventsEnabled = True
    Me.Show
    GetDate = DateOut
    Un

Attribute VB_Name = "Module1"
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260

Type BrowseInfo
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszINSTRUCTIONS As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type

#If VBA7 Then
    Declare PtrSafe Function SHGetPathFromIDListA Lib "shell32.dll" (        ByVal pidl As Long,      ByVal pszBuffer As String) As Long

    Declare PtrSafe Function SHBrowseForFolderA Lib "shell32.dll" (        lpBrowseInfo As BrowseInfo) As Long
 #Else
    Declare Function SHGetPathFromIDListA Lib "shell32.dll" (        ByVal pidl As Long,       ByVal pszBuffer As String) As Long

    Declare Function SHBrowseForFolderA Lib "shell32.dll" (        lpBrowseInfo As BrowseInfo) As Long
#End If
 


Function BrowseFolder(Optional Caption As String = "") As String

    Dim BrowseInfo As BrowseInfo
    Dim FolderName As String
    Dim ID As Long
    Dim Res As Long

    With BrowseInfo
        .hOwner = 0
        .pidlRoot = 0
        .pszDisplayName = String$(MAX_PATH, vbNullChar)
        .lpszINSTRUCTIONS = Caption
        .ulFlags = BIF_RETURNONLYFSDIRS
        .lpfn = 0
    End With

    FolderName = String$(MAX_PATH, vbNullChar)

    ID = SHBrowseForFolderA(BrowseInfo)

    If ID Then
        Res = SHGetPathFromIDListA(ID, FolderName)
        If Res Then
            BrowseFolder = Left$(FolderName, InStr(FolderName,                 vbNullChar) - 1)
        End If
        End If

End Function

Attribute VB_Name = "Module9"
Const START_ROW = 6
Const END_ROW = 1005
Const END_COL = "AG"

Sub Clear()
Attribute Clear.VB_Description = "Makro zarejestrowane 2005-11-02"
Attribute Clear.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Clear Makro
' Makro zarejestrowane 2005-11-02
'
Dim i As Integer
Const END_ROW = 505
'For i = 2 To 52 Step 2
'    Range(Cells(6, i), Cells(END_ROW, i)).ClearContents
'Next
'Range(Cells(6, 2), Cells(END_ROW, 27)).ClearContents
Range("_zlecenia_DANE").ClearContents

Cells(6, 1).Select
End Sub
Sub Sortuj()
'
' Sortuj Makro
' Makro zarejestrowane 2015-04-02
'
'Dim i As Integer

    Const START_ROW = 6
    Const END_ROW = 505
    
    Application.ScreenUpdating = False
            
    'Range(Cells(START_ROW, 2), Cells(END_ROW, 29)).Sort Key1:=Range(Cells(START_ROW, 5)), Order1:=xlAscending, Header:=xlNo
    'Range(Cells(START_ROW, 2), Cells(END_ROW, 29)).Sort Key1:=Cells(START_ROW, 5), Order1:=xlAscending, Header:=xlNo
    
    'ThisWorkbook.Worksheets("przelewy").Protect Password:="Cwws0K01", userinterfaceonly:=True
    'Protect, even if already protected
       
    'ThisWorkbook.Worksheets("przelewy").AutoFilterMode = True
    
    
        'ActiveSheet.Range("_zlecenia_DANE").AutoFilter
    
    'ThisWorkbook.Worksheets("przelewy").Protect Password:="Cwws0K01", DrawingObjects:=True,     'Contents:=True, Scenarios:=True, AllowFiltering:=True,     'userinterfaceonly:=True
    

    
    'Range(Cells(START_ROW, 2), Cells(END_ROW, 29)).Sort Key1:=Cells(START_ROW, 2), Order1:=xlAscending, Key2:=Cells(START_ROW, 8), Order2:=xlAscending, Key3:=Cells(START_ROW, 5), Order2:=xlAscending, Header:=xlNo
    'to samo co wyej ale sortowany obszar to nazwa zdefiniowanego zakresu danych zlece (bez kolumny Lp)
        'Range("_zlecenia_DANE").Sort Key1:=Cells(START_ROW, 2), Order1:=xlAscending, Key2:=Cells(START_ROW, 8), Order2:=xlAscending, Key3:=Cells(START_ROW, 5), Order3:=xlAscending, Header:=xlNo
    
    'to samo co wyej ale sortowany obszar to nazwa zdefiniowanego zakresu danych zlece (bez kolumny Lp)
    'poniewa jest wicej ni 3 klucze sortowania, sortowanie od tyu tj. najpierw 4-ty klucz a potem 3 pierwsze
    Range("_zlecenia_DANE").Sort Key1:=Cells(START_ROW, 5), Order1:=xlAscending, Header:=xlNo
    Range("_zlecenia_DANE").Sort Key1:=Cells(START_ROW, 2), Order1:=xlAscending, Key2:=Cells(START_ROW, 8), Order2:=xlAscending, Key3:=Cells(START_ROW, 13), Order3:=xlAscending, Header:=xlNo
    
    
        'sortuj cay zakres, razem z Lp. Potem, po wykonaniu dziaa dla tworzenia pliku zlece, powrt do wykazu posortowanego po Lp (jak byo pierwotnie).
        'poniewa jest wicej ni 3 klucze sortowania, sortowanie od tyu tj. najpierw 4-ty klucz a potem 3 pierwsze
            'Range("_zlecenia_LP").Sort Key1:=Cells(START_ROW, 19), Order1:=xlAscending, Header:=xlNo
            'Range("_zlecenia_LP").Sort Key1:=Cells(START_ROW, 2), Order1:=xlAscending, Key2:=Cells(START_ROW, 13), Order2:=xlAscending, Key3:=Cells(START_ROW, 12), Order3:=xlAscending, Header:=xlNo
        'sortuj cay zakres, razem z Lp po wartoci Lp aby powrci do wykazu pierwotnego uytkownika (po obliczeniach).
            'Range("_zlecenia_LP").Sort Key1:=Cells(START_ROW, 1), Order1:=xlAscending, Header:=xlNo
    
    Application.ScreenUpdating = True
    
    Cells(6, 1).Select
End Sub

Sub ClearPayroll()
ActiveWorkbook.Activate
'
' Clear Makro
' Makro zarejestrowane 2005-11-02
'
Dim i As Integer
Const END_ROW = 505
For i = 2 To 8
    Range(Cells(6, i), Cells(END_ROW, i)).ClearContents
Next
For i = 10 To 11
    Range(Cells(6, i), Cells(END_ROW, i)).ClearContents
Next
Cells(6, 1).Select
End Sub

Sub FillPipes()
Attribute FillPipes.VB_Description = "Makro zarejestrowane 2005-11-02"
Attribute FillPipes.VB_ProcData.VB_Invoke_Func = " \n14"
    Dim i As Integer
    Const END_ROW = 505
    For i = 3 To 51 Step 2
        Range(Cells(6, i), Cells(END_ROW, i)) = "|"
    Next
End Sub