Oluşturlan makroların gözükmemesi

[OZCANLOK]

Ekte resimdeki oluşturulan makroları nasıl görünmez yapabiliriz.
veya çalıştırılmasını nasıl şifreler veya bir kritere bağlayabiliriz.

iligilenenler için şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

Eki eklemeyi unutmuşsunuz!

 

[OZCANLOK]

pardon ekte tablo

 

[N.Ziya Hiçdurmaz]

yanıt

Makrolarınızı bir forum üzerindeki butonlara atayıp.Şifre ile bu foruma ulaşım sağlayabilirsiniz.

Sub sifre()
sif = InputBox("Şifrenizi giriniz")
deg = "123"
If sif = deg Then
UserForm1.Show
Else
MsgBox "Yanlış şifre girdiniz"
End If
End Sub

 

[OZCANLOK]

yalnız bir problem daha var tablo her kullanıcı için bir kullanıcı adı şifre ile
giriyor kendi adına ait makro otomatik çalışıyor bunu nasıl çözebiliriz.

 

[N.Ziya Hiçdurmaz]

Her kullanıcı için ayrı forum oluşturlup ilgili makrolarda o forumlara konulabilir.Girişte herkeze ayrı bir şifre ile kendi makrolarının bulunduğu forumlar açtırılabilir.

 

[N.Ziya Hiçdurmaz]

yanıt

Örnek.

Sub test()
sif = InputBox("Şifrenizi giriniz")
Select Case sif
Case "123"
UserForm1.Show
Case "456"
UserForm2.Show
Case "789"
UserForm3.Show
Case Else
MsgBox "Yanlış şifre girdiniz."
End Select
End Sub