901459260

Microsoft Visual Basic - EVB5 - rozwiązanie.xls

H

& ©

£ p

► » ■

i® ia?

@1

Project - EVB5

(General)

EVB5 - rozwiązanie.xls - ThisWorkbook (Codę)

▼ (Declarations)

i Q Arkuszl (Arkusz)

| Q Arkusz4 (Lista) i Ę3 Arkusz5 (Loop) i Q Arkusz6 (Formularz) Q Arkusz8 (zachód)

Q Arkusz9 (północ)

¹ Q_ ThisWorkbook Modules Funkcje Kody

-4t Makro Modulel •«* Module2

Module3_

Private Sub Workbook_Open() Cali PasekMenu End Sub

Properties - ThisWorkbook    *1

ThisWorkbook Workbook Alphabetic Categorized |

(Name)	ThisWorkbook
AccuracyVersion	0
AutoSaveOn	False
AutoUpdateFrequencv	0
ChangeHistoryDuratio	0
ChartDataPointT rack	False
CheckCompatibility	True

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Not Me.Saved Then

Msg = "Czy chcesz zapisać zmiany"

Msg = Msg & "" & Me.Name & "?"

Odp = MsgBox(Msg, vbQuestion + vbYesNoCancel) Select Case Odp Case vbYes Me.Save Case vbNo

Me.Saved = True Case vbCancel Cancel = True Exit Sub End Select End If

Cali UsunPasekMenu End Sub