Call MacEnd Sub Модуль 1: Option Base 1 Type ÍîâûéÒèï; Class As String Time As String Day As String Look As String End Type Private Sub ShowAuthor() FrmAutor.Show End Sub Sub ÎòêðûòàËèÊíèãà(Ôàéë) ÈìÿÔàéëà = Dir(Ôàéë) If ÈìÿÔàéëà <> "" Then For Each ÎòêðûòûåÊíèãè In Workbooks If ÈìÿÔàéëà = ÎòêðûòûåÊíèãè.Name Then ÊíèãàÎòêðûòà = 1 Exit For Else ÊíèãàÎòêðûòà = 0 End If Next ÎòêðûòûåÊíèãè; Else ÊíèãàÎòêðûòà = -1 Exit Sub End If ' Ìåòîä âîçâðàùàåò 1 - åñëè êíèãà îòêðûòà, 0 - åñëè çàêðûòà, -1 - åñëè íå ñóùåñòâóåò;.
|
