Çözüldü Sayfa koruması olan çalışmada makro ile hücre gizleme hatası

[Muzaffer Ali]

Ayrıca yukarıdaki kod ile yaptığınız işlemi aşağıdaki gibi daha kısa bir kod ile yapabilirsiniz.

Sub KAYIT()
    ThisWorkbook.Unprotect
    With Sheets("KAYIT SAYFASI")
        .Unprotect "258258"
        .Range("C13:M13").Copy .Cells(Rows.Count, "B").End(xlUp)(2, 1)
        .Protect "258258"
    End With
    ThisWorkbook.Protect
End Sub

 

[sertkan42]

@Muzaffer Ali Hocam sayfa korumalar çözüldü ama kitap korumada hala hata alıyorum vermiş olduğunuz kodu BuÇalışmaKitabına mı yazacağız?

Option Explicit

Private Sub Workbook_Open()
    UserForm1.Show
        Sheets("YEDEK").Visible = 2
    Application.OnKey "{F11}", "GÖSTER"
    Application.OnKey "{F12}", "GİZLE"

    Dim userName As String
    Dim computerName As String
    Dim lastRow As Long
   
    'Kullanıcı adını ve bilgisayar adını al
    userName = Environ("username")
    computerName = Environ("computername")
   
    'LOG sayfasında verileri ekle
   
    With Sheets("LOG")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Unprotect "258258"
        .Range("A1").Value = "Kullanıcı"
        .Range("B1").Value = "Bilgisayar"
        .Range("C1").Value = "ZAMAN"
        .Range("A" & lastRow + 1).Value = userName
        .Range("B" & lastRow + 1).Value = computerName
        .Range("C" & lastRow + 1).Value = Now()
        .Protect "258258"

    End With
End Sub
Private Sub Workbook_Activate()
    Sheets("YEDEK").Visible = 2
    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

 

[Muzaffer Ali]

Dosyanızı ekleyin, ne yaptığınız zaman ve hangi satırda hata aldığınızı belirtin kontrol edelim.

 

[sertkan42]

Hocam Sayfa korumaya alınca Bu hatayı alıyorum 2 kere end dedikten sonra kayboluyor
Sayfa koruma koyduğum şifre : 258258

 

[Muzaffer Ali]

Workbook_Open kodlarının başına

ThisWorkbook.Unprotect

sonuna

ThisWorkbook.protect

satırlarını ekleyin.

Eğer sorun çözülmezse dosyanızı ekleyin kontrol edelim.

 

[sertkan42]

Workbook_Open kodlarının başına

ThisWorkbook.Unprotect

sonuna

ThisWorkbook.protect

satırlarını ekleyin.

Eğer sorun çözülmezse dosyanızı ekleyin kontrol edelim.

Muzaffer Hocam sayesinde sorun çözüldü, kendisine çok teşekkür ederim. Saygılarımla.