Şablon yardımı

[rapstar_kagan_96]

Arkadaşlar merhaba.
Forumdan yararlanarak yaptığım bir programda ilk açılışta her seferinde "Şablon yardımı-Microsoft online" diye uyarı çıkıyor.Bunu nasıl engelleyebiliriz? Umarım anlatabilmişimdir.

 

[uyrdkl]

Kullandığınız programda bir problem var sanırım

 

[rapstar_kagan_96]

uyrdkl arkadaşım.Öncelikle ilgine teşekkür ediyorum. Ama sizin söylediklerinizi ben de biliyorum. Ben bunun çözümünü sormuştum size. Bu yönde yardımlarınızı bekliyorum.

 

[rapstar_kagan_96]

Sorumu güncellemek istiyorum arkadaşlar

 

[rapstar_kagan_96]

SON bir umutla ve SON bir kez sorumu güncellemek istiyorum arkadaşlar

 

[ExcelF1]

Dosya eklemeniz mümkün mü acaba ?

 

[rapstar_kagan_96]

Şablon

Arkadaşım merhaba.İlgine teşekkürler.. Sayfanın görüntüsünü yolluyorum.
Kodlar da şöyle :

Private Sub CommandButton8_Click()
UserForm11.Show
End Sub
Private Sub UserForm_Initialize()
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next
End Sub
Private Sub CommandButton1_Click()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox7
ActiveCell.Offset(0, 2).Value = TextBox1
ActiveCell.Offset(0, 3).Value = TextBox2
ActiveCell.Offset(0, 4).Value = TextBox3
ActiveCell.Offset(0, 5).Value = TextBox4
ActiveCell.Offset(0, 6).Value = ComboBox3
ActiveCell.Offset(0, 7).Value = TextBox6
ActiveCell.Offset(0, 8).Value = ComboBox2
ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 1000
ProgressBar1.Value = (i / 1000) * 100
Label1000.Caption = Format(Int((i / 1000) * 100), "%0")
DoEvents
Next i
ProgressBar1.Visible = False
ThisWorkbook.Save
aciklama = "Kayıt İşlemi Başarıyla Tamamlandı"
dugme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "KAYIT"
MsgBox aciklama, dugme, baslik
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox3.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
ThisWorkbook.Save
Sheets("data").Select
End Sub
Private Sub CommandButton3_Click()
Unload UserForm1
End Sub

 

[ExcelF1]

Dosyanızı görmeden bir yorum yapamıyorum. Ama şu kodu ekleyerek bir deneyin isterseniz.

Private Sub Workbook_Open()
Application.DisplayAlerts = False 'Hiçbir ileti gösterme demek
End Sub

 

[rapstar_kagan_96]

Modüle ekledim ama değişen bir şey yok

 

[ExcelF1]

Bunu bir modüle eklemeyeceksiniz.
Bu excel dosyasının açılışındadır. ThisWorkBook bölümüne ekleyeceksiniz. "AutoOpen" modülü ile aynı işlemi yapar.

Yani kitap açılırken, mesaj gösterme gibi bir şey demiş olacaktık ama dediğim gibi dosyanızı görmeden bir şey söylemek zor. Sadece deneme olur.

 

[rapstar_kagan_96]

ThisWorkBook bölümüne de ekledim ama yine değişen bir şey olmadı..Dosyanın görüntüsünü ve kodlarını yolladım.Başka kod yok.Yalnız şöyle bir durum var.Onunla ilgili olabilir mi bilmiyorum. Programın kod bölümünü açıp sayfaların bulunduğu Microsoft Excel Objects bölümünü açtığımda Sayfa15(DV-IDENTITY-0) diye bir sayfa ismi var. Oysa ne sayfa sekmelerinde ne de gizli sayfalar bölümünde böyle bir sayfa yok.Bu nasıl gizlenmiş olabilir? Bu sayfayı nasıl görünür hale getirebilirim?

 

[rapstar_kagan_96]

Sayfa ismi üzerine sağ tık yaptığımda Remove Sayfa15 yazısı etkin değil.

 

[ExcelF1]

Şablon dosyalar .xlt formatında olur. Sizin dosyanız nasıldır bilemiyorum. Yapılabilecek 1 şey de; kodlarınızı ve sayfa yapınızı aynen başka bir kitaba taşımak.

Kolay gelsin.

 

[rapstar_kagan_96]

Tamamdır arkadaşım. İkinci dediğinizi yaptım,sorun düzeldi. Kodları ve sayfaları aynen başka bir kitaba taşıdım. Demek ki sorun o gizli ve ortaya çıkarılamayan sayfadaymış.Teşekkürler.

 

[ExcelF1]

Rica ederim, kolay gelsin.