Excel Modul Uyarı Acil cevap

[dostlar2]

Bana Yardımcı oldğunuz için çok teşekkür ederim.

 

[halit3]

Merhaba

Önce dosyanızı açarken makroları devre dışı bırakarak açın

1-AutoOpenModulu modülündeki kodu pasif yapın yada geçici olarak silin
2-dosyayı kapatıp yeniden açın
3-bu makroyu bir modülün içine koyup çalıştırın.

kod:

Sub formgöster()
Set çift = Worksheets("ÇİF")
Set Dlg = DialogSheets("Girişformu")
Dlg.Visible = True
End Sub

4-Girişformu sayfası gizlendiği yerden görünecektir.
5-AKTAR (Alt+A) düğmesine sağ tıklayın denetim biçimlendir/denetim/bırak tikini kaldırıp varsayılan tikini işaretleyin

 

[dostlar2]

Çok teşekkür ederim eğer formu geri gizlemek için ne yapmalıyım.ayrıca gizli modülü nasıl görünür hale getiririm

 

[halit3]

Çok teşekkür ederim eğer formu geri gizlemek için ne yapmalıyım.ayrıca gizli modülü nasıl görünür hale getiririm

açık

DialogSheets("Girişformu").[COLOR="red"]Visible = True[/COLOR]

gizli

DialogSheets("Girişformu").[COLOR="Red"]Visible = False[/COLOR]

 

[halit3]

gizli sayfaların hepsini göstermek için kod:

For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
Sheets(Sheets(i).Name).Visible = True
Next

 

[halit3]

istenen sayfayı gizlemek için kod

Sheets([COLOR="Red"]"ARŞİV"[/COLOR]).SelectedSheets.Visible = False

 

[dostlar2]

hepinze çok teşekkür