label kilitleme

[zulfuernek]

userform üzerinde 40 tane label mevcut. ben bu labellere tıkladığımda hücreden veriyi almakta. bir tane commandbutton oluşturdum ve ben bu butona tıklayınca labeller kilitlensin ve tıklamayla çalışmasın aynı command buttona tekrar tıklayınca ise labeller aktif olsun

Saygılar

 

[BedriA]

userform üzerinde 40 tane label mevcut. ben bu labellere tıkladığımda hücreden veriyi almakta. bir tane commandbutton oluşturdum ve ben bu butona tıklayınca labeller kilitlensin ve tıklamayla çalışmasın aynı command buttona tekrar tıklayınca ise labeller aktif olsun

Saygılar

Labeller ardışık mı ilerliyor?
Yani ilki Label 1, sonuncusu Label 40 mı?

 

[zulfuernek]

Evet hocam aynen öyle

 

[BedriA]

Bir deneyin bakalım.
Çalışırsa ne ala...

Private Sub CommandButton1_Click()
Select Case Say
        Case 1
For s =1 To 40
Controls("Label" & s).Enabled = False
Next
Say =say+1

Case 2
For s =1 To 40
Controls("Label" & s).Enabled = True
Next
Say =1
End Select
End Sub

 

[zulfuernek]

Ilk label 25 son label 64 ardışık ama.

 

[zulfuernek]

malesef olmadı bedri hocam

 

[Murat OSMA]

Örnek dosya ekleyiniz..​

 

[zulfuernek]

ÖRNEK DOSYA EKTEDİR.

DÜZENLE BUTONUNA TIKLAYINCA SIRALI HALDEKİ LABELLER ÜZERİNDE İŞLEM YAPMAMALI. TEKRAR AYNI TUŞA LABELLERİ AÇMALI VE LABELLERE TIKLAYINCA MAKROSU ÇALIŞMALI

http://dosya.co/05dtiae9rx4k/NÜMİSMAT_çalışma.xlsm.html

 

[Murat OSMA]

Düzenle butonu kodlarını bu şekilde değiştirip deneyin..

[SIZE="2"]Private Sub CommandButton8_Click()
    Dim sifre As String
    sifre = "2323"
    a = InputBox("Şifre Girin", "Şifre")
    If a <> sifre Then
        MsgBox "Şifre hatalı"
        Exit Sub
    End If
    CommandButton8.BackColor = IIf(CommandButton8.BackColor = _
        vbRed, vbGreen, vbRed)
    If CommandButton8.Caption = "" Or CommandButton8.Caption = "KİLİTLE" Then
        CommandButton8.Caption = "DÜZENLE"
              Else
        CommandButton8.Caption = "KİLİTLE"
    End If
   [COLOR="Red"] If CommandButton8.BackColor = vbGreen Then
        For i = 25 To 64
            Me.Controls("Label" & i).Enabled = False
        Next i
            Else
        For i = 25 To 64
            Me.Controls("Label" & i).Enabled = True
        Next i
    End If[/COLOR]
End Sub[/SIZE]

​

 

[zulfuernek]

murat hocam emeğine sağlık. ufak tefek sıralama hatası vardı düzenledim.
kilidi açmak için buton kırmızı kapatmak için ise yeşil oluyor renk sıralaması ve işlev sıralaması sorununu düzelttim. yeni kod ektedki gibidir. bilginize. ihtiyacı olan kullanması için.

yardımınız büyük ve kusursuzdu. teşekkür edemim. emeğinize sağlık. düzgün çalışan kod



Private Sub CommandButton8_Click()
Dim sifre As String
sifre = "2323"
a = InputBox("Şifre Girin", "Şifre")
If a <> sifre Then
MsgBox "Şifre hatalı"
Exit Sub
End If
CommandButton8.BackColor = IIf(CommandButton8.BackColor = _
vbGreen, vbRed, vbGreen)
If CommandButton8.Caption = "" Or CommandButton8.Caption = "KİLİTLE" Then
CommandButton8.Caption = "DÜZENLE"
Else
End If
If CommandButton8.BackColor = vbRed Then
For i = 25 To 64
Me.Controls("Label" & i).Enabled = False
Next i
Else
For i = 25 To 64
Me.Controls("Label" & i).Enabled = True
Next i
CommandButton8.Caption = "KİLİTLE"
End If
End Sub

 

[zulfuernek]

hocam sizden bir ricam daha olacak tam anlamıyla çalışması için. user form tıklayınca değilde açılınca bağlı kod direk çalışması için click yerine ne yazmamız gerekiyor

 

[zulfuernek]

murat hocam size bir sorum daha olucaktı. kodların direk çalışması için userform yanıba clikc yerine ne yazmam gerekiyor.

 

[Murat OSMA]

Rica ederim, hayırlı geceler..​

 

[zulfuernek]

bi sorum daha olmuştu ama murat hocam. )