Tegutsemisvõimelise tööriistariba näitamine tööriistadega seotud
lahtriplokis


'----------moodulis ------------

Sub lisaRiba()
  Dim riba As CommandBar
  Dim nupp As CommandBarControl
  On Error Resume Next 'et riba olemasolul veateadet ei antaks
  Set riba = CommandBars.Add("Pisiriba")
  Set nupp = riba.Controls.Add(Type:=msoControlButton, ID:=2950) 'nupule vastav number
  nupp.OnAction = "muudaReaKorgus"
  nupp.Caption = "Rea kõrguse muutmine"
  nupp.FaceId = 444
End Sub


Sub kustutaRiba()
  On Error Resume Next
  CommandBars("Pisiriba").Delete
End Sub

Sub naitaRiba()
  CommandBars("Pisiriba").Visible = True
End Sub

Sub peidaRiba()
  CommandBars("Pisiriba").Visible = False
End Sub

Sub muudaReaKorgus()
  ActiveCell.EntireRow.RowHeight = 10 + 30 * Rnd
End Sub


'----------lehe skriptis--------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row = 4 Then
     naitaRiba
  Else
     peidaRiba
  End If
End Sub


'---------raamatu skriptis------------------


Private Sub Workbook_Open()
  lisaRiba
  ActiveSheet.Range("B2").Value = "Neljandale reale liikudes avaneb
tööriistariba"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  kustutaRiba
End Sub