Sayfa koruması olan çalışmada makro ile hücre gizleme hatası

sertkan42 · Salı saat 18:22'de

Arkadaşlar Merhaba;
Çalışma sayfamda sayfa koruması mevcut örneğin 26 ile 39 arası satırı komple gizle ve göster olarak makro atadım ama sayfa korumaya alınca butonlar bu hataları vermekte.( Sarı hata aynı şekilde ve aynı yerde gizlede de vermekte)
Not: Hücrelerde ve butonlarda kiliti kaldırdım.

Bunun çözümü varmıdır? Şimdiden bakan arkadaşlara teşekkür ederim.

mustafa1205 · Salı saat 18:26'de

Kodların başına bunları,

Sheets("DENEME").Select
ActiveSheet.Unprotect

sonuna da

Sheets("BİLGİ KAYIT EKRANI").Select
ActiveSheet.protect

ekleyin. Sayfa adını sizdeki olanı yazarsınız

sertkan42 · Salı saat 18:37'de

mustafa1205' Alıntı:
Kodların başına bunları,

Sheets("DENEME").Select
ActiveSheet.Unprotect

sonuna da

Sheets("BİLGİ KAYIT EKRANI").Select
ActiveSheet.protect

ekleyin. Sayfa adını sizdeki olanı yazarsınız

Mustafa Bey teşekkür ederim fakat olmadı maalesef, görsel sayfa korumasız haldeyken çalışır hali.
Sayfa adım "ANASAYFA"

Kod:

Sub GİZLE()
'
' GİZLE Makro
'

'
    Rows("26:39").Select
    Range("C26").Activate
    Selection.EntireRow.Hidden = True
End Sub
Sub GÖSTER()
'
' GÖSTER Makro
'

'
    Rows("25:40").Select
    Selection.EntireRow.Hidden = False
End Sub

mustafa1205 · Salı saat 18:45'de

Sayfa Koruma Parolası var mı ?

mustafa1205 · Salı saat 18:45'de

Yada dosyayı gönderin bakalım

Muzaffer Ali · Salı saat 18:47'de

Merhaba.
Şifre kullanmıyorsanız "Şifreniz" kısmını silebilirsiniz. Şifre varsa kendi şifrenizi yazın.

Kod:

Sub GİZLE()
    ActiveSheet.Unprotect "Şifreniz"
    Rows("26:39").EntireRow.Hidden = True
    ActiveSheet.Protect "Şifreniz"
End Sub

Sub GÖSTER()
    ActiveSheet.Unprotect "Şifreniz"
    Rows("25:40").EntireRow.Hidden = False
    ActiveSheet.Protect "Şifreniz"
End Sub

sertkan42 · Salı saat 18:53'de

Örnek dosya ekledim, Sayfa koruma şifresi 1

sertkan42 · Salı saat 19:00'de

Muzaffer Ali' Alıntı:
Merhaba.
Şifre kullanmıyorsanız "Şifreniz" kısmını silebilirsiniz. Şifre varsa kendi şifrenizi yazın.

Kod:

Sub GİZLE() ActiveSheet.Unprotect "Şifreniz" Rows("26:39").EntireRow.Hidden = True ActiveSheet.Protect "Şifreniz" End Sub Sub GÖSTER() ActiveSheet.Unprotect "Şifreniz" Rows("25:40").EntireRow.Hidden = False ActiveSheet.Protect "Şifreniz" End Sub

Muzaffer Bey teşekkür ederim, sorun çözüldü emeğinize sağlık.

sertkan42 · Salı saat 19:00'de

mustafa1205' Alıntı:
Yada dosyayı gönderin bakalım

Mustafa Bey sorun çözüldü teşekkür ederim ilginizden dolayı.

mustafa1205 · Dün 00:35 da

Rica ederim Sertkan Bey. Bişey yapamadım. Muzaffer Hocam halletmiş. Hocamın Ellerine sağlık.

sertkan42 · Dün 13:16 da

Tekrardan Merhaba;
Forumdan log kayıt ilavesi yaptım çalışma sayfama normalde güzel çalışıyor fakat sayfadaki loğlara müdehale olmaması açısından parala koyunca hata alıyorum kodun önüne ActiveSheet.Unprotect "258258" ve arkasına ActiveSheet.Protect "258258" kodlarını uygulamadım ama hata vermeye devam ediyor, yardımcı olurmusunuz bu konudada? Teşekkürler.

Kod:

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
        .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()
 
    End With
End Sub

Muzaffer Ali · Dün 13:33 da

Aşağıdaki gibi olmalı.
"Activesheet" yerine sayfa adı belirtilmeli.

Kod:

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 "şifreniz"
        .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 "şifreniz" 
    End With
End Sub

sertkan42 · Dün 13:50 da

