Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 75269 Skopiuj do schowka Tworzenie nowego skoroszytu z blokadą komórek
Autor Wiadomość
Marcindworzan 
Stały bywalec Excelforum



Wersja: Win Office 2019
Posty: 439
Wysłany: 24-11-2023, 07:13   Tworzenie nowego skoroszytu z blokadą komórek

Witam. W załączniku umieściłem plik o nazwie Test (jest to bardzo okrojona wersja dużo większego projektu, ale na potrzeby problemu umieściłem to co istotne). W ww. pliku w zakładce "BLACKLIST" na samym dole jest niebieski prostokąt, do którego przypisano makro. Po jego kliknięciu tworzy się kopia w nowym skoroszycie. Czy jest taka możliwość, aby ten nowo-wygenerowany plik miał automatycznie zablokowane konkretne komórki, tj. D7, K1, E13, E17, I33 - aby osoba postronna nie mogła nic wpisać/zmienić do ww. komórek?
Z góry dziękuję za wszelką pomoc.

Test.xlsm
Pobierz Plik ściągnięto 12 raz(y) 29.68 KB

ID posta: 431525 Skopiuj do schowka
 
 
Tajan


Pomógł: 5407 razy
Posty: 11795
Wysłany: 24-11-2023, 13:19   

Fragment makra:
Kod:
        With ActiveWorkbook
            With .Sheets(1).UsedRange
                .Cells.Copy
                .Cells.PasteSpecial xlPasteValues
            End With
            .SaveAs oFD.SelectedItems(1), FileFormat:=51
            .Close False
        End With

zmień na:
Kod:

        With ActiveWorkbook
            With .Sheets(1)
                With .UsedRange.Cells
                    .Copy
                    .PasteSpecial xlPasteValues
                    .Locked = False
                End With
                 ' D7, K1, E13, E17, I33
                .Range("D7:G7, K1, E13:K13, E17:J17, I33:J34").Locked = True
                .Protect Password:="Tajne_haslo"
            End With
            .SaveAs oFD.SelectedItems(1), FileFormat:=51
            .Close False
        End With
Masz tam scalone komórki więc należy blokować ich nieco więcej.
ID posta: 431540 Skopiuj do schowka
 
 
Marcindworzan 
Stały bywalec Excelforum



Wersja: Win Office 2019
Posty: 439
Wysłany: 24-11-2023, 16:10   

Bardzo dziękuję za pomoc. Pozdrawiam.
ID posta: 431546 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe