Zamrzni podokna z uporabo VBA
Pred kratkim sem objavil na podoknih Zamrzovanje v Excelu, tako lahko to storite z uporabo VBA:
Zamrzni vrstice
Vrstice ("1: 1"). Izberite ActiveWindow.FreezePanes = True
Zamrzni stolpce
Razpon ("A: A"). Izberite ActiveWindow.FreezePanes = True
Zamrzni vrstice in stolpce
Razpon ("B2"). Izberite ActiveWindow.FreezePanes = True
Odmrzni podokna
ActiveWindow.FreezePanes = Napačno
Prisilite delovni zvezek, da shranite brez podokna
Excel nam omogoča nadzor nad dogodki. Ta članek ni podrobna razprava o tem, kaj so dogodki ali njihove značilnosti. Namesto tega poda primer dogodka delovne knjige. To so dogodki, ki potekajo na ravni delovnega zvezka in ne na določenem delovnem listu.
Z VBA lahko nadzorujemo, kaj se zgodi ob določenih dogodkih, na primer pred tiskanjem ali pred shranjevanjem. Ena pogosta težava, s katero se srečujem, je, da številni ljudje, s katerimi delam, ne marajo datotek z zamrznjenimi podokni.
Tako bomo v tem članku zbrali nekaj kode, ki bo preverila, ali so zamrznjena podokna vklopljena, in če je tako, datoteke ne bo shranila. To pomeni, da ga moram shraniti brez zmrzovalnih plošč - da bodo moji kolegi zadovoljni !!
Najpomembnejše pri dogodkih v delovnem zvezku je, da jih je treba shraniti na pravo mesto - na ravni delovnega zvezka.
Za dostop do ravni delovnega zvezka sledite spodnjim korakom:
1. Z desno miškino tipko kliknite Excelov delovni zvezek - oglejte si kodo:
2. To bo prikazalo:
3. Dvokliknite »Ta delovni zvezek« in nato v prvem spustnem meniju na levi strani izberite »Delovni zvezek«:
Vidimo, da se je vrednost na levi strani zdaj spremenila v »Odpri« - z nekaj kode za dogodek odprtega delovnega zvezka. Ta koda nam bo omogočila, da ugotovimo, kaj se zgodi, ko se delovni zvezek prvič odpre.
Vendar želimo nadzorovati, kaj se zgodi, ko shranimo delovni zvezek. Zato spremenite desni spustni meni na »Pred shranjevanjem«. Zaslon bo zdaj videti tako:
Zdaj po izjavi vstavimo naslednjo kodo:
Če je ActiveWindow.FreezePanes = True, potem je MsgBox "Zamrzovalna podokna vklopljena - datoteka ni shranjena" Prekliči = True End Če
Tako da je celotna koda zdaj videti:
Private Sub Workbook_BeforeSave (ByVal SaveAsUI Kot Boolean, Prekliči kot Boolean) Če je ActiveWindow.FreezePanes = True, potem je MsgBox "Zamrzovalna podokna vklopljena - datoteka se ne shrani" Prekliči = True End Če konča Sub
Zdaj shranite datoteko in nato aktivirajte Zamrzni podokna v katerem koli oknu. Nato - shrani datoteko. Prikazalo se bo sporočilo z navedbo, da je funkcija »Zamrzni podokna« vklopljena - datoteka pa ni shranjena.
Datoteka se ne bo shranila, dokler ne odstranite zamrznjenih podoknov.
