Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - makro - 5 otwarć

kufel97 · Starszy Forumowicz Posty: 40

Witam.
Jak ktoś mógłby mi powiedzieć jak powinno wyglądać makro które pozwoli otworzyć plik powiedzmy tylko 5 razy. Po tych pięciu razach niech cały arkusz zostanie zablokowany w taki sposób aby mozna było go tylko oglądać bez możliwości jakiejkolwiek zmiany.

Tajan · **Pomógł:** 5501 razy Posty: 11968

Przykładowe makro zapisujące i sprawdzające liczbę otwarć pliku może wyglądąć tak:

Kod:

Private Sub Workbook_Open()
Dim ile As Integer
Dim sh As Worksheet
Dim nazwa As String, sekcja As String, klucz As String
Dim wartosc As String

nazwa = "NazwaKlucza": sekcja = "nazwaSekcji": klucz= "nazwaWartosci"

wartosc = GetSetting(appname:=nazwa, section:=sekcja, _
key:=klucz, Default:="0")
ile = CInt(wartosc) + 1

If ile > 5 Then
For Each sh In Me.Worksheets
If Not sh.ProtectContents Then
sh.UsedRange.Cells.Locked = True
sh.Protect "tajneHaslo"
End If
Next
Me.Protect "tajneHaslo", True, False
Else
SaveSetting appname:=nazwa, section:=sekcja, _
key:=klucz, setting:=CStr(ile)
End If

End Sub

Liczba otwarć jest zapisywana w rejestrze. Po przekroczeniu wartości granicznej na wszystkie arkusze i skoroszyt zostaje nałożona ochrona.
Makro musi uruchamiać się w momencie otwierania skoroszytu, więc nalezy je umieścic w module ThisWorkbook.
Nazwy klucza, sekcji i wartości oraz hasła zmień na własne.
O siebie dodam, że taki sposób zabezpieczenia jest dość łatwy do ominięcia, więc nie daję gwarancji, że żaden z Twoich użytkowników tego nie złamie :-D

kufel97 · Starszy Forumowicz Posty: 40

Wielkie dzięki Wielki Tajanie.
O to właśnie mi chodziło