Muzaffer Bey öncelikle tekrar teşekkür ederim, denedim fakat hata vermeye devam ediyor.

Muzaffer Ali · Dün 13:52 da

benim yazdığım şekilde olmalı. .unprotect "şifreniz" log yazmayacaksınız.
Sayfa adı zaten With parametresi ile belirtilmiş.

volki_112 · Dün 13:57 da

sertkan42' Alıntı:
Arkadaşlar Merhaba;
Çalışma sayfamda sayfa koruması mevcut örneğin 26 ile 39 arası satırı komple gizle ve göster olarak makro atadım ama sayfa korumaya alınca butonlar bu hataları vermekte.( Sarı hata aynı şekilde ve aynı yerde gizlede de vermekte)
Not: Hücrelerde ve butonlarda kiliti kaldırdım.

Bunun çözümü varmıdır? Şimdiden bakan arkadaşlara teşekkür ederim.

Ekli dosyayı görüntüle 256129

Ekli dosyayı görüntüle 256130

hocam en basit yöntem. Sayfa koruması yaparken resimdeki yerlere tik koyup deneyin. istediğiniz olur.

sertkan42 · Dün 14:02 da

@Muzaffer Ali Bey tamamdır, Teşekkür ederim tekrardan.

@volki_112 Deneyeceğim teşekkürler.

sertkan42 · Bugün 13:56

@Muzaffer Ali Hocam Çalışma kitabındaki sayfalardan birine daha sayfa koruma yaptım fakat Ana sayfadan makro çalıştırınca yine koruma var hatası alıyorum daha önce yazdığınız kodları aralara denedim ama olmadı, bakma şansınız olursa sevinirim. saygılarımla.

Kod:

Sub KAYIT()
'
' KAYIT Makro
'

'
    Range("C1").Select
    Selection.End(xlDown).Select
    Range("C13:M13").Select
    Selection.Copy
    Sheets("KAYIT SAYFASI").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Sheets("ANASAYFA").Select
    Application.CutCopyMode = False
    Range("C1").Select
End Sub

sertkan42 · Bugün 14:25

Muzaffer Bey sayfa koruması sorununu uğraşırken aşağıdaki kod ile çözdüm sanırım fakat sayfalar silinmesin diye komple çalışma kitabını korumaya alınca da farklı bir hata verdi

Kod:

Sub KAYIT()
'
' KAYIT Makro
'
    Dim ws As Worksheet
    Set ws = Sheets("KAYIT SAYFASI")
'
    ws.Unprotect "258258"
    Range("C1").Select
    Selection.End(xlDown).Select
    Range("C13:M13").Select
    Selection.Copy
    Sheets("KAYIT SAYFASI").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ws.Protect "258258"
    ActiveCell.Offset(-7, 0).Range("A1").Select
    Sheets("ANASAYFA").Select
    Application.CutCopyMode = False
    Range("C1").Select
End Sub

Çalışma Kitabı korumaya alınca oluşan Hata Resmi;

volki_112 · Bugün 14:52

sertkan42' Alıntı:
Muzaffer Bey sayfa koruması sorununu uğraşırken aşağıdaki kod ile çözdüm sanırım fakat sayfalar silinmesin diye komple çalışma kitabını korumaya alınca da farklı bir hata verdi

Kod:

Sub KAYIT() ' ' KAYIT Makro ' Dim ws As Worksheet Set ws = Sheets("KAYIT SAYFASI") ' ws.Unprotect "258258" Range("C1").Select Selection.End(xlDown).Select Range("C13:M13").Select Selection.Copy Sheets("KAYIT SAYFASI").Select Range("B1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ws.Protect "258258" ActiveCell.Offset(-7, 0).Range("A1").Select Sheets("ANASAYFA").Select Application.CutCopyMode = False Range("C1").Select End Sub

Çalışma Kitabı korumaya alınca oluşan Hata Resmi;
Ekli dosyayı görüntüle 256191

kodun başında çalışma kitabının da korumasını kaldırın. kodun sonunda tekrar aktif edin.

Muzaffer Ali · Bugün 14:53

Kodun başına

Kod:

ThisWorkbook.Protect

Sonuna

Kod:

ThisWorkbook.Unprotect

satırlarını ekleyin.

Sayfa koruması olan çalışmada makro ile hücre gizleme hatası

sertkan42

mustafa1205

sertkan42

mustafa1205

mustafa1205

Muzaffer Ali

Destek Ekibi

sertkan42

Ekli dosyalar

sertkan42

sertkan42

mustafa1205

sertkan42

Ekli dosyalar

Muzaffer Ali

Destek Ekibi

sertkan42

Muzaffer Ali

Destek Ekibi

volki_112

Ekli dosyalar

sertkan42

sertkan42

sertkan42

volki_112

Muzaffer Ali

Destek Ekibi