Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Tworzenie nowego skoroszytu z blokadą komórek

Marcindworzan · 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 33 raz(y) 29.68 KB

Tajan · **Pomógł:** 5512 razy Posty: 11984

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.

Marcindworzan · Wysłany: 24-11-2023, 16:10

Bardzo dziękuję za pomoc. Pozdrawiam.