Farklı kullanıcılara göre butonları aktifleştirmek

[valley]

Merhaba,

Herkesin networkten erişip giriş yapabildiği bir dosyam var. Sadece 2 kişi bu dosyanın kontrolünü yapıyor. Dosyada 2 adet mail gönderme butonu bulunmakta... 2 kişi haricindeki kişiler giriş yaptıklarında ilk butona tıklayıp giriş yaptıklarına dair ilgili maili 2 kişiye gönderiyorlar. O 2 kişiden biri girişleri kontrol edip bilgileri farklı bir programa yazdıktan sonra bu kişilere 2. butonu kullanarak işlemin yapıldığına dair maili gönderiyorlar.

Yapmak istediğim ikinci buton kontrol eden 2 kişi haricindeki kişilerde aktif olmasın ilk buton aktif kalsın. Kullanıcıya göre bunlar active/deactive olabilir mi?

(Not: dosyada mail adresleriyle ilgili kodları sildim)

Teşekkürler

 

[metinozlu]

butonlara şifre koyup şifre onayından sonra kodları çalıştırabilirsiniz.

 

[valley]

Metin bey,

Teşekkürler ama butona tıklamak için şifre girişi yapmak istemiyor arkadaşlar..

İki kullanıcı haricindeki tüm kullanıcılara 2 buton deactive gelmeli....

 

[Korhan Ayhan]

Selamlar,

Bu işlem için ikinci butonu kullanmayacak kişilerin bilgisayarlarına ait HDD nolarını tespit edip dosya açılışına koyacağınız kodla bu noları kontrol edip butonu pasif hale getirebilirsiniz.

Kodda kırmızı renkle belirginleştirdiğim nolar butonu kullanmayacak olan kişileri HDD noları olacaktır. Kendiniz o nolara göre değiştiriniz.

Ekteki örnek dosya ile o bilgisayarların HDD nolarını bulabilirsiniz.

Boş bir rmodül ekleyin ve aşağıdaki kodu deneyin.

Declare Function GetVolumeInformationA Lib "kernel32" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
 
Sub Auto_Open()
    Dim SeriNo As Long
    GetVolumeInformationA "C:\", vbNullString, 0, SeriNo, 0, 0, vbNullString, 0
    If SeriNo <> [COLOR=red]111111[/COLOR] Or SeriNo <> [COLOR=red]222222[/COLOR] Then
    Sheets("Sayfa1").CommandButton2.Enabled = False
    Else
    Sheets("Sayfa1").CommandButton2.Enabled = True
    End If
End Sub

 

[valley]

Teşekkürler Korhan Bey,

İzindeydim yeni geldim. Mesajınıza yeni bakma fırsatı bulabildim. Şöyle bir yol buldum onu kullanıyorum. Kullanıcı tanımlarını alıp 2 kullanıcı haricindekiler için disabled yaptım.

İyi Çalışmalar

 

[cenderus]

bu konuya ilişkin dosya tekrar eklenmiştir

bu konuya ilişkin dosya tekrar eklenmiştir