MS Excel

Téma: Skrývat sloupce ve sdíleném souboru

Zaslal/a jablicko85 4.9.2012 14:13

Dobrý den,

mám udělané tlačítko, které pomocí makra skryje určité sloupce odpovídající podmínce. Problém a to velký mi nastal ve chvíli, kdy potřebuju toto tlačítko použít ve sdíleném sešitě....zkoušel jsem to takto

Private Sub CommandButton1_Click()

ActiveWorkbook.ExclusiveAccess = False
ActiveSheet.Unprotect Password:="heslo"
ShowCol
Rows("1:1").SpecialCells(xlCellTypeFormulas, 21).EntireColumn.Hidden = True

ActiveSheet.Protect Password:="heslo", AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.SaveAs Filename, , , , , , xlShared
End Sub

To mi však hází chybu, nevíte, jak to obejít?

Díky moc