excelde aynı sayfada 2 farklı kullanıcı

[canerrrrrr]

sayın yetkili

bir excel sayfasının hücrelerinin bir kısmını mesela A,B ve c sütünlarını 1 nci kullanıcıya ; d,e,f sütüunlarını 2 nci kullancıya kullanma hakkı verebilirmiyimm..
.. 1 nci kullanıcı d,e,f ye kesinlikle müdahale edememeli...

 

[112barkot]

Bu Benİm İÇİnde Çok Önemlİ
Yapilabİlİr Mİ
Yada DeĞİŞŞİklİk Hangİ Kullanici Tarafindan YapilmiŞ Belİrtİlebİlİr Mİ

 

[canerrrrrr]

gerçekten bunu olumlu yada olmsuz bilen biri yoqmu arkadaslarr??
lütfen acil cevap bekliorumm ...

 

[aycnc]

Öncelik

Arkadaşlar öncelikle bi excel sayfasında iki kullanıcı beraber nasıl çalışır siz de onu yazsanız makbule geçer. Hücreleri bölmeyi bilen biri elbet açıklar...

 

[canerrrrrr]

aynı sayfayı farklı zamanlarda actıklarında giriş yapılacak... örnek a sütunundan h sütununa bir şifre verilecekk.. ve ı sütunundan z sütünuna da ayrı bir şifre verilecekk... 2 kullanıcı farklı zamanlarda kendi şifreleri ile o sütuna girdi yapabilcekler

 

[Ferhat Pazarçevirdi]

Örnek kitapta, aşağıdaki kodlar kullanılmıştır. "Ana" ve "Data" adında iki sayfa vardır. "Ana" adlı sayfa, makrolar etkinleştirilmediğinde devreye girer.

"Data" sayfasında şifre sorar, "1111" yazarsanız A-C kolonlarındaki hücrelere, "2222" yazarsanız D-F sütunlarındakki hücrelere giriş yapabilirsiniz. Yanlış bir şifre girişinde, "Data" sayfasındaki hiçbirşeye müdahale edemezsiniz.

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("ANA").Visible = xlSheetVisible
    Sheets("DATA").Visible = xlSheetVeryHidden
    ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
    Dim sifre As String
    Sheets("DATA").Visible = xlSheetVisible
    Sheets("ANA").Visible = xlSheetVeryHidden
    sifre = InputBox("Şifrenizi giriniz")
    Select Case sifre
        Case "1111"
            With Sheets("DATA")
                .Unprotect
                .Cells.Locked = True
                With .Columns("A:C")
                    .Locked = False
                End With
                .Protect
            End With
            MsgBox "Sadece A-C sütunlarındaki hücreleri değiştirebilirsiniz", vbCritical, "UYARI"
 
        Case "2222"
            With Sheets("DATA")
                .Unprotect
                .Cells.Locked = True
                With .Columns("D:F")
                    .Locked = False
                End With
                .Protect
            End With
            MsgBox "Sadece D-F sütunlarındaki hücreleri değiştirebilirsiniz", vbCritical, "UYARI"
 
        Case Else
            MsgBox "Girdiğiniz şifreniz yanlış" & vbLf & "Hiçbir hücreyi değiştiremezsiniz", vbCritical, "UYARI"
            With Sheets("DATA")
                .Unprotect
                .Cells.Locked = True
                .Protect
            End With
   End Select
End Sub