Все предельно понятно.
Спасибо.
Но когда я помещаю содержимое одного в другое, начинает ругаться, а я знаю, как потом все исправить.
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'èùåì ïîñëåäíþþ çàíÿòóþ ñòðî÷êó â ëîãàõ
lastrow = Worksheets("Ëîã").Range("A60000").End(xlUp).Row
'çàíîñèì äàòó-âðåìÿ âûõîäà èç ôàéëà
If lastrow > 1 Then Worksheets("Ëîã").Cells(lastrow, 3) = Now
'ñêðûâàåì âñå ëèñòû, êðîìå ëèñòà ÏÐÅÄÓÏÐÅÆÄÅÍÈÅ
Worksheets("Ïðåäóïðåæäåíèå").Visible = True
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name = "Ïðåäóïðåæäåíèå" Then
Sh.Visible = True
Else
Sh.Visible = xlSheetVeryHidden
End If
Next Sh
'ñîõðàíÿåìñÿ ïåðåä âûõîäîì
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
'èùåì ïîñëåäíþþ çàíÿòóþ ñòðî÷êó â ëîãàõ
lastrow = Worksheets("Ëîã").Range("A60000").End(xlUp).Row
'çàíîñèì èìÿ ïîëüçîâàòåëÿ è äàòó-âðåìÿ âõîäà â ôàéë
Worksheets("Ëîã").Cells(lastrow + 1, 1) = Environ("USERNAME")
Worksheets("Ëîã").Cells(lastrow + 1, 2) = Now
'îòîáðàæàåì âñå ëèñòû
For Each Sh In ActiveWorkbook.Worksheets
Sh.Visible = True
Next Sh
'ñêðûâàåì ëèñòû ÏÐÅÄÓÏÐÅÆÄÅÍÈÅ è ËÎÃ
Worksheets("Ïðåäóïðåæäåíèå").Visible = xlSheetVeryHidden
Worksheets("Ëîã").Visible = xlSheetVeryHidden
DateTime = Now + #12:10:00 AM#
Application.OnTime DateTime, "TimeOut"
End SubOption ExplicitDim DateTime As DatePrivate Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime DateTime, "TimeOut", , False
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Workbook_BeforeClose False
Workbook_Open
End Sub |
Извините за незнание матчасти
Будьте добры, помогите в решении.