Excel VBA: Makro do zablokowania arkusza hasłem (automatyczne zabezpieczenie danych)

🔍 Co robi to makro?

To proste makro VBA blokuje aktywny arkusz Excela przy użyciu hasła. Dzięki temu nikt nie może edytować zawartości arkusza bez znajomości hasła. Świetnie nadaje się do zabezpieczenia formuł, struktury lub gotowych raportów.

📋 Kod VBA: każda linia od nowego wiersza

Sub ZabezpieczArkusz()
  Dim haslo As String
  Dim ws As Worksheet

  Set ws = ActiveSheet

  haslo = InputBox("Podaj hasło, którym chcesz zabezpieczyć arkusz:", "Ustawianie hasła")

  If haslo = "" Then
    MsgBox "Nie podano hasła. Makro przerwane.", vbExclamation
    Exit Sub
  End If

  ws.Protect Password:=haslo, DrawingObjects:=True, Contents:=True, Scenarios:=True

  MsgBox "Arkusz został zabezpieczony hasłem.", vbInformation
End Sub

🛠️ Jak działa to makro?

1. Makro pyta użytkownika o hasło (okienko).
2. Jeśli hasło zostało podane, arkusz zostaje zablokowany.
3. Użytkownik bez hasła nie będzie mógł zmieniać zawartości komórek, formuł, formatowania itp.

💡 Co możesz zmodyfikować?

• Możesz ustawić hasło na sztywno, np. haslo = "1234" (bez inputboxa).
• Możesz dodać parametr AllowFiltering:=True, jeśli chcesz, aby filtrowanie było dostępne mimo blokady.
• Dodaj opcję UserInterfaceOnly:=True, jeśli chcesz, by makra nadal działały mimo blokady.

✅ Podsumowanie

To makro zabezpiecza arkusz w kilka sekund. Idealne do tworzenia chronionych szablonów, formularzy lub raportów, które nie powinny być przypadkowo modyfikowane przez użytkowników końcowych.