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

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfadaki Butonun Pasif Yapılması Hk.

İleti#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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
FurkanTARAKÇI
 
Kayıt: 17 Şub 2022 13:05
Meslek: Harita Mühendisi
Yaş: 32
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: CANAKKALE

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Sayfadaki Butonun Pasif Yapılması Hk.

İleti#2)  yusuf43 » 13 Haz 2022 00:50

Resim değilde çalışmanızı gönderirseniz daha iyi olur.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 723
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Sayfadaki Butonun Pasif Yapılması Hk.

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

Bunu uygun yere ekleyiniz

ActiveSheet.Shapes.Range(Array("KayitGirisButton1")).Visible = False
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 21:19
Meslek: Matematik Öğretmeni
Yaş: 35
İleti: 493
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 7 misafir

Bumerang - Yazarkafe