Pom20

Makra (Propojení s Microsoft Excel)

Převod na hodnoty

(označ vše, zkopíruj, vlož jinak - hodnoty)

Cells.Select
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
       SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Range("A1").Select
End Sub

Obarvení jména listu

Pevně určený název listu

Sheets("1.7.2015").Select
   With ActiveWorkbook.Sheets("1.7.2015").Tab
       .Color = 5287936
       .TintAndShade = 0
   End With

Aktivní list

With ActiveWorkbook.ActiveSheet.Tab
   .Color = 5287936
   .TintAndShade = 0
End With

Zamknutí listu

  Sheets("1.6.2015").Select
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Jméno aktivního listu

aktivni_list = ActiveSheet.Name

Odkazy

• Propojení s Microsoft Excel