Ukrywanie zabezpieczanie arkuszy

Czasami jesteśmy przekonani, że w Excelu ktoś ukrył jakąś kartę a na niej jakieś ciekawe informacje. Aby się do nich dobrać należy włączyć edytor VBA - alt + F11. Tworząc nowy moduł piszemy w nim procedurę wypiszArkusze na wzór:

Sub wypiszArkusze()
  Dim arkusz()
  Dim widoczny()
 
  ile = ActiveWorkbook.Sheets.Count
  ReDim arkusz(1 To ile)
  ReDim widoczny(1 To ile)
  
  For i = 1 To ile
    arkusz(i) = ActiveWorkbook.Sheets(i).Name
    widoczny(i) = ActiveWorkbook.Sheets(i).Visible
    Range("B1").Offset(i, 0).Value = arkusz(i)
    Range("B1").Offset(i, 1).Value = widoczny(i)
    
    If False = widoczny(i) Then
      ActiveWorkbook.Sheets(i).Visible = True
    End If
  Next i
End Sub

W ten sposób otrzymamy kompletną listę zakładek i przy okazji wszystkie uaktywnimy.  

słowa kluczowe: arkusz, ukrywanie arkusza arkuszy, ukryta zakładka w Excel,


Co do zabezpieczeń arkusza można w VBA użyć:

ActiveWorkbook.ProtectionStructure = True
' lub
ActiveWorkbook.ProtectionStructure = False

słowa kluczowe: zabezpieczenie arkusza arkuszy blokada Blokada kombinacji klawiszy CTRL + BREAK

Application.EnableCancelKey = xlDisabled
' nie zapomnijmy potem:
Application.EnableCancelKey = xlEnabled

Temat ten rozwiną się praktycznie w poście >>