web kamera ile mesai giriş çıkışı yapabilme

[esad45]

ekte yapmaya çalıştığımız bir web kamera ile mesai giriş çıkış dosyası var ama bazı hataları gideremedik yardımcı olabilecek olan var mı
hatalar;
1.Kamera bizi görüp kaydettiğinde dosya kapanıp açılınca mesai sayfasındaki fotoğraf siliniyor bu fotoğrafın silinmemesi lazım ki sonra kontrol edebilelim
2.Mesai sayfasınada müdahale edilmemesi lazım onun için de o sayfayı koruma yapmak istiyoruz koruma ve şifre koyuyoruz ama sonra da tekrar mesai kaydet deyince şifreli dosya olduğundan hata veriyor
3.Sayfa 1 de a1 deki özlü söz sayfa 3 deki özlü sözlerden her açıldığından rasgele 1 ini alabilir mi

 

[Necdet]

Merhaba,
Aşağıdaki kodları düzenledim, ifler forlar birbirine karışmış. Kodlara anlamlı girinti verirseniz, hatayı bulmakta daha çok rahat edersiniz.
Bir deneyin.

Private Sub CommandButton1_Click()
    Dim sil As ChartObject
    
    soru = MsgBox(ComboBox1.Text & " isimli Personelin " & ComboBox2.Text & " Mesaisini Kaydetmek Üzeresiniz. Onaylıyor musunuz?", vbYesNo)
    
    If soru = vbYes Then
        
        Call SendMessage(evn, CAP_EDIT_COPY, 0, 0)
        evnresim = "C:\evnresim.jpg"
        With ActiveSheet.ChartObjects.Add(0, 0, picCapture.Width, picCapture.Height).Chart
            .Paste
        
            For Each sil In ActiveSheet.ChartObjects
        
                Sayfa1.Range("C6").Copy
                With Sayfa3
                    .Range("B65536").End(3)(2, 1) = ComboBox1.Text
                    .Range("a65536").End(3)(2, 1) = ComboBox2.Text
                    .Range("C65536").End(3)(2, 1) = VBA.Now: .Select
                    ActiveSheet.Pictures.Insert(evnresim).Select
                    Selection.ShapeRange.LockAspectRatio = msoFalse
                    Selection.ShapeRange.Top = .Range("C65536").End(3).Top
                    Selection.ShapeRange.Left = .Range("d65536").End(3).Left
                    Selection.ShapeRange.Height = .Range("c65536").End(3).Height
                    Selection.ShapeRange.Width = .Range("d65536").End(3)(2, 1).Width
                End With
            
            Next sil
           Kill evnresim
        End With
        Application.CutCopyMode = False
        
    End If
        
End Sub

 

[esad45]

olmadı hata veriyor dosyada uygulayabilirmisiniz

 

[Necdet]

Merhaba,

Ben sizin kodlarınızı tam olarak bilmiyorum ki. Örneğin bende verdiği hata evnresim dile bir değişken. Bu kimi seçerseniz seçin değişmiyor.

Kod hata verdiğinde ilgili satır sarı renkli olur, onu inceleyin bence.

 

[esad45]

anlatamadım szin kodu eski kodla değiştirdim çalışmıyor

 

[esad45]

cevap verebilecek yokmu

 

[esad45]

cevap verecek yok mu

 

[esad45]

bu konuda yardımı alacak biri yok mu