Ana içeriğe atla

Excel'de çalışma sayfası sekmesi nasıl kilitlenir veya dondurulur?

Birden çok çalışma sayfası içeren bir çalışma kitabınız olduğunu varsayarsak, çalışma kitabındaki ilk sekme olarak Ana Sayfa adlı bir çalışma sayfası vardır. Ve şimdi, birkaç çalışma sayfasında gezinirken bile her zaman görünür kılmak için bu sayfa sekmesini kilitlemeyi veya dondurmayı denemek istiyorsunuz. Aslında, sekmeyi dondurmanızın doğrudan bir yolu yoktur, ancak bu sorunu çözmek için bir geçici çözüm kullanabilirsiniz.

VBA kodu ile belirli bir çalışma sayfası sekmesini kilitleyin veya dondurun

ok mavi sağ balon VBA kodu ile belirli bir çalışma sayfası sekmesini kilitleyin veya dondurun

Excel'de, belirli çalışma sayfasını her zaman geçerli tıklanan çalışma sayfası sekmenizden önce yapmak için aşağıdaki VBA kodunu uygulayabiliriz, böylece diğer herhangi bir sayfa sekmesinde gezinirken bu çalışma sayfasını her zaman görebilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. Sonra seç Bu Çalışma Kitabı soldan Proje Gezgini bölmeyi açmak için çift tıklayın modülve ardından aşağıdaki VBA kodunu kopyalayıp boş Modüle yapıştırın:

VBA kodu: Belirli bir çalışma sayfası sekmesini dondurun veya kilitleyin

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

belge-dondurma-sayfa-sekmesi-1

3. Ve sonra bu kodu kaydedin ve kapatın, şimdi, çalışma sayfası sekmenizden herhangi birine tıkladığınızda, bu belirli çalışma sayfası her zaman tıklanan sayfa sekmenizin önünde olacaktır, ekran görüntülerine bakın:

belge-dondurma-sayfa-sekmesi-2
-1
belge-dondurma-sayfa-sekmesi-3

not: Yukarıdaki kodda, Ana sayfa dondurmak istediğiniz sayfa adıdır, ihtiyacınıza göre değiştirebilirsiniz.

İlgili yazılar:

Excel 2010'da Bölmeler Nasıl Dondurulur?

Dondurma / çözme bölmelerini aynı anda birden çok çalışma sayfasına nasıl uygulayabilirim?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • 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!
Comments (10)
No ratings yet. Be the first to rate!
Xuan
Xuan
This comment was minimized by the moderator on the site
chăng đc gi cả
Reply
0
0
Joku
Joku
This comment was minimized by the moderator on the site
As Thuyen pointed out 2 years ago, you can't copy data between sheets while this code is active. Furthermore, the code is needlessly complicated. The sheet that you activate is passed to the procedure as the parameter "Sh". This makes the frequent calls to "ActiveSheet" unnecessary, and could cause problems for someone who's trying to modify the code but isn't very experienced.

Here's my versions that corrects those issues, and even shows how to add a 2nd "Main" sheet (similar to what Dzingai posted):
-----------------------------------------------------------------

'These 2 lines aren't necessary if you use the sheets' codenames, which I recommend.
Set shtMain1 = Worksheets("Main-Sheet-1")
Set shtMain2 = Worksheets("Main-Sheet-2")

If Application.CutCopyMode = False Then
If Sh.Index <> shtMain1.Index And Sh.Index <> shtMain2.Index Then
shtMain1.Move before:=Sh
shtMain2.Move before:=Sh
Sh.Activate
End If
End If
Reply
Report
0
0
Sangs
Sangs
This comment was minimized by the moderator on the site
This code worked well. Only problem is...if we close the file & open it again it goes off.
Reply
0
0
Dzingai
Dzingai     Sangs
This comment was minimized by the moderator on the site
[quote]This code worked well. Only problem is...if we close the file & open it again it goes off.By Sangs[/quote] Try saving document as Macro-Enabled Workbook. I think it should work well that way.
Reply
0
0
Pablo
Pablo
This comment was minimized by the moderator on the site
Is it possible to create one with multiple arguments? Like instead of just moving the one main sheet to the front of where you are working, is it possible to move three tabs in front of what you are working on?
Reply
0
0
dzingai
dzingai     Pablo
This comment was minimized by the moderator on the site
Yes, it is possible, you just have to add more arguments to the if clause using the "AND" like this IF Application.ActiveSheet.Index Application.Sheets("Main-sheet").Index AND Application.ActiveSheet.Index Application.Sheets("Other-Main-sheet").Index and so on... Then Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.Sheets("Other-Main-sheet").Index) Application.Sheets("Main-sheet").Activate Application.Sheets("Other-Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index) Application.Sheets("Other-Main-sheet").Activate Sh.Activate This will place the Main-Sheet, then the Other-Main-Sheet in front of your active sheet.
Reply
0
0
Rahulkaalle
Rahulkaalle     dzingai
This comment was minimized by the moderator on the site
is this vba my excel sheet not freezeplease give me solution
Reply
0
0
MEESHA
MEESHA
This comment was minimized by the moderator on the site
Could not get your code to work, but this one did :) Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim sc As Long ' count of sheets Dim NewPos As Long ' index of serlected sheet Application.EnableEvents = False Application.ScreenUpdating = False If ActiveSheet.Index 1 Then sc = Sheets.Count NewPos = ActiveSheet.Index For i = 2 To NewPos - 1 Sheets(2).Move After:=Sheets(sc) Next i Sheets(1).Activate Sheets(2).Activate End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub
Reply
0
0
Thuyen
Thuyen
This comment was minimized by the moderator on the site
When I use VBA, I cannot copy data from Main-Sheet to another sheet Please help me fix this bug
Reply
0
0
Anna
Anna     Thuyen
This comment was minimized by the moderator on the site
hahaha. so true! did you find a fix for this?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations