Name Tanımı Gibi Gizlemek

[baydeniro]

Merhaba Arkadaşlar,
Ad tanımlamalarının gizlenmesi kod ile mümkün oluyor. İsmi belirli veya tüm senaryoların gizlenmesi mümkün mü ?
Örneğin bunun gibi bir kodla

Sub DENEME()
Dim a As Scenarios
For Each a In ThisWorkbook.Scenarios
If a.Visible Then a.Visible = False
Next a
End Sub

 

[Haluk]

Böyle bir şey mi?

Sub Test()
    Dim a As Scenarios
    For Each a In ThisWorkbook.Scenarios
        a.Item.Hidden = True
    Next
End Sub

.

 

[baydeniro]

Böyle bir şey mi?

Sub Test()
    Dim a As Scenarios
    For Each a In ThisWorkbook.Scenarios
        a.Item.Hidden = True
    Next
End Sub

.

Üstad teşekkürler. ".Item" kısmında işaret ederek hata mesajı veriyor !

 

[baydeniro]

Item terimine alternatif bir terim var mıdır ? Item yerine başka bir terim ile kodun çalışması sağlanabilir mi ? veya bunun için bir referans tanımlanması mı gerekir !

 

[Haluk]

Bir de ekli dosyaya bakın ...

.

 

[baydeniro]

Bir de ekli dosyaya bakın ...

.

Üstad emekleriniz için çok teşekkürler. Sanırım bizim bilgisayarların teknik yapısı ya ofis versiyonu farklı olmasından ötürü senaryo gizleme kodları sonuç vermedi. İlginize çok teşekkür ederim, sağlıcakla kalın

 

[Suskun]

Senaryo kodları gizleme de hücre gizleme gibi yani Senaryo eklerken Gizliyi seçmiş olsanız bile aktif olması için sayfayı korumalısınız. Önceden senaryonun çalışacağı hücrelerin kilitlerini ve gizliliğini kaldırın.

@Haluk beyin kodlarına Protect ve Unprotect'i ekledim. Sayfa korumaya alındığında gizlendiğiniz senaryolar da isimleri ve Düzeltmeyi göremiyor olmanız lazım. Hücre düzenlemelerini yapmazsanız yada sayfayı koruma yaparken Senaryoların düzenlenmesine izin verirerseniz Gizleme olmayacaktır.

Sub Test3()
    ActiveSheet.Scenarios("Test Scenario").Hidden = True
    ActiveSheet.Protect
End Sub

Sub Test4()
    ActiveSheet.UnProtect
    ActiveSheet.Scenarios("Test Scenario").Hidden = False
End Sub

 

[baydeniro]

Senaryo kodları gizleme de hücre gizleme gibi yani Senaryo eklerken Gizliyi seçmiş olsanız bile aktif olması için sayfayı korumalısınız. Önceden senaryonun çalışacağı hücrelerin kilitlerini ve gizliliğini kaldırın.

@Haluk beyin kodlarına Protect ve Unprotect'i ekledim. Sayfa korumaya alındığında gizlendiğiniz senaryolar da isimleri ve Düzeltmeyi göremiyor olmanız lazım. Hücre düzenlemelerini yapmazsanız yada sayfayı koruma yaparken Senaryoların düzenlenmesine izin verirerseniz Gizleme olmayacaktır.

Sub Test3()
    ActiveSheet.Scenarios("Test Scenario").Hidden = True
    ActiveSheet.Protect
End Sub

Sub Test4()
    ActiveSheet.UnProtect
    ActiveSheet.Scenarios("Test Scenario").Hidden = False
End Sub

Suskun üstadım desteğiniz için çok teşekkür ediyorum. İlk fırsatta deneyeceğim. Sağlıcakla kalın