MultiPage1 deki tablarda şifre yapmak istiyorum

[Kemal Demir]

Değerli Arkadaslar Bir form hazırladım

AMa MultiPage1 üzerindeki Sayfaları birleştir adındaki kısmı kullana bilmesi için kullanıcı adı ve şifre ile geçiş sağlaya bilirmiyiz

Yardımcı olursanız sevinirim


dosya Ekte

 

[Levent Menteşoğlu]

Aşağıdaki kodları ilgili nesnelere yazınız.

[vb:1:2e132be41f]Private Sub UserForm_Initialize()
MultiPage1.Value = 0
End Sub

Private Sub MultiPage1_Click(ByVal Index As Long)
If Index = 1 Then
CommandButton6.Enabled = False
CommandButton7.Enabled = False
sor = InputBox("ÞİFREYİ GİRİNİZ", "ÞİFRE GİR")
If sor = "şifre" Then
CommandButton6.Enabled = True
CommandButton7.Enabled = True
Exit Sub
End If
MsgBox "HATALI ÞİFRE"
End If
End Sub
[/vb:1:2e132be41f]

 

[Kemal Demir]

teseşekkur ederim

 

[Kemal Demir]

Değerli Arkadaslar Leventm Arkadasımızın yardımıyla Büyük Bir Sorunu Çözdük.

Bir Değişiklik Yapmak İstiyorum Sayfaları birleştir kısmında Geçiş İçin Þifre(kemaldemir) Oradaki butonlarda Sayfaları birleştir diye button var

Ben sadece Birleştirilecek Sayfanın İsminin "Rapor" olmasını istiyorum aslında esas sorun su: birleştirilecek olan sayfaların sadece 2.satırından itibaren birleştirsin yanı rapor sayfasına ornek DATA1 V E DATA2 VE .... BU SAYFALARIN 2.satırından başlayıp dolu olan tum satırlarını Rapor Sayfasına Eklemek İstiyorum Var olan eski Rapor İçinde Değişiklikleri Üstüne İlave Etsin

Yardımcı olursanız Sevinirim Dosya Ekte


Saygılar

 

[Kemal Demir]

Multipageden Rapor alıcam ama olusuturulacak sayfanın diğer sheetlerinden 2 satırından itibaren almasını istiyorum
Yardımlarınızı bekliyorum
Dosya Yukarıda Form2.zip Dosyası multipage geçiş şifresi kemaldemir