aslında 1 hilesi var gibi ama biraz uğraştırır. eğer  gizleyeceğiniz hücrenin içeriği değişmeyecekse;
1 - belirttiğiniz sayfadaki tüm hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini devre dışı bırakın
2 - gizleyeceğiniz hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini etkinleştirin
3 - gizleyeceğiniz hücrelerin yazı rengini beyaz yapın
4 - sayfayı şifre korumalı yapın ama 3 özelliğini devredışı bırakın

5 - sayfaya bir buton ekleyip, butonun resim yazısını "Gizle" yapın
6 - butonun tıklama kodu;

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "gizle" Then

    CommandButton1.Caption = "göster"

    Range("a3").Font.Color = RGB(255, 255, 255)

    'diğer hücreleri için aynı kod

Else

    CommandButton1.Caption = "gizle"

    Range("a3").Font.Color = RGB(0, 0, 0)

    'diğer hücreleri için aynı kod

End If

End Sub

dilerim işinize yarar