# @excel_751 on Instagram

- **Type:** Video
- **Original URL:** https://www.instagram.com/p/DV2tK0AClLp
- **Gondola URL:** https://gondola.cc/posts/63330339-excel-751-instagram
- **Thumbnail:** https://img.gondola.cc/tr:w-,h-,fo-auto/postThumbnails/8306ddf65c.jpg
- **Posted:** 2026-03-14T06:33:47.000+00:00
- **Account Owner:** Excel 751 | Excel Eğitimleri | Excel Şablonları (@excel_751) — https://gondola.cc/excel_751

## Caption

Excel’de Kimsenin Bulamayacağı Sayfa Gizleme Yöntemi!

🔐 Excel’de sadece “Gizle” seçeneğini kullanmak çoğu zaman yeterli değildir.

Çünkü kullanıcılar sağ tıklayıp “Göster” diyerek sayfayı kolayca geri açabilir.

Bu videoda Excel’i biraz daha akıllı kullanıyoruz 👇

⚙️ Öğrenecekleriniz:
• Bir düğmeye tıklayarak sayfayı otomatik gizleme
• Sayfanın görünürlüğünü VeryHidden seviyesine alma
• Sağ tık ile bile görünmeyecek şekilde sayfayı saklama
• Başka bir sayfadaki “Sayfayı Göster” düğmesi ile sayfayı geri açma
• Sayfayı açmadan önce parola doğrulaması isteme

Bu yöntem özellikle:
📊 Dashboard sayfalarını korumak
📂 Veri giriş alanlarını saklamak
🔒 Kullanıcıların kritik sayfalara erişimini kontrol etmek
için oldukça kullanışlıdır.

Excel’i sadece tablo aracı değil, küçük bir uygulama gibi kullanmak isteyenler için güzel bir teknik.

#excel751 #excel #excelvba #exceltips #verianalizi

KODLAR

Option Explicit

Private Const SAYFA_SIFRESI As String = "1234" ' Burayı kendi şifrenizle değiştirin

Sub DashboardSayfasiniGizle()

  Dim wsDashboard As Worksheet
  Dim wsGirisler As Worksheet
 
  Set wsDashboard = ThisWorkbook.Worksheets("Dashboard")
 Set wsGirisler = ThisWorkbook.Worksheets("Girisler")
 
  Application.ScreenUpdating = False
 
 ' Önce kullanıcıyı başka sayfaya al
  wsGirisler.Activate
 
 ' Dashboard sayfasını VeryHidden yap
  wsDashboard.Visible = xlSheetVeryHidden
 
  Application.ScreenUpdating = True
 
  MsgBox "Dashboard sayfası gizlendi.", vbInformation, "Bilgi"

End Sub

Sub DashboardSayfasiniGoster()

  Dim wsDashboard As Worksheet
  Dim parola As String
 
  Set wsDashboard = ThisWorkbook.Worksheets("Dashboard")
 
  parola = InputBox("Dashboard sayfasını göstermek için parolayı giriniz:", "Parola Gerekli")
 
 ' Kullanıcı iptal ettiyse çık
  If parola = "" Then Exit Sub
 
  If parola = SAYFA_SIFRESI Then
 
  Application.ScreenUpdating = False
 
  wsDashboard.Visible = xlSheetVisible
  wsDashboard.Activate
 
  Application.ScreenUpdating = True
 
  MsgBox "Dashboard sayfası gösterildi.", vbInformation, "Başarılı"

## Stats

- **Views:** 6,107
- **Likes:** 144
- **Shares:** 0
- **Comments:** 12

## Tags

exceltips, excel751, excelvba, excel, verianalizi

---
Copyright (c) Gondola