[Resolved] munkalapok biztonsága automatikus frissítés mellett

AutoOpen-ben egy ActiveWorkbook.RefreshAll nem segít?

Szia!

Ez csak makróval oldható meg.
Ha nem nagyon elriasztó, vagy tilos.

A munkafüzet megnyitás eseményéhez rendelhető makró. Titok is ezt próbálta javasolni.

A makró felodja a lapvédelmet, frissíti a kapcsolatot (nem tudom mi az, PIVOT vagy egyéb), majd visszateszi a védelmet. Ha nincs egyéb kapcsolat, akkor a RefeshAll is megteszi.

Ehhez persze indításkor, amikor kérdezi, engedélyezni kell a makrókat.

A makrót neked kell létrehozni, majd mentés másként-el makróbarát munkafüzetként elmenteni.

Megpróbálom leírni a lépéseket:
1. Bármelyik munkalap jobb klikk -> Kód megjelenítése. Ezzel átvisz a makró szerkesztőbe, és az aktuális munkafüzet mint projekt lesz aktív a bal oldalon
2. Kettőt kattints a bal oldalon a ThisWorkbook ikonon
3. A jobb oldali ablak tetején látsz egy legördülőt Most az van belírva, hogy General, ezt váltsd át Workbook-ra
4. Megjelenik az üres WorkBook_Open eseménykezelő Sub. Ebbe kell beletenni azt, amit a megnyitáskor szeretnél.

Másold a Sub és End Sub közé a következő kód belsejét, hogy végül így nézzen ki:

Private Sub Workbook_Open()
    Sheets("lapnév").Unprotect Password:="password"
    ActiveWorkbook.RefreshAll
    Sheets("sheetname").Protect Password:="password"
End Sub

A lapnév és a password szövegeket cseréld le értelemszerűen.

Mentsd el a munkafüzetet makróbarátként.

Próbáld ki.
???

Imre

Szia!

A password dolog így nem kerülhető meg.
Az a biztonságos, ha egy inputbox-ban megkérdezed a jelszót, és nem kerül bele a kódba.

Tehát:

Private Sub Workbook_Open()
Dim v as string

    v=inpubox("Jelszó:")
    Sheets("mlap1").Unprotect Password:=v
    stb..., mindenhol a v-t beírva

End Sub

A frissítés végén a hibaüzenet lehet, hogy azért lehet, mert a frissítés esetleg még nem fejeződött teljesen be.
próbáld ki, hogy a RefreshAll sor után írsz egy

Application.Wait(Now + TimeValue("0:00:5"))

Ez 5 másodpercet vár, mielőtt tovább futna. Addig mehet a frissítés a háttérben.
???

Ha ez nem menne, akkor próbáld meg azt, hogy a kapcsolatoknál kézzel kikapcsolod a „Frissítés a háttérben” opciót.
Adatok->kapcsolatok->Tulajdonságok->Háttérfrissítés engedélyezése vagy ilyesmi.

Ebben az esetben lehet, hogy a Wait sem kell.
???

Imre

• A hozzászólás módosításra került: 6 years, 11 months telt el-horvimi.
• A hozzászólás módosításra került: 6 years, 11 months telt el-horvimi.
• A hozzászólás módosításra került: 6 years, 11 months telt el-horvimi.

Arra nincs lehetőség, hogy a kódban ne legyen benne valahogy.
De a kódot le tudod védeni.

ha átmész a VBA szerkesztőbe, akkor:
Tools->Options->VBA Project Properties->Protection->Lock Project for Viewing
Itt megadsz egy jelszót.

Így ha valaki más megy át a szerkesztőbe, az egész projekt be lesz csukva, és ha ki akarja nyitni, kéri a jelszót.

Másik, vagy további opció, ha nem csak beírod a jelszót, hanem egy valamilyen karaktersorozatot valamilyen algoritmussal transzformálsz, ami nehezen lekövethető, és a végeredménye az eredeti jelszó lesz.
Ennek viszont alaposan utána kell járni.

De szerintem a projekt védelme elég biztonságos egy átlag user előtt.

Imre