|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.11.2008 09:18:50 |
internetlucky |
|
|
|
26.11.2008 10:14:12 |
Olaf |
|
|
|
26.11.2008 13:11:46 |
jh |
|
|
 Aw:Aw:Aw:VBA Script per Script erstellen |
26.11.2008 15:30:14 |
Olaf |
|
|
|
28.11.2008 14:04:55 |
internetlucky |
|
|
Von:
Olaf |
Datum:
26.11.2008 15:30:14 |
Views:
915 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:VBA Script per Script erstellen |
Hallo jh,
Ich lern immer gern was dazu, danke. Aber ist das nicht etwas umständlich. Die Abfrage eines Kontroll Kasten ist doch einfach leichter zu realisieren und es können auch keine Fehler auftreten.
Ganz davon ab nehme ich den Code mal mit in meine Sammlung mit auf wenn du nichts dagegen hast.
Gruß
Olaf
jh schrieb am 26.11.2008 13:11:46:
Hallo,
natürlich geht das, allerdings muss ab Excel 2002 oder 2003 dem
Zugriff auf das VBA-Projekt per Code explizit zugestimmt werden
(Menü Extras - Makro - Sicherheit), sonst produziert der folgende
Code einen Fehler. Der Einfachheit halber werden nicht alle Zeilen
auskommentiert, sondern am Anfang der Sub Workbook_Open "Exit Sub"
eingefügt, wenn dort keins steht, anderenfalls wird es entfernt.
Der Code führt auch zu einem Fehler, wenn das Zielmodul
"DieseArbeitsmappe" umbenannt wurde (Codename) oder, z. B. in
anderssprachigen Versionen, anders heißt. Außerdem kann evtl. ein
Virenscanner Probleme machen, weil auch Makroviren auf das VBA-
Projekt zugreifen könnten.
Dim l As Long, i As Long, s As String
With ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
l = .CountOfLines
For i = 1 To l
s = Trim$(.Lines(i, 1))
If s = "Private Sub Workbook_Open()" Then
If Trim$(.Lines(i + 1, 1) = "Exit Sub") Then
.DeleteLines (i + 1)
Else
.InsertLines i + 1, "Exit Sub"
End If
Exit For
End If
Next i
End With
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.11.2008 09:18:50 |
internetlucky |
|
|
|
26.11.2008 10:14:12 |
Olaf |
|
|
|
26.11.2008 13:11:46 |
jh |
|
|
Aw:Aw:Aw:VBA Script per Script erstellen |
26.11.2008 15:30:14 |
Olaf |
|
|
|
28.11.2008 14:04:55 |
internetlucky |
|
|