Imam težavo z nastavitvijo EnableSelection=xlUnlockedCells
V delovnem zvezku imam tri liste zaščitene in nastavljeno lastnost: EnableSelection=xlUnlockedCells.
Ko zvezek zaprem in ga ponovno odprem pa se nastavitve spremenijo na: EnableSelection=xlNoRestrictions.
Pri zapiranju vedno potrdim shranjevanje sprememb!
V zvezku imam tudi VBA kodo v kateri v nekaterih primerih listu ukinem zaščito in jo po spremembi zaščitenih celic ponovno vrnem.
Nastavitve EnableSelection v VBA kodi ne spreminjam.
Za test sem v dogodka Workbook_BeforeClose in Workbook_Open dodal naslednjo kodo:
Koda: Izberi vse
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Prot = Worksheets("Promet").ProtectContents ' True
EnSel1 = Worksheets("Promet").EnableSelection ' 1 (xlUnlockedCells)
EnSel2 = Worksheets("Namensko").EnableSelection ' 1 (xlUnlockedCells)
EnSel3 = Worksheets("Nastavitve").EnableSelection ' 1 (xlUnlockedCells)
EnSel4 = Worksheets("Poročilo").EnableSelection ' 0 (xlNoRestrictions)
EnSel5 = Worksheets("Projekti").EnableSelection ' 0 (xlNoRestrictions)
EnSel6 = Worksheets("Vir_XX").EnableSelection ' 0 (xlNoRestrictions)
EnSel7 = Worksheets("START").EnableSelection ' 1 (xlUnlockedCells)
Stop ' TEST
End Sub
Private Sub Workbook_Open()
Prot = Worksheets("Promet").ProtectContents ' True
EnSel1 = Worksheets("Promet").EnableSelection ' 0 (xlNoRestrictions)
EnSel2 = Worksheets("Namensko").EnableSelection ' 0 (xlNoRestrictions)
EnSel3 = Worksheets("Nastavitve").EnableSelection ' 0 (xlNoRestrictions)
EnSel4 = Worksheets("Poročilo").EnableSelection ' 0 (xlNoRestrictions)
EnSel5 = Worksheets("Projekti").EnableSelection ' 0 (xlNoRestrictions)
EnSel6 = Worksheets("Vir_XX").EnableSelection ' 0 (xlNoRestrictions)
EnSel7 = Worksheets("START").EnableSelection ' 1 (xlUnlockedCells)
Stop ' TEST
Worksheets("Promet").EnableSelection = xlUnlockedCells ' Za vsak slučaj
Worksheets("Namensko").EnableSelection = xlUnlockedCells ' Za vsak slučaj
Worksheets("Nastavitve").EnableSelection = xlUnlockedCells ' Za vsak slučaj
End Sub
Če zvezek samo odprem in zaprem ( in ponovim vajo) je rezultat vedno isti:
- Tik pred zapiranjem je nastavitev EnableSelection = xlUnlockedCells
- Ko pa zvezek takoj nato spet odprem pa je nastavitev zopet: EnableSelection = xlNoRestrictions.
Kot, da se nastavitev pri shranjevanju ne bi zapisala ali pa pri ponovnem odpiranju preglasila z neko nastavitvijo, ki jo ne poznam.
Zanimivo, pri listu "START" (ki ni zaščiten) se to ne dogaja.
Saj pri Open lahko postavim nastavitev, vendar dogajanja ne razumem.
Mi lahko pomagate / razložite?
Lep pozdrav, Drago