Tak jak możesz chronić skoroszyty i arkusze kalkulacyjne hasłem, możesz hasło chroń makro w Przewyższać przed oglądaniem (i wykonywaniem).
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw utwórz proste makro, które chcesz chronić.
Range("A1").Value = "To jest tajny kod"
2. Następnie kliknij Narzędzia, Właściwości VBAProject.
3. Na zakładce Ochrona zaznacz "Zablokuj projekt do przeglądania" i dwukrotnie wprowadź hasło.
4. Kliknij OK.
5. Zapisz, zamknij i ponownie otwórz plik Excel. Spróbuj zobaczyć kod.
Pojawi się następujące okno dialogowe:
Nadal możesz wykonać kod, klikając przycisk polecenia, ale nie możesz już wyświetlać ani edytować kodu (chyba że znasz hasło). Hasło do pliku Excel do pobrania jest „łatwe”.
6. Jeśli chcesz zabezpieczyć hasłem makro przed wykonaniem, dodaj następujące linie kodu:
Hasło Dim jako wariant
hasło = Application.InputBox("Wprowadź hasło", "Zabezpieczone hasłem")
Wybierz hasło sprawy
Wielkość liter = Fałsz
'nic nie robić
Wielkość liter = „łatwe”
Range("A1").Value = "To jest tajny kod"
Przypadek inny
MsgBox "Nieprawidłowe hasło"
Koniec Wybierz
Wynik po kliknięciu przycisku polecenia na arkuszu:
Objaśnienie: Makro używa metody InputBox obiektu Application. Jeśli użytkownik kliknie Anuluj, ta metoda zwróci False i nic się nie stanie (InputBox zniknie). Dopiero gdy użytkownik zna hasło (znów „łatwe”), tajny kod zostanie wykonany. Jeśli wprowadzone hasło jest nieprawidłowe, zostanie wyświetlony komunikat MsgBox. Należy zauważyć, że użytkownik nie może spojrzeć na hasło w Edytorze Visual Basic, ponieważ projekt jest chroniony przed przeglądaniem.
