Şİfreli kitaba sayfa eklemek

Şİfreli kitaba sayfa eklemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şİfreli kitaba sayfa eklemek (/konu-sifreli-kitaba-sayfa-eklemek.html)

Sayfalar: 1 2

Cvp: Şİfreli kitaba sayfa eklemek - kerem - 25/11/2011

Dosyayı yükliyorum ancak. Forma geri döndüğüm zaman yüklediğim dosyayı göremiyorum.

Cvp: Şİfreli kitaba sayfa eklemek - DUAYEN - 29/11/2011

Kod:

Private Sub UserForm_Initialize()

ListBox2.Clear

For i = 1 To Sheets.Count

If Left(Sheets(i).Name, 1) = "(" Then

ListBox2.AddItem Sheets(i).Name

End If

Next

End Sub

bu kodu denermisiniz.

Cvp: Şİfreli kitaba sayfa eklemek - kerem - 30/11/2011

Çok teşekürler hocam. Hocam UserForm1 de veri girişi yapıp verileri aktardığım zaman A1 sutununa otomatik olarak sıra numarası verilmesi için aşağıdaki kodları değiştirirseniz sevinirim.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
End Sub

Cvp: Şİfreli kitaba sayfa eklemek - DUAYEN - 02/12/2011

En son kaldığınız örneği eklerseniz yardımcı olarabilrim bu şekilde çok sağlıklı olmaz.

Cvp: Şİfreli kitaba sayfa eklemek - kerem - 04/12/2011

Hocam ilgilendiğiniz için çok teşekürler sorunum hal oldu.