Dim menyy As CommandBar, tooriistariba As CommandBar
Sub varviMuutus()
  If TypeName(Application.Caller) = "String" Then
     ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(Rnd *
255, Rnd * 255, Rnd * 255)
     Application.StatusBar = Application.Caller
  End If
End Sub

Sub lisaRingid()
  Dim s As Shape
  Dim rida, veerg
  For rida = 1 To 4
    For veerg = 1 To 4
      Set s = ActiveSheet.Shapes.AddShape(msoShape8pointStar, _
       100 * rida, 100 * veerg, 30, 30)
      s.Name = "taht" & rida & veerg
      s.OnAction = "varviMuutus"
      Next veerg
  Next rida
  ActiveWindow.DisplayGridlines = False
  Application.DisplayFormulaBar = False
  Application.DisplayScrollBars = False
  ActiveWindow.DisplayOutline = False
  ActiveWindow.DisplayHeadings = False
  ActiveWindow.Caption = ""
  ActiveWindow.WindowState = xlMaximized

  Set menyy = CommandBars.Add("isiklik", msoBarTop, True, True)
  menyy.Visible = True
 
  For Each tooriistariba In Application.CommandBars
   If (tooriistariba.Visible And tooriistariba.BuiltIn And tooriistariba.Enabled) Then
    Application.StatusBar = tooriistariba.Name
    CommandBars(tooristariba.Name).Visible = False
   End If
  Next tooriistariba
End Sub

Sub kaotaRingid()
  For Each kujund In ActiveSheet.Shapes
    kujund.Delete
  Next kujund
  ActiveWorkbook.Saved = True
  menyy.Delete
End Sub