Formül Gizleme

Hücre içerisine yazılan formulün görünmesini istemiyorum.Bunu VB kod ile nasıl yapabiliriz.

merhaba
kodları sayfanın Thiswoorkbok Sayfasına kopyalayıp formül yazdıktan sonra alt+f8 kombinasyonunda çalıştıra basınız

Kod:
Sub Auto_Open() 
Cells.Select 'Range("formüllü hücreler").Select
    Selection.Locked = True 
    Selection.FormulaHidden = True 
    Range("[COLOR="Red"]a1[/COLOR]").Select 
Sheets("Sayfa1").Protect Password:="123" 
End Sub
kırmızı olan yer hücredir.

'***********Dosyayı kapatırken ise***********************
Kod:
Sub Auto_Close() 
Sheets("Sayfa1").Unprotect Password:="123" 
Cells.Select 'Range("formüllü hücreler").Select
    Selection.Locked = False 
    Selection.FormulaHidden = False 
    Range("a1").Select 
End Sub

not : kodlar alıntıdır.
 
.............................
 
Son düzenleme:
Selamlar.
Kodları dediğiniz gibi ekliyorum.Fakat excel kapanıyor.Hatanın görüntülerini ekledim.Bakabilirmisiniz acaba?
 

Ekli dosyalar

Geri
Üst