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: 64427 Skopiuj do schowka Data aktualizacji z power Query
Autor Wiadomość
mancia14 
Exceloholic


Pomógł: 2 razy
Posty: 176
Wysłany: 14-03-2019, 09:05   Data aktualizacji z power Query

Cześć!
Przy pomocy kodu znalezionego w sieci wstawiłem sobie tabelkę, w której PQ wczytuje przy odświeżeniu danych aktualną datę i godzinę.
Chcę chronić ten arkusz, jednak wtedy odświeżenie nie działa. Wyskakuje błąd, że komórka, która próbuję zmienić jest w arkuszu chronionym. Jak to naprawić?

Dodatkowo czy można tą datę uzyskać nie w tabeli tylko od razu w komórce, tak żebym nie musiał się odnosić do komórki tabeli tak jak to zrobiłem, w komórce B1?

Proszę o założenie hasła na arkusz i sprawdzenie o czym mowa.

Dziękuję

data aktualizacji.xlsx
Pobierz Plik ściągnięto 23 raz(y) 20.86 KB

ID posta: 364196 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2119 razy
Posty: 7012
Wysłany: 14-03-2019, 12:33   

mancia14 napisał/a:
Dodatkowo czy można tą datę uzyskać nie w tabeli tylko od razu w komórce, tak żebym nie musiał się odnosić do komórki tabeli tak jak to zrobiłem, w komórce B1?
To bym zrobił tak jak w załączniku.

Niestety nie wiem jak odświeżyć dane przy włączonej ochronie arkusza - nawet makrem.
Poniższy kod sprawdza się przechodząc go w trybie debugowania - krok po kroku, ale uruchamiając go np spod przycisku pokazuje komunikat "Komórka lub wykres ...... są chronione....."
Kod:
Sub Test()
    ActiveSheet.Unprotect Password:="mk"
    ActiveWorkbook.RefreshAll
    'ThisWorkbook.Connections("Zapytanie — data aktualizacji").Refresh
    ActiveSheet.Protect "mk", True, True, True
End Sub

Hasło do ochrony
Kod:
mk


data aktualizacji.xlsm
Pobierz Plik ściągnięto 18 raz(y) 29.43 KB

_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 364216 Skopiuj do schowka
 
 
bodek 


Wersja: Win Office 2016
Pomógł: 945 razy
Posty: 2691
Wysłany: 14-03-2019, 14:56   

Marecki napisał/a:
Poniższy kod sprawdza się przechodząc go w trybie debugowania - krok po kroku, ale uruchamiając go np spod przycisku pokazuje komunikat "Komórka lub wykres ...... są chronione....."
Ponieważ odświeżanie trochę trwa :)
Do modułu arkusza wklej
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    'ewentualnie kod ograniczający zmianę tylko komórki ...
    Me.Protect "mk", True, True, True
End Sub
a poprzednią procedurę popraw na
Kod:
Sub Test()
    ActiveSheet.Unprotect Password:="mk"
    'ActiveWorkbook.RefreshAll
    ThisWorkbook.Connections("Zapytanie — data aktualizacji").Refresh
End sub

Inna sprawa, skoro korzystamy do wstawienia czasu do komórki z PQ, a do manipulacji ochroną z makr, to po co PQ?
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu
ID posta: 364224 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.marketingNET.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