Kullanıcı tanımlı Commandbutton

[serif_007]

Merhabalar arkadaşlar. Kullanıcı giriş formu olan bir arıza kayıt programım var. Userform üzerinde bulunan Kayıt sil butonunun herkesin kullanmasını istemiyorum. Örneğin commanbutton1 butonunu sadece "ali" , "veli" ve "ahmet" kullanıcılarının kullanabilmesini veya görmesini istiyorum. Diğer kullanıcılar için gizli de olabilir ya da bu butonu kullanmaya yetkiniz yok gibi uyarı da verilebilir. Biraz araştırma yaptım fakat böyle bir çalışma göremedim. Yardımlarınız için şimdiden teşekkür ederim.

 

[serif_007]

Commandbutton'a şifre koyarak sorunu çözdüm. Farklı bir çözüm önerisi olan olursa önerilere açığım

 

[hakki83]

Commandbutton'a şifre koyarak sorunu çözdüm. Farklı bir çözüm önerisi olan olursa önerilere açığım

Merhaba
Command butona şifreyi nasıl koydunuz?

 

[Greenblacksea53]

Private Sub UserForm_Initialize()
    If Not (Me.kullanicigirisformunuzadi.Value = "Ali" Or Me.kullanicigirisformunuzadi.Value = "Mehmet" Or Me.kullanicigirisformunuzadi.Value = "Veli") Then
        Me.commanbutton1.Visible = False
    Else
        Me.commanbutton1.Visible = True
    End If
End Sub

 

[serif_007]

Merhaba
Command butona şifreyi nasıl koydunuz?

Private Sub CommandButton3_Click()
       sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = 134679 Then
        If TextBox_ID.Value <> "" Then
    Dim Komut As Integer
    Dim Mesaj As String
    Dim Baslik As String
    
    Mesaj = TextBox_ID.Value & " numaralı arıza kaydı silinecek emin misiniz?.."
    Baslik = "Silme İşlemi"
    Komut = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
        If Komut = 6 Then
            Rows(ActiveCell.Row).Delete
            TextBox_ID = ""
            TextBox1.Value = ""
            ComboBox1.Clear
            ComboBox2.Clear
            TextBox4.Value = ""
            ComboBox3.Clear
            ComboBox4.Clear
            TextBox15.Value = ""
            TextBox8.Value = ""
            TextBox16.Value = ""
            TextBox10.Value = ""
            TextBox11.Value = ""
            ComboBox5.Clear
            TextBox13.Value = ""
            TextBox14.Value = ""
        Else
        MsgBox "Silme işlemi iptal edildi!.."
        End If
        Else
        MsgBox "Öncelikle bul butonu yardımı ile bir kayıt seçmelisiniz!.."
         End If
         Else
        MsgBox "Girilen şifre yanlış!.."
            End If
End Sub