Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Skoroszyt ochrona wszystkich arkuszy.

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

Przy każdorazowym uruchomieniu skoroszytu, pojawia się okienko z takim komunikatem:

Kod:

Microsoft Visual Basic for Applications

Compile error in hidden module: Ten_skoroszyt.
This error commonly occurs when cod eis incompatible with.
The version, platform, or architecture of this application. Click
„Help” for information on how to correct this error.

Tajan · **Pomógł:** 5573 razy Posty: 12088

Zbędne "End If" usunąłeś?

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

Nie „ End If „ nie usunąłem.

Ale po usunięciu „ End If ”, przy uruchomieniu skoroszytu pojawia się błąd: Run-time error ‘9’

Kod:

Run-time error 9
Subscript out of range

Natomiast w jednym z arkuszy, po kliknięciu w przycisk np. Sortuj wyskakuje błąd: Run-time error 1004

Kod:

Run-time error 1004:

Nie można uruchomić tego polecenia w chronionym arkuszu. Aby użyć tego
polecenia, należy najpierw usunąć ochronę arkusza (na karcie
Recenzja kliknij grupę Zmiany, a następnie kliknij przycisk Nie chroń
arkusza). Może się pojawić monit o hasło.

Marecki · Wysłany: 15-06-2024, 19:57

Odnośnie "Run-time error 9"

Kod:

For Each wks In ThisWorkbook.Worksheets(Array("Wykaz", "Plan Urlopów", _
"Wykaz Telefonów", "Telefony Baza", "Urlop-24"))

Pierwszy raz widzę taką konstrukcję.
Składnia użyta w For Each jest niepoprawna, ponieważ metoda Worksheets nie obsługuje bezpośrednio tablicy arkuszy w ten sposób.

Powinno być tak:

Kod:

Dim sheetNames As Variant
Dim wks As Worksheet

sheetNames = Array("Wykaz", "Plan Urlopów", "Wykaz Telefonów", "Telefony Baza", "Urlop-24")

For Each wks In ThisWorkbook.Worksheets
If Not IsError(Application.Match(wks.Name, sheetNames, 0)) Then
wks.Protect Password:="1234", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=False, _
UserInterfaceOnly:=True
End If
Next wks

A "Run-time error 1004" masz dobrze opisany i instruuje Cie co masz zrobić.

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

Ok. Działa zarówno makro Mareckiego jak i Tajana po usunięciu EndIf (gdzie podczas testów popełniłem błąd przy opisie arkuszy i wklejeniu innego hasła).

Teraz jest dobrze tak jedno jak i drugie makro do wykorzystania.
Dziękuję.

Maciej Gonet · Wysłany: 15-06-2024, 21:56

Marecki · Wysłany: 15-06-2024, 22:24

Masz rację Macieju, mój błąd, przepraszam.
Przy testach wprowadziłem złą nazwę arkusza.
Zamiast "Arkusz 1" wpisałem "Arkusz1" i dostałem Error 9, który sugeruje że próbujemy odwołać się do elementu tablicy, kolekcji lub zakresu, który nie istnieje.
Sorki.

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

Testuję:
Poniższe makro obecnie wklejone jest do Ten_skoroszyt.

Kod:

Private Sub Workbook_Open()
Dim wks As Worksheet
Dim WksA As Worksheet

Set WksA = ActiveSheet
'...
For Each wks In ThisWorkbook.Worksheets(Array("Wykaz", "Plan Urlopów", _
"Wykaz Telefonów", "Telefony Baza", "Urlop-24"))
wks.Protect Password:="1234", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=False, _
UserInterfaceOnly:=True
Next
'....
WksA.Activate
End Sub

Jak go przerobić, abym mógł wkleić go do Module1, zobaczymy jak będzie się zachowywać.

Tajan · **Pomógł:** 5573 razy Posty: 12088

Ale, w jakim celu? Co to ma zmienić?

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

W Skoroszycie mam ok. 50 arkuszy. Chciałem sprawdzić czy po wklejeniu makra do Module, skoroszyt będzie szybciej się uruchamiał, czy może wyeliminuje to kręcące się kółeczko.

Tajan · **Pomógł:** 5573 razy Posty: 12088

To raczej niczego nie zmieni, bo czas wykonywania procedury nie zależy od jej lokalizacji lecz od rodzaju czynności jakie ona wykonuje. Ale, jeżeli chcesz się przekonać, to przenieś kod do modułu i zmień nazwę procedury z

Kod:

Private Sub Workbook_Open()

na np.

Kod:

Sub ProtectSheets()

(zauważ, że brak słowa Private) a w Ten_skoroszyt umieść:

Kod:

Private Sub Workbook_Open()
ProtectSheets
End Sub

Raazor · ExcelGaduła 500+ Wersja: Win Office 2016 Posty: 779

Potestowałem trochę w swoim skoroszycie Makro które wstawiłem do Module1 zamiast do Ten_skoroszyt.

Jest tak, jak napisał powyżej Tajan, a czas wykonywania procedury w obydwu przypadkach w zasadzie był identyczny.

Dziękuję za pomoc.