írta:
> Sziasztok Guruk.
> Ma majdnem verem a fejem a falba es nem jovok ra a kovetkezo gond okara.. Bar
mil
> yen otlet johet.
> A vas:
> 1 db. LAN a kovetkezokkel
>    a. 1 WIN XP Sp2 gep, ADSL USB modem, kapcsolat leosztva modem sharing-gel.
>    b. 1 db. W98 munkaallomas
>    c. 1 db. MAc Os 9 munkaallomas.
> A gond:
>   WIN XP geprol minden muxik a NET-en
> a munkaallomasokon az E-mail siman megy, YahooMessenger sintugy, de
> Bongeszes csak bizonyos oldalakra.
> Pd. Google muxik, Yahoo.com NEM, HIX sem
> Vagyis egyes cimek mennek, masok hol igen, hol nem, megint masok soha.
> Mindez _csak a munkallomasokon_ jelentkezik az XP-n minden muxik. Par nappal 
ez
> elott kezdte, azelott minden ment. Kozben tudtommal semmi lenyeges modositast
 n
> em csinaltam. Van valakinek otlete. Mi a megoldas?
> Koszi
> 
> (webes bekuldes, a bekuldo gepe: 86.35.202.27)
> 
> 
> 
Allits az MTU-n, 1500-rol vedd le 1492-re.

Udv:
chx

Ha jol ertem, egy asztali DVD lejatszon lejatszhato fenykepalbumot akarsz letre
hozni. Ha rafer CD lemezre, a legegyszerubb megoldas VCD vagy SVCD, ugy emlexem
. Modjuk Nero-val, ha jol emlexem... :-)

(webes bekuldes, a bekuldo gepe: re.real-net.ds.netlab.sk)

Hello Akos & all

> Az eljarasszinten DIM vagy static lehet a deklaracio.
> Neked az kell, hogy a thisworkbook deklaracios reszeben egy public
> valtozot felvegyel. A deklaracios resz megeloz minden eljaras
> definiciot. Ha a kodszerkesztot nezed, a tetejen van ket legordulo, az
> kell beallitani (general) es (declarations) allasba.

Koszi a segitseget, ezen a hiban igy atjutottam,
de a gondomat sajnos nem oldotta meg. A deklaraciot
igy elfogadta, de a valtozo tartalma 'eltunt':

Amit elkovettem:

thisworkbook/general/declarations:

Public VanJelszo As Boolean

thisworkbook/workbook/open:

Sub Workbook_Open()

Sheets("Tartalomjegyzek").Select
LoginForm.Show
 
End Sub

A Loginform very egyszeru, tartalmaz egy adatbeviteli
mezot(PwdInput), és egy nyomógombócot (cmdGo), amivel
elhagyjuk a form-ot.

Private Sub cmdGo_Click()

Dim UgyseKell As String

If PwdInput = "xxxx" Then
Sheets("Work").Range("A1").Value = 1
VanJelszo = True
 
Else
Sheets("Work").Range("A1").Value = 0
VanJelszo = False
UgyseKell = MsgBox("Belépés csak olvasható módban.", 
vbExclamation)
End If
LoginForm.Hide
Sheets("Tartalomjegyzek").Select

MsgBox ("1" & VanJelszo) ' ===> itt az ertek meg rendben van,
' ez a sor csak a teszt kedveert kerult bele, persze

End Sub

Es itt kezdodik az x-akta!

A Tartalomjegyzek tablanal:

Private Sub Worksheet_Activate()

MsgBox (VanJelszo) ' ===> itt az ertek mar nincs meg :-(

End Sub

Mintha nem is public valtozo lenne.
Kell ezzel a valtozoval meg valamit csinalni? Mit rontok el?

Bye, PocoK

Dehogyis vagy vaskalapos.
En eleve igy szerettem volna.
Csak:
 a "modem" a szolgaltatotol (RomTelecom, a MATAV itteni megfeleloje) szarmazik,
 es MAC cim alapjan van azonositva, igy nem tudom UTP-s valtozatra cserelni (la
galabbi igy mondtak, ha sikertu kolcsonbe szert tennem egy UTPs eszkozre, azert
 kiprobalom. Sokszor volt mar eset, hogy ehhez hasonlo megkotesek csak kodosite
sek voltak).
ebbo kovetkezoen routert sem tudok bebpiteni, en legalabbis nem lattam sehol ol
yat, ami az USB-t nem nyomtatoleosztasra hasznalja. 
Vagy ezt lehetne a modem leosztasara is hasznalni (Tzamas vagyok benne).
Mindettol fuggetlenul nem megy a fejembe, mitol lehet az hogy www.google.com be
jon, www.yahoo.com peldaul nem (vagy Time Out, vagy 404-es hiba a valasz)
Azert koszonom, es kellemes Husvetot mindenkinek
Jancsi

