kostenloser Webspace werbefrei: lima-city

Excel fürs Geschäft I

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   stauffermi

   stauffermi hat kostenlosen Webspace.

   12:41, 16.6.2004

   Hallo zusammen,
   
   eigentlich wollte ich ja ein Tutorial schreiben. Aber es wurde bis heute noch nicht ver?ffentlicht. Deshalb schreibe ich es jetzt hier. (schade um die Gulden)
   
   Dieses Jahr habe ich f?r meinen Arbeitgeber eine ziemlich grosse Excel-Datei machen m?ssen. T?glich m?ssen viele Leute dort verschiedene Sachen eingeben.
   
   Wer im Gesch?ft mit Excel arbeitet, und Sachen in eine Datei eingeben muss, auf die viele andere Personen auch zugreifen k?nnen, kennt sicher dieses Problem: Wenn man sie ?ffnet, kommt eine Meldung: "Die Datei wird von einem anderen Benutzer ge?ffnet und kann daher nur schreibgesch?tzt ge?ffnet werden." Viel Personen vergessen nat?rlich die Datei sofort nach dem Gebrauch wieder zu schliessen. Je mehr Personen auf diese Datei zugreifen m?ssen, desto gr?sser ist die Wahrscheinlichkeit, dass diese Meldung erscheint.
   
   Deshalb habe ich nun ein Makro geschrieben, welches die Datei automatisch nach einer gewissen Zeit der "Nichtbenutzung" speichert und schliesst. Dadurch wird die Datei wieder frei f?r die anderen Benutzer.
   
   Wie man dies macht m?chte ich euch nun zeigen:
   
   Als erstes ?ffnet ihr die Datei, welche automatisch geschlossen werden soll.
   
   Dann ?ffnet ihr den Visual Basic Editor (Alt + F11)
   
   Nun markiert Ihr das Verzeichnis "VBAProject (Name der Datei)"
   
   Nun er?ffnet Ihr dort ein neues Modul. (Einf?gen - Modul)
   
   Jetzt Doppelklick auf das Modul.
   
   Dort f?gt ihr nun folgenden Test ein:
   
   Option Explicit
   Dim datA As Date
   
   Sub startzeit()
   On Error Resume Next
   Application.OnTime EarliestTime:=datA, Procedure:="Schlie?en", Schedule:=False
   datA = Now + CDate("0:05:00")
   Application.OnTime datA, "Schlie?en"
   End Sub
   
   Sub Schlie?en()
   ActiveWorkbook.Close True
   End Sub
   
   Sub Zur?cksetzen()
   Application.OnTime EarliestTime:=datA, Procedure:="Schlie?en", Schedule:=False
   End Sub
   
   
   -------------------------------------------------------------
   Dort wo nun ("0:05:00") steht, k?nnt ihr die Zeit ab?ndern ( Stunden:Minuten:Sekunden). So w?rde die Datei nach 5 Minuten schliessen.
   
   So funktionier es allerdings noch nicht.
   
   Im Verzeichnis VBAProject (Name der Datei) im Unterverzeichnis Microsoft Excel Objekte f?gt ihr in "diese Arbeitsmappe noch folgendes ein:
   
   Option Explicit
   Private Sub Workbook_Open()
   startzeit
   End Sub
   
   Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   startzeit
   End Sub
   
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Zur?cksetzen
   End Sub
   
   -----------------------------------------------------------------
   
   Nun k?nnt ihr speichern und viel ?rger ersparen.
   
   Ich hoffe, es hilft euch.
   

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. m14

   m14 hat kostenlosen Webspace.

   16:13, 16.6.2004

   des dauert schon seine zeit bis des tutorial ver?ffentlicht
   ca. 1-2wochen
   aber jetz z?hlt des tutorial sch?tzungsweise nich mehr
   hasch schon recht
   schade um die gulden

4. mlrecords

   

   mlrecords hat kostenlosen Webspace.

   17:32, 17.6.2004

   Dieses Thema wurde mit folgender Begr?ndung von mlrecords geschlossen:
   
   So, Tutorial wird gleich ver?ffentlicht.
   
   (Dies ist eine automatische Antwort durch das System).

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?