Sayfada Degisiklerin Logunu Tutma

[skaan]

Merhaba;
Ekte bulunan dosyada sayfa1 de yapılan butun hareketlerin yine aynı dosyada Yedek sayfası adı altında logları tutulmaktadır.
Ancak kullanılan dosyada yedeğı alınan sayfada çok kullanıcı işlem yapmaktadır ve yüksek ihtimalle sayfadaki satır sayısı logları tutmaya yetmeyecektir.

Bu nedenle dosyadaki Yedek sayfası dolunca yeniden aynı dosyada Yedek1 adı altında başka bir sayfaya logların alınması devam etmesi gerekmektedir. Ve F11 tuşuna basınca bütün Yedek sayfaları görünmeli ve F12 tuşuna basınca bütün Yedek sayfaları gizlenmelidir..

Ekli dosyada şu anki haliyle F11 ve F12 çalışmakta ancak yedek sayfaları çoğalınca sıkıntı olmaktadır..
Örnek dosyam ektedir. Yardımcı olmanızı rica ediyorum..

Saygılar,
SKaan

 

[ynmcan]

Kodlarınızı aşağıdakiler ile değiştirin
Ekteki Örnek dosyayı inceleyim

Modüldeki kodlar

Sub GİZLE()
Dim i As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = 2
                Next
End Sub


Sub GÖSTER()
Dim i As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = -1
                Next
End Sub

ThisWorkbooktaki kodlar

Private Sub Workbook_Activate()
Dim i As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = 2
                  Next
    Application.OnKey "{F11}", "GÖSTER"
    Application.OnKey "{F12}", "GİZLE"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F11}", ""
    Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "{F11}", ""
    Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Open()
    Dim i As Integer
    For i = 2 To Sheets.Count
        Sheets(i).Visible = 2
                Next
    Application.OnKey "{F11}", "GÖSTER"
    Application.OnKey "{F12}", "GİZLE"
End Sub