Formülleri gizlemek içinde alttaki gibi kullanabilirsiniz.

   With syfFirmalar

        .Cells.FormulaHidden = True

        .Protect

   End With

---

İlgili kodları alttaki gibi yaparsanız şifrelenmiş olur.

With syfFirmalar

        .Unprotect "12345"

        .Cells.Locked = True

    End With

With syfFirmalar

        .Cells.FormulaHidden = True

        .Protect "12345"

    End With