э-э-э, а можно сразу огласить список +/- в отличие от вьювера?

Cool 

ну навскидку ничо, пасмотрим

Nu ia uje vsio skazal tremia postami vyshe.
hotia... Battl, eto obnovliannaia versia ili ta 4to u menia byla na testinge?

Отредактировано Gebeleysis (2008-01-29 23:16:36)

У меня скорее всего офис старый, файл на запускается полностью, кнопочки не работают, но зато я пользуюсь ещё твоей старой версией империя 2.0

Не у меня реально офис старый, нужно SP2 ставить чтобы MS Office 2007 был..
Значит безопасность ставил и среднюю и низкую.
Запускаю файл:
1.окно с вопросом о отключение макросов..СТАВЛЮ НЕ ОТКЛЮЧАТЬ
2.выпадает окно Object library not registered..варинты ответа да и справка..жму ДА
3.опять окно с выфбором макросов..СТАВЛЮ НЕ ОТКЛЮЧАТЬ
4.Сообщение В империя 3.5 были обнаружены ошибки, но Microsoft Excel смог открыть файл, внеся в него перечисленные ниже исправления. Сохраните файл, чтобы сохранить эти исправления.

"Потерян проэкт Visual Basic.
Потетяны элементы управления ActiveX"
Вариант ответа "ДА"
и всё дальше сохраняй, не сохраняй, кнопки не работают:)

У меня руки из попы растут, если что:))

Battl, po4emu tuta:

Private Sub Worksheet_Deactivate()
    With ActiveWorkbook.Worksheets("Постройки")
        If .ProtectContents = True Then
            .Unprotect
            q = 1
        End If
    End With

Unprotect ne rabotaet?
4tob s postroek narmalina vyiti nado v nastroikah ubrati zashitu. IMHO eto tipa kak kupiti mabilnik s fotokameroi, no na nem fotokamera ne rabotaet. Tipa iuzati mojna no ne spolna

Отредактировано Gebeleysis (2008-02-05 03:07:30)

Ia-to ponial 4to on delaet ne zria-j programmer
Delo v tom, 4to kogda s postroek pytaiusi vyiti k soderjaniiu, on govorit Error kakoi-to tam, kajetsa 1001 (pipetz, dofiga informatzii, turbo pascal i to bolishe infy pri oshibkah vydaval). I mojno ili Zavershiti rabotu skripta, ili poiti v otladku. Estessno i a v otladku poshel. Tak vot, umiraet skript na stroke
Cells(33, i).Value = ""
Ia tak ponial - on tuda dostupa ne imeet. Poetomu vspomnil koe-kakie mantry i poshel v nastroikah i snial zashitu lista. Zahoju opiati v postroiki, vyhoju - normallino. Togda ia ponial 4to .Unprotect po kakim-to pri4inam ne delaet svoe delo. Poproboval meniati ego na 4to-to vrode:

ThisWorkbook.Unprotect

ili

ActiveWorkbook.Worksheets("blablabla").Unprotect

No effekta 0 (zero).

Ta-je problemma kogda vyhoju iz Oborony k Soderjaniiu. Kstati, posle neskolikih takih gliukov na4inaet Excel voobshe gliu4iti prihoditsa iz Dispet4era zakryvati. Nu posmotri esli smojeshi naiti reshenie. A esli net, i eto toliko u menia takoi gliuk - to pofig snimaiu zashitu vru4nuiu i vsio. Blago on ee obratno ne stavit )

1) problemma ne v vetvlenii - proboval otlad4ikom dobaviti brakepoint i polu4aetsa 4to programma zahodit v vetvlenie, i .Unprotect delaet, toliko hz kak delaet no tolku malo. (kstati, proboval i bez vetvleniia, rezulitat tot-je)
3) kajisi error deistvitelino 1004
4) Esli iarly4kom to vsio ok.

Reshenie:
2) Perenes soderjimoe v "CommandButton1_Click" i vrode rabotaet normalino.
U tebia kakoi office? vernee visual basic? tut skoree vsego problemma v poo4erednosti sobytii.... ili v kodirovke u tebia russkaia versia, tak?

1) ia govoriu ob etom if:
    If ActiveWorkbook.Worksheets("Постройки").ProtectContents = False Then
        ActiveWorkbook.Worksheets("Луны").Cells(1, 3).Value = "работает"
    End If
2) A i to 4to zna4it gliuki poiaviatsa i pri dezaktivatzii drugih listov toje.

...ActiveWorkbook.Worksheets(4) toj ne pomoglo

Blin, shias ska4aiu zanovo, posmotriu 4to budet.

Ska4al. To-je samoe. Problemma v tom 4to on zashitu ne snimaet. Ostalinoe rabotaet. Po4emu script ne mojet zashitu s listov sniati?

Отредактировано Gebeleysis (2008-02-05 18:29:48)

Proboval. Esli ne verishi mne, to poveri excel'u: Unprotect NE RABOTAET
Esli esti eshio idei - gotov vyslushati. Esli net - prosto budu iuzedi bez sashity

P.S.: temku perevoju v obu4enie, tam gde tvoia pervaia "Imperiia"

Da, vrode tak.
Edinstvennoe otli4ie mejdu nami - u tebia russkaia versiia offisa. U mnu - angliiskaia. Ah da, a eshio u mnu Vista. U tebia kajisi XP?
Davai provedem sat
sdelai pustoi dokument, s dvumia listami i odnoi knopo4koi. Nu i obrabot4ik deaktivatzii napishi. A to ia v basic ne mastak. Pereshleshi mne i ia zapushiu. Eto dlia 4istoty eksperimenta.