Sayfadaki Butonun Pasif Yapılması Hk.

**#1)** **FurkanTARAKÇI** » 12 Haz 2022 23:02

Merhabalar,
Bir yerden kod bulup kendime uyarlamaya çalıştım fakat beceremedim.

Function Yetki(Buton As String) As Boolean
Dim bak_Kullanici As Integer
Dim Bak_Yetki As Integer
With Sheets("USERS")
For bak_Kullanici = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(bak_Kullanici, 1) = Aktif_Kullanici Then
For Bak_Yetki = 4 To .Cells(1, .Columns.Count).End(xlToLeft).Column
If .Cells(1, Bak_Yetki) = Buton Then
If .Cells(bak_Kullanici, Bak_Yetki) = 1 Then
Yetki.Enabled = True
ElseIf .Cells(bak_Kullanici, Bak_Yetki) = 0 Then
Yetki.Enabled = False
msgbox "Bu bölüme girmek için yetkiniz yok."
End If
Exit For
End If
Next
Exit For
End If
Next
End With
End Function

USERS SAYFASINDAKİ TABLOM:

1.JPG

Kapanmasını istediğim butonların "KAYIT" sayfasında buton isimleri de

2.JPG

**#2)** **yusuf43** » 13 Haz 2022 00:50

Resim değilde çalışmanızı gönderirseniz daha iyi olur.

**#3)** **Mesut Topal** » 22 Haz 2022 03:35

Bunu uygun yere ekleyiniz

ActiveSheet.Shapes.Range(Array("KayitGirisButton1")).Visible = False

[Yardım] Sayfadaki Butonun Pasif Yapılması Hk.