Rem Attribute VBA_ModuleType=VBADocumentModule
Sub ЭтаКнига
Rem Sub KillLinks()
Rem On Error Resume Next
Rem Dim x As Integer
Rem Dim a As Integer
Rem Dim c As Double
Rem x = 20
Rem a = 0
Rem c = x / a
Rem x = 10
Rem a = 3
Rem c = 10 / 3
Rem 
Rem Dim iLinks As Variant, i&
Rem iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
Rem If Not IsEmpty(iLinks) Then
Rem For i = 1 To UBound(iLinks)
Rem ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
Rem Next i
Rem End If
Rem End Sub
Rem 
Rem Private Sub Workbook_BeforeClose(Cancel As Boolean)
Rem ActiveWorkbook.Protect Password:="Otchet2014", Structure:=True, Windows:=True
Rem ActiveWorkbook.Save
Rem ThisWorkbook.Saved = True
Rem End Sub
Rem 
Rem Sub vid()
Rem Application.DisplayFullScreen = True
Rem End Sub
Rem 
Rem Sub vid1()
Rem Application.DisplayFullScreen = False
Rem End Sub
Rem 
Rem Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Rem Worksheets("1Е").Range("A36").Value = Sh.Index
Rem End Sub
End Sub