Macros ohne Schaltfläche auslösen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "Hier kann der Code zum schützen rein" Else MsgBox "Das war nicht die Zelle auf die reagiert werden soll !", vbInformation End If End Sub

Private Sub Seitenschutz(ByVal Target As Range) If Target.Address = "D6" Then MsgBox "Hier kann der Code zum schützen rein" Else MsgBox "Das war nicht die Zelle auf die reagiert werden soll !", vbInformation End If End Sub

Hallo Heiko. Beim VBA Level Gut hab ich mich wohl verklickt. Mein Fehler. Ich bin nicht wirklich fit drin.
Ich möchte gerne aus einem Programm eine Seite kopieren und diese in Excel mit strg + v einfügen. Das Programm ist branchenspeziefisch und fülllt mir dann beim einfügen in die Excel Tabelle ca. 20 Zellen aus.
Ich kopiere also aus dem einen Programm und füge in Excel ein. genau dann sollte ein Makro bzw. das Makro gestartet werden und die Arbeitsmappe schützen, so dass keine Daten verändert werden können.
In der Makroliste habe ich das Makro gerne, um es später leicher zu finden und zu bearbeiten. Sonst muß ich mir z.B. das Modul merken und dann das Makro suchen um etwas nachträglich zu verändern.
Und das hier: Das "Private Sub Seitenschutz(ByVal Target As Range)" ist zumindest Blödsinn, da sich "ByVal Target As Range" auf die Rückgabewerte eines Worksheetsereignisses bezieht.
verstehe ich leider auch nicht wirklich. Was sind denn die Rückgabewerte eines Worksheetsereignisses?
Hoffe ich mache nicht zu viele Umstände.
Gruß
Binky

Hallo Biny,
diesen Code in das Codefenster der entsprechenden Tabelle.
Workbook und Worksheet Ereigenisse erscheinen nie in der Makro Liste, also dies auch nicht.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngIntersect As Range
' Überprüft ob eine Eingabe im benannetn Bereich gemacht wird.
' A1:A20,C1:C20 wäre also Zelle A1-A20 und C1-C20.
' Wenn du nur A1-A20 haben willst dann, Range("A1:A20")
Set rngIntersect = Application.Intersect(Range("A1:A20,C1:C20"), Target)
If Not rngIntersect Is Nothing Then
' Diese Zeile kann raus wenn es läuft, gibt halt nur den Hinweis dann nun geschützt wird.
MsgBox "Im Bereich, Blatt wird geschützt.", vbInformation
' Wenn in dem Bereich was eingegben wurd, dann Blatt schützen.
ActiveSheet.Protect Password:="Passwort"
End If
Set rngIntersect = Nothing
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !

Private Sub AAtest(ByVal Target As Range) Dim rngIntersect As Range ' wobei mir rngIntersect auch in der Hilfe nicht wirklich was sagt. Set rngIntersect = Application.Intersect(Range("D6"), Target) If Not rngIntersect Is Nothing Then msgbox "Im Bereich, Blatt wird geschützt.", vbInformation ActiveSheet.Protect Password:="Passwort" End If Set rngIntersect = Nothing End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIntersect As Range Set rngIntersect = Application.Intersect(Range("D6"), Target) If Not rngIntersect Is Nothing Then msgbox "Im Bereich, Blatt wird geschützt.", vbInformation ActiveSheet.Protect Password:="Passwort" End If Set rngIntersect = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Macros ohne Schaltfläche auslösen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Macros ohne Schaltfläche auslösen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread