bir multipage'i domaindeki kullanıcılar için görünür veya görünmez yapmak

[bayram09]

Merhabalar.

Excel Vba ile yapmış olduğum bir çalışma var. Bu çalışmayı şirket bünyesinde ki tüm bilgisayar kullanıcıları çalıştırıyor. Her kullanıcının domainde bir kullanıcı adı var. Bu çalışmada üst kısımda multipage tab'ları mevcut. Bu tablardan bir tanesini sadece izin verilen kullanıcıların görmesi gerekiyor.

Label75.Caption = Environ("UserName") ile Kullanıcının login yapmış olduğu adı aldırıyorum. İzin verilen kullanıcı adları diyelim ki ali.ulusoy, hasan.ozturk ve fatma.mutlu olsun bu kullanıcılar için;

Me.MultiPage1.Pages("Page2").Visible = True gibi bir kod kullanarak bu tab'ı görünür yapmak istiyorum diğer tüm kullanıcılar için ilgili "tab" görünmez olmalı. Sorumla ilgili arama yaptım ama nasıl bir yol izlemem gerektiğiyle ilgili bir çözüm bulamadım. Uzman arkadaşlardan yol gösterecek olursa çok memnun olurum.

Saygılarımla.

 

[hamitcan]

Private Sub UserForm_Activate()
If Environ("username") = "kullanici adi" Then
 UserForm1.MultiPage1.Pages(0).Visible = False
 UserForm1.MultiPage1.Pages(1).Visible = True
 UserForm1.MultiPage1.Pages(2).Visible = False
End If
End Sub

 

[bayram09]

Teşekür ederim hamitcan bey. kod çok işime yaradı.