(webes bekuldes, a bekuldo gepe: 86.35.202.27)

Sziasztok!

>De mostmár megkérdezném a témaindítót: jól sejtem hogy sajátgépes smtp
> szerverrel gyült meg a baja? (a megadott ip-cím is erre utal)

Nem, a szolgaltato SMTP-szerveret hasznalom (smtp.fibermail.hu)

Egyebkent koszonom a gyors valaszokat listara/maganban.
A problema masnapra megoldodott: az IP cim maradt (lassan 1 hete ugyanaz,
akkor ez mitol dinamikus ???)
, a levelek meg siman kimennek :-))
Ez lehetett a megoldas (masok segíto levelebol idezem):
> Egyebkent a spamdb bejegyzesek valamennyi ido
> utan maguktol is elavulnak.
Illetve volt, aki azt irta, hogy az altalam idezett oldalon le tudott iratni
a tiltolistarol (en nem talaltam meg ezt a lehetoseget), amit szinten
koszonok, lehet, hogy o volt a nyero...

Udv, Bazsi

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
>Felado : 
>Temakor: excel2000/vba problema ( 48 sor )
>Idopont: Fri Apr  7 13:03:20 CEST 2006 GURU #4060

[...]
>A feladat az lenne, hogy egy userform-on
>bekert jelszot (pontosabban logikai valtozot,
>ami tukrozi, hogy a jelszot beirtak-e, avagy
>nem) egy olyan valtozoban taroljam, amelynek
>erteke megmarad a munkafuzet bezarasaig.

>Amit elkovettem:

//  HIX-nek: angol, angolul

>A munkafuzethez tartozo VBAProject/ThisWorkBook-
>ba beleheggesztettem a kovetkezot:

>Private Sub Workbook_Open()

>Public VanJelszo As Boolean
>
>Sheets("Tartalomjegyzek").Select
>LoginForm.Show
> 
>End Sub

>Mire inditasnal a kovetkezo hibauzenettel
>a public valtozo deklaralasanal megall a dolog:
>
>"Compile error: Invalid attribute in Sub or Function"

Ez azer van, mert Public valtozot nem lehet makron belul
deklaralni, azt ki kell tenni a modullap "tetejere"...
(De egyebkent a feladathoz nem jarhato ut.)
Mellesleg a makrot en kitennem a Class teruletrol 
(This Workbook) a Modulok koze.

>Probalkoztam a "Private" prefix torlesevel is,
>eredmenytelenul.

>Eszerint public valtozot fuggvenyben/eljarasban
>nem lehet deklaralni. De akkor (leven szo egy excel-
>munkafuzetrol es nem script-rol) hol/hogyan tudnek
>en ilyet elkovetni?

Ha sikerul is deklaralnod, a valtozo elvesz amikor
minden makro lefut, mert csak futasido alatt marad eletben.

>Esetleg milyen alternativ megoldas van a dologra?

Hat pl. a SaveSetting es a GetSetting paros.
Egyikkel el lehet tarolni az adatot, a masikkal be lehet
olvasni.

>Atmeneti megoldaskent a logikai valtozo erteket a
>LoginForm leteszi egy (masra) nem hasznalt munka-
>lapra, de ez nem egy praktikus megoldas.

Nana, hogy nem praktikus.

>Elore is koszonom, PocoK

Tedd bele az Userform OK gomjanak a kodjaba:

SaveSetting appname:="A_munkafuzet_alkalmazasom", Section:="Belepes_kilepes", _
Key:="Jelszo_megadva", setting:="igen"

'Ellenorizni pedig igy lehet:

Jelszo_megvan_adva=GetSetting(appname:="A_munkafuzet_alkalmazasom", _
Section:="Belepes_kilepes", Key:="Jelszo_megadva", _
Default:="nem")

'Tegyed bele a munkafuzet bezarasakor amutomatiksuan lefuto makroba:

SaveSetting appname:="A_munkafuzet_alkalmazasom", Section:="Belepes_kilepes", _
Key:="Jelszo_megadva", setting:="nem"

Informaciiok:
Az ertek a Registry-ben tarolodik, a felhasznalo profilja alatt, es
"orokre" megmarad. Csak szoveges adatoto lehet letarolni, ezert egyeb
adatformatumok tarolasakor visszaolvasasakor oda-vissza konverzio
szukseges.
--
Török István

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
>Felado : 
>Temakor: Re: OFFTOPIC: Miert van ez igy? ( 28 sor )
>Idopont: Sun Apr  9 16:44:30 CEST 2006 GURU #4062

>Selmeci, Tamas irta:
>>A menetrend kerdest en egy kezi fenykepezovel oldottam meg, utana
>>begepeltem OpenOffice-ba, screenshot, jpg, es azt toltottem fel a
>>mobilomba, ahol kepkent meg tudom nezni.

>A menetrendkérdésre ott van az Elvira http://www.elvira.hu/

Na, ha mar szoba jott, valaki mondjon nekem valamit errol,
mert azt hittem, mindent tudok a WORD-rol, meg azt, hogy az egy
WYSIWYG szovegszerkeszto...

Ime a kiserlet:
Kell hozza Windows, IE, netkapcsolat, WORD, es nyomtato.
Elvira oldalan valasszunk ki egy allomast, es jelenitsuk
meg az allomasra erekezo ill. onnan indulo vonatok
listajat.
pl.: http://www.elvira.hu/elvira.dll/af?i=1735&d=06.04.10
Jeloljuk ki a tablazatot, masoljuk Ctrl+C-vel vagolapra, inditsuk
a WORD-ot, es illesszuk be.
Igazitsuk a betuket, ill. a tablazat oszlopait ugy, hogy elferjen
szelteben az oldalon (pl. 10 pontos betuk)...
Majd probaljuk meg kinyomtatni. (nem kell mindet, eleg egy-ket oldalt)

Nezzuk meg, mi jott ki a nyomtaton. Na, ezt hogy csinaltak?

>De buszra is van a neten menetrend:
>http://www.menetrendek.hu/cgi-bin/menetrend/html.cgi

Hat hogyne, de ez kevesbe erdekes, minalunk csak bosszusagert van
autobusz menetrend, a buszok kedvuk szerint jarnak. 
Ma fogok megint egy jo torokistvanos levelet irni a Volannak,
(miutan 20 percet kesett reggel a busz, megallas nelkul tovabbhajtott)
de hat mar en unom, hat meg ok hogy unhatjak...
 
>Éppenséggel fényképezögép nélkül is megoldható.
>A weblapról elmentem html-ként vagy kivágok belöle, és lesz valami
>szövegfájl. A szövegfájlt esetleg pofozom kicsit, vagy megnyithatom Excelben
>is, igy akár müveletet is végezhetek.

Persze, persze, en szep szines lapokat keszitettem a filofaxomba,
de nem is errol van szo, hanem pl. egyszer veletlenul elevetodtem 
valahova, es az allomason elso reakciom volt lefenykepezni a menetrendet...

>>A legtobb ember szamara eleg lenne egy jo telefonkonyv,

Na, ez meg a masik! Az en vadiuj Sharp telefonomban majdnem
jo a telefonkonyv, de minden emberkehez csak 3 telefonszamot lehet
bevinni (alias magan mobil, magan vonalas, munkahelyi vonalas)
-ezeket tudja a telefon tarcsazni- es hogy, hogy nem, a bejegyzeseim
75%-anak joval tobb telefonszama is van...
Es hab a tortan, hogy az amugy egyeb szempontbol igen reszletes
telefonkonyvben csak nevre lehet keresni...

>> sms, egyszeru hataridonaplo, ebresztoora, ertelmes dolgok.

Hat, szo mi szo, a lestrapalt, tonkrement antennaju Ericsonomat
csak azert nem dobtam el, mert az ebreszto funkcioja miatt
szuksegem van ra. Igaz, hogy mar lassan naponta toltenem kell,
ugy, hogy nem is telefonalok vele. Hogy a Sarpnak miert nincs
ebresztoje, ki tudja. Emlekezteto van ugyan, de az az elso
gombnyomasra elhallgat, es 5 perc mulva nem csorog ujra...

--
Török István

Sziasztok!

Tegnapelott az XP Pro ugy dontott, hogy a Megjelenites ablakban az
Asztal fulon nem csak a szokasos nehany kepet jeleniti meg a listan,
hanem a Kepek konyvtar teljes tartalmat, az alkonyvtarak tartalmaval egyutt.

Mivel ez kb. 7000 kep ezert eleg zavaro a dolog, raadasul nem igy
kellene lennie. Mar harmadik napja gorcsolok vele, de hiaba.

Minden otletet elore is koszonok. Maganba is...
Udv:
Csaba