Excel'deki kullanıcılar tarafından bireysel çalışma sayfalarını korumak için parolalar nasıl ayarlanır?
Excel'de, farklı sayfalar için farklı parolalar ayarlayabilirsiniz; bu, bir kullanıcının bir parola kullanarak bir çalışma sayfasında değişiklik yapabileceği ve diğerinin başka bir çalışma sayfasında değişiklik yapmak için farklı bir parola kullanabileceği anlamına gelir. Ancak bazen her kullanıcının yalnızca kendi sayfalarını görüntüleyebilmesini ve erişebilmesini istersiniz. Bunu Excel'de çözmek mümkün mü?
Her çalışma sayfasını ayrı ayrı korumak ve kullanıcıların çalışma sayfalarına erişimini sınırlamak için lütfen aşağıdaki VBA kodunu uygulayın:
1. Yeni bir çalışma kitabı açın ve “Ana” adlı yeni bir sayfa oluşturun, ekran görüntüsüne bakın:
2. Daha sonra, tuşuna basın. Alt + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu Çalışma Kitabı soldan Proje-VBAProject boş bir kod modülü açmak için bölmeyi açın ve ardından aşağıdaki VBA kodunu kopyalayıp kod penceresine yapıştırın, ekran görüntüsüne bakın:
VBA kodu: Tek tek sayfaları kullanıcılar tarafından korumak için şifreler ayarlayın
Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
If xUserName = "" Then
Exit Sub
End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
If xPass = "" Then
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Else
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
If xWSh.Name = xUserName Then
xBolH = True
Exit For
End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
If xWSh.Name <> "Main" Then
xWSh.Visible = xlSheetVeryHidden
End If
Next xWSh
ActiveWorkbook.Save
End Sub
3. Ardından, imleci Özel Sub Workbook_Open () komut dosyası ve basın F5 Bu kodu çalıştırmak için anahtar. Şimdi, açılan komut kutusuna, bu kullanıcı için bir sayfa oluşturmak istediğiniz kullanıcı adını girin, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesini tıklayın, aşağıdaki istem kutusuna bu sayfayı korumak için bir şifre girin, ekran görüntüsüne bakın:
5. Tıklamaya git OK butonuna tıklar ve bir kerede kullanıcı adıyla isimlendirilmiş yeni bir sayfa oluşturulur ve o kullanıcı için ihtiyacınız olan verileri oluşturabilirsiniz. Ekran görüntüsüne bakın:
6. Kullanmak istediğiniz diğer sayfaları tek tek oluşturmak için yukarıdaki adım 3 – adım 5'i tekrarlayın.
7. Sayfaları oluşturduktan sonra, mevcut çalışma kitabını tıklayarak kaydedin. fileto > Farklı Kaydet., İçinde Farklı Kaydet iletişim kutusunda bir dosya adı belirtin ve ardından Excel Makro Etkin Çalışma Kitabı (* .xlsm) biçimi Kayıt türü açılır liste, ekran görüntüsüne bakın:
8. Ardından bu dosyayı kaydetmek için Kaydet düğmesine tıklayın.
9. Ardından çalışma kitabını kapatın ve yeniden açın, ardından İçeriği etkinleştirmek kodu etkinleştirmek için formül çubuğunun üst kısmındaki ekran görüntüsüne bakın:
10. Şimdi, belirli bir sayfayı belirli bir kullanıcı tarafından açmak için kullanıcı adını ve şifreyi girmenizi hatırlatmak için bir istem kutusu açılacaktır.
11. Son olarak, bu çalışma kitabını diğer kullanıcılara gönderirken, kullanıcı adını ve şifresini kullanıcıya göndermelisiniz. Yalnızca kendi sayfalarını açıp düzenlerler ve diğer çalışma sayfalarını görme yetkileri yoktur.
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
