Makros über "DieseArbeitsmappe" aktivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn jemand die Datei mit SHIFT öffnet oder die Makros deaktiviert, dann sollten generell keine Makros laufen.
wenn du verhindern willst, dass jemand mit der Datei arbeiten kann ohne die Makros zu aktivieren, dann kannst du so vorgehen:
1. im BeforeSave-Event alle Sheets bis auf ein Begrüssungsblatt auf .Visible = xlsheetveryhidden setzten.
merke dir aber das aktive Blatt.
2. im AfterSave-Event machst du alle Blätter wieder sichtbar und aktivierst das gemerkte Blatt. Setze Thisworkbook.Saved = True
3. im WorkbookOpen-Event machst du das gleiche wie im AfterSave-Event, dh alle Blätter einblenden.
dadurch werden beim Speichern mit aktiven Makros die Blätter ausgeblendet.
wenn jetzt der Anwender die Datei öffnet ohne die Makros zu aktivieren, dann bekommt er nur das Begrüssugnsblatt zu sehen, dh er kann ohne aktivierte Makros nichts mit der Datei anfangen.
allerdings schützt auch dieser Code nur vor neugieriegen, aber ansonsten unkundigen, aber niemals vor wissenden mit böser Absicht. Ein solcher Schutz ist in Excel mit Bordmitteln nicht möglich.
Gruß Daniel

Private Sub Workbook_BeforeClose(Cancel As Boolean) CheckNameExists With Names("Makro") .Value = 0 .Visible = False End With End Sub Private Sub Workbook_Open() CheckNameExists With Names("Makro") .Value = 1 .Visible = False End With End Sub Sub CheckNameExists() Dim n As Name On Error Resume Next Set n = Names("Makro") On Error GoTo 0 If n Is Nothing Then Set n = Me.Names.Add("Makro", 1) End If End Sub

Hmm... ich hab's jetzt so gelöst:

Private Sub workbook_open()
Sheets("start").Range("B14") = 1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("start").Range("B14") = 2
End Sub

Private Sub Workbook_afterSave(ByVal Success As Boolean)
Sheets("start").Range("B14") = 1
End Sub

Nun muß ich nur noch in jedem Makro die Abfrage nach dem Zellwert einbauen und wenn der Wert 2 ist wird das Makro sofort abgebrochen. Allerdings muß der User dann nur einmal zwischenspeichern und der Wert währe wieder auf 1 und somit würden dann die Makros wieder gehen - dumm.... hach wie mach ichs nur?
Oder was meinst du?
Danke.
Gruß
r2d2

Beliebteste Forumthreads (12 Monate)

Makros über "DieseArbeitsmappe" aktivieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros über "DieseArbeitsmappe" aktivieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread