YETKİ BİLGİSAYAR ADINA GÖRE

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
Merhaba arkadaşlar çalıştığım kurumun 45 tane ünitemiz var ekte link den gönderdiğim dosyada C kolonuna bilgisayar adları var o bilgisayar adı hangi fabrikaya ait ise o fabrika sayfasına giriş yapabilsin diğer ünite giriş yapamasın.
 
Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
Merhaba,
Login kullanıcı girişi ve yetkilendirme hakkında benzer konu ve konular;
Yapamaz iseniz buradan veya özelden iletişime geçerseniz ikinci link için yardımcı olmak isterim.
İyi çalışmalar.
 

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
merhaba altın üye olmadığım için dosyaları indiremiyorum link e dosya atarsanız sevinirim.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki kodları "ThisWorkbook" kod sayfasına kopyalayın.
Ben kullanıcı adına göre gizle göster yaptım.
Eğer Bilgisayar adına göre olacaksa "Username" yerine "Computername" yazınız.

Dosya açılıp kapandığında kodlar otomatik çalışacaktır.
Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Bak As Long
    With ThisWorkbook.Worksheets("İndex")
        For Bak = 2 To .Cells(Rows.Count, "C").End(xlUp).Row
            If ThisWorkbook.Worksheets(Bak).Name <> "index" Then ThisWorkbook.Worksheets(Bak).Visible = xlSheetVeryHidden
        Next
    End With
End Sub

Private Sub Workbook_Open()
    Dim Bak As Range
    With ThisWorkbook.Worksheets("İndex")
        Set Bak = .Range("C:C").Find(what:=Environ("Username"), lookat:=xlWhole)
        If Bak Is Nothing Then
            MsgBox "Kullanıcı adınız 'İndex' sayfasında mevcut değil. Lütfen yönetici ile iletişime geçiniz.", vbExclamation
        Else
            On Error Resume Next
            ThisWorkbook.Worksheets(.Cells(Bak.Row, "B").Text).Visible = True
            If Err.Number > 0 Then MsgBox "'" & .Cells(Bak.Row, "B").Text & "' adlı sayfa bulunamıyor. Lütfen yönetici ile iletişime geçiniz.", vbExclamation
        End If
    End With
End Sub
 
Son düzenleme:
Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
merhaba altın üye olmadığım için dosyaları indiremiyorum link e dosya atarsanız sevinirim.
Merhaba,

Link1 İçin;
Link2 İçin;

Link1 Giriş İçin Kullanıcı Bilgileri;

KULLANICI

PAROLA

BURAK

1234


Link2 Giriş İçin Kullanıcı Bilgileri;

KULLANICI

PAROLA

ORHAN

1234


Link2 için giriş yaptığınızda userform açılmaktadır exceli açmak için x aç' a tıklayınız.


Sizin bahsettiğiniz format Link1 deki dosyadır büyük ihtimalle @Muzaffer Ali hocamın paylaşımı olan. Ve yukardaki paylaşımını da dikkate almanızı öneririm.

İyi çalışmalar.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
4. mesajdaki yanıt işinizi görmüyor mu?
 

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
Hayır usta görmüyor benim istediğim dosyayı acak kişinin bilgisayar adı index sayfasında ki C kolonunda yoksa B kolonundaki ünite adları sayfası vardır kendi ünite sayfasını göremeyecek.
 

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
Arkadaşlar ilginize çok teşekkür ederim kalın sağlıcakla.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,334
Excel Vers. ve Dili
2019 TR
Merhaba, sayfa oluştur makrosu için ekleme yapmak istiyorum.
B sütunundaki ünite isimlerinde " / " gibi özel karakter kullanılmış. Ancak bu karakterler sayfa isimlerinde kullanılamaz.
Sayfa oluştur makrosunu çalıştırdığınız zaman bu karakterlerin olduğu ünite isimlerine ait sayfalar oluşmamaktadır.
Bu hatanın önüne geçmek için sayfa oluştur makrosunda Sheets("deneme").Visible = True satırının üzerine aşağıdaki satırları ekleyip On Error Resume Next satırını da pasif yapabilirsiniz.
Kod:
i = Array("/", "\", "~?", "~*", "[", "]")
For x = LBound(i) To UBound(i)
    s = WorksheetFunction.CountIf(Range("B:B"), "*" & i(x) & "*")
    If s > 0 Then
        MsgBox "Unite Adında aşağıda sıralanan özel karakterler bulunmamalıdır! Lütfen ilgili kayıtları kontrol ediniz. " & vbNewLine & vbNewLine & Join(i, " , "), vbInformation, ""
        Exit Sub
    End If
Next
 
Üst