Új hozzászólás Aktív témák

• #36323 Delila_1 veterán Ada Wong #36318

  Új Válasz 2017-10-18 12:00:39 #36323

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Ada Wong #36318 üzenetére

  Makróval egyszerűen megoldható.

  A ThisWorkbookba ezt tedd:

  Private Sub Workbook_Open()
Start
End Sub

  Egy modulba pedig:

  Sub Start()
Application.OnTime Now + TimeValue("00:00:40"), "Riado" '*********
End Sub

  Sub Riado()
Dim v
Beep
Workbooks("Idozito.xls").Activate
v = MsgBox("Használod a füzetet?", vbYesNo + vbQuestion)
If v = vbNo Then
ActiveWorkbook.Save
ActiveWindow.Close
Else
Start
End If
End Sub

  A csillagokkal jelzett sorban állíthatod be, milyen időközönként kelljen ráklikkelnie a renitens dolgozónak. Most 40 mp-enként kapja a felszólítást.

• #36319 Pakliman tag Ada Wong #36318

  Új Válasz 2017-10-18 10:57:18 #36319

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz Ada Wong #36318 üzenetére

  Szia!

  Van rá "megoldás", de én (saját tapasztalat) nem ajánlom: ez a "Munkafüzet közössé tétele és védelme" (O2010 alatt így hívják a menüpontot.)
  Kollégáimmal sokat szívtunk miatta, rendszeres volt a fagyás + adatvesztés (több ezer képletet tartalmazott), ezért egy idő után megegyeztünk a "ha a másik végzett, akkor jövök én" módszerben.

  Az elfelejti bezárni ellen csak szankcióval lehet védekezni

  A Dropbox-ot nem ismerem (nálunk tiltva van), viszont a hálózatunkon lévőknél mindig jelzi, ha valakinél már meg van nyitva SZERKESZTÉSRE. Kiírja a felhasználó nevét is. Ennél több nem hiszem, hogy kell.

  "- ha már meg van nyitva, ne kérdezzen rá, hogyan akarjuk megnyitni, hanem eleve csak olvasásra legyen hajlandó?"
  VBScript-ből vagy egy saját makrókat tartalmazó munkafüzetből (ami minden excel indításkor betöltődik) kell indítani a munkafüzet megnyitását.
  Pl.:

  Workbooks.Open fileName:=Mappa & "\Közösen használt.xlsm", ReadOnly:=Not bMárNyitvaVan

Új hozzászólás Aktív